Changeset 1669 for LMDZ5/branches/testing/libf/phylmd/cva_driver.F

Timestamp:

Oct 16, 2012, 2:41:50 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1668

http://lmdz.lmd.jussieu.fr/utilisateurs/distribution-du-modele/versions-intermediaires

---

Testing release based on r1668

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/cva_driver.F (modified) (5 diffs)

LMDZ5/branches/testing/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