Changeset 2145 for trunk/LMDZ.GENERIC/libf/phystd/thermcell_plume.F90

Timestamp:

Jun 21, 2019, 3:18:01 PM (5 years ago)

Author:

aboissinot

Message:

Some temporary outputs in thermcell_closure are removed and a bug in
thermcell_plume is fixed.

File:

• trunk/LMDZ.GENERIC/libf/phystd/thermcell_plume.F90 (modified) (1 diff)

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

@@ -152 +152 @@
                zw2_est(ig,l+1) = zw2m * 2.
                zw2(ig,l+1) = zw2_est(ig,l+1)
+               active(ig) = .true.
             ENDIF
             l = l + 1