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

Timestamp:

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

Author:

aboissinot

Message:

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

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• thermcell_closure.F90 (modified) (1 diff)
• thermcell_plume.F90 (modified) (1 diff)

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

@@ -107 +107 @@
       ENDDO
       
-      print *, 'A*2 ', alim_star2(1)
-      print *, 'A*  ', alim_star_tot(1)
-      print *, 'H   ', plume_height(1)
-      print *, 'wmax', wmax(1)
       
 RETURN

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