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

Timestamp:

Jun 9, 2021, 9:38:56 PM (3 years ago)

Author:

emillour

Message:

Venus GCM:
Some cosmetics in routines, along with adding the possibility to read/write q2 from/to startphy.nc/restartsphy.nc (not really used, but in preparation of future commits).
VB+EM

File:

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

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

@@ -90 +90 @@
       integer iter
 
-      real ric,rifc,b1,kap
-      save ric,rifc,b1,kap
-      data ric,rifc,b1,kap/0.195,0.191,16.6,0.4/
+      real,save :: ric=0.195
+      real,save :: rifc=0.191
+      real,save :: b1=16.6
+      real,save :: kap=0.4
 
       real frif,falpha,fsm
@@ -118 +119 @@
 
       if (first) then
-        IF (.not.ALLOCATED(l0)) allocate(l0(klon))
-        IF (.not.ALLOCATED(q2)) 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...)