Changeset 2067 for trunk/LMDZ.GENERIC/libf

Timestamp:

Jan 14, 2019, 4:43:52 PM (6 years ago)

Author:

aboissinot

Message:

cf. commit 2066

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

@@ -262 +262 @@
       INTEGER zlcl(ngrid)
       
-      real,save :: f0(ngrid)              ! Mass flux norm
+      real,allocatable :: f0(:)           ! Mass flux norm
+      save f0                             ! 
       real fm0(ngrid, nlayer+1)           ! Mass flux
       real entr0(ngrid, nlayer)           ! Entrainment
@@ -705 +706 @@
          endif
          
+         ALLOCATE(f0(ngrid))
+         
          call su_watercycle ! even if we don't have a water cycle, we might
                             ! need epsi for the wvp definitions in callcorrk.F