Changeset 1652 for LMDZ5/trunk/libf/phylmd

Timestamp:

Sep 12, 2012, 6:16:09 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Un fichier n'avait pas été commité pour les dernières modifications de A.Cozic

---

One file not commited in the latest modifications from A. Cozic

File:

• LMDZ5/trunk/libf/phylmd/cva_driver.F (modified) (5 diffs)

LMDZ5/trunk/libf/phylmd/cva_driver.F

@@ -20 +20 @@
      &                   ftd1,fqd1,
      &                   Plim11,Plim21,asupmax1,supmax01,asupmaxmin1
-     &                   ,lalim_conv)
+     &                   ,lalim_conv, 
+!AC!
+     &                   da1,phi1)
+!AC!
 ***************************************************************
 *                                                             *
@@ -171 +174 @@
       real tvp1(len,nd)
 c
+!AC!
+      real da1(len,nd),phi1(len,nd,nd)
+      real da(len,nd),phi(len,nd,nd)
+!AC!
       real ftd1(len,nd)
       real fqd1(len,nd)
@@ -912 +919 @@
       endif
 
+!AC!
+!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! --- passive tracers
+!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+
+      if (iflag_con.eq.3) then
+       CALL cv3_tracer(nloc,len,ncum,nd,nd,
+     :                  ment,sij,da,phi)
+      endif
+
+!AC!
+
 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 ! --- UNCOMPRESS THE FIELDS
@@ -928 +947 @@
      :          ,Plim1,Plim2,asupmax,supmax0
      :          ,asupmaxmin
+!AC!
+     :          ,da,phi
+!AC!
      o          ,iflag1,kbas1,ktop1
      o          ,precip1,cbmf1,plcl1,plfc1,wbeff1,sig1,w01,ptop21
@@ -936 +958 @@
      o          ,ftd1,fqd1
      o          ,Plim11,Plim21,asupmax1,supmax01
-     o          ,asupmaxmin1)
+     o          ,asupmaxmin1
+!AC!
+     o          ,da1,phi1)
+!AC!
       endif