Changeset 124 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

Timestamp:

Jul 28, 2014, 4:43:11 PM (10 years ago)

Author:

lfita

Message:

Adding more initializations... hope the last ones!

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90 (modified) (2 diffs)

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

@@ -260 +260 @@
       largest = 10.e5
 
-! L. Fita, LMD July 2014. Initializing variables
+! L. Fita, LMD July 2014. Initializing variables. 
+!   Some not initializated according to values: iflag_trig_bl, iflag_clos_bl
      zdthladj = 0.
      pbl_tke_max0 = 0.
      fraca0 = 0.
      w_conv = 0.
+     w0 = 0.
+     therm_tke_max0 = 0.
+     env_tke_max0 = 0.
+     alp_bl_det = 0.
+     alp_bl_fluct_m = 0.
+     alp_bl_fluct_tke = 0.
+     alp_bl_conv = 0.
+     alp_bl_stat = 0.
 
 !-----------------------------------------------------------------------
@@ -1159 +1168 @@
 
   ENDIF ! (iflag_clos_bl.ge.1)
-      lfname='after closure'
+      lfname='thermcell main after closure'
       lvarname = 'pt'
       CALL check_var3D(lfname, lvarname, pt, ngrid, nlay, largest, .FALSE.)