Changeset 1723 for trunk/LMDZ.VENUS/libf/phyvenus/yamada4.F

Timestamp:

Jul 21, 2017, 4:02:38 PM (8 years ago)

Author:

mlefevre

Message:

Mesoscale modification for Venus LMD physics

File:

• trunk/LMDZ.VENUS/libf/phyvenus/yamada4.F (modified) (3 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/yamada4.F

@@ -8 +8 @@
 c.......................................................................
       use dimphy
+      use turb_mod, only: q2,l0
       IMPLICIT NONE
 c.......................................................................
@@ -81 +82 @@
       real m2cstat,mcstat,kmcstat
       real l(klon,klev+1)
-      real,save,allocatable :: l0(:)
+      !real,save,allocatable :: l0(:)
 c  ATTENTION! mis ici car j'ai enlevé q2 des arguments...
 c   sinon, c'est au-dessus que ça se passe...
-      REAL,save,allocatable :: q2(:,:)
+      !REAL,save,allocatable :: q2(:,:)
 
       real sq(klon),sqz(klon),zz(klon,klev+1)
@@ -117 +118 @@
 
       if (first) then
-        allocate(l0(klon))
-        allocate(q2(klon,klevp1))
+        IF (.not.ALLOCATED(l0)) allocate(l0(klon))
+        IF (.not.ALLOCATED(q2)) allocate(q2(klon,klevp1))
 
 c (surtout pour k=1, à cause diagnostiques...)