Changeset 2714 for trunk/LMDZ.GENERIC/libf/phystd/phys_state_var_mod.F90

Timestamp:

Jun 21, 2022, 11:05:41 AM (2 years ago)

Author:

aslmd

Message:

Print tendencies in diagfi.nc and small correction

File:

• trunk/LMDZ.GENERIC/libf/phystd/phys_state_var_mod.F90 (modified) (3 diffs)

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

@@ -115 +115 @@
 !$OMP THREADPRIVATE(madjdE,madjdEz,lscaledE,lscaledEz)
       
+      real,dimension(:),allocatable,save :: genericconddE ! Heat from generic condensation (W.m-2)
+!$OMP THREADPRIVATE(genericconddE)
+
       real,dimension(:),allocatable,save :: H2Omaxcol ! Maximum possible H2O column amount (at 100% saturation) (kg.m-2).
 !$OMP THREADPRIVATE(H2Omaxcol)
@@ -202 +205 @@
         ALLOCATE(lscaledE(klon))
         ALLOCATE(lscaledEz(klon,klev))
+        ALLOCATE(genericconddE(klon))
         ALLOCATE(H2Omaxcol(klon))
         ! This is defined in comsaison_h
@@ -293 +297 @@
         DEALLOCATE(lscaledE)
         DEALLOCATE(lscaledEz)
+        DEALLOCATE(genericconddE)
         DEALLOCATE(H2Omaxcol)        
         DEALLOCATE(mu0)