Changeset 119 in lmdz_wrf

Timestamp:

Jul 28, 2014, 11:15:34 AM (10 years ago)

Author:

lfita

Message:

Adding zero value for 'w_conv' when ok_lcl = .FALSE.

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90 (modified) (1 diff)

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

@@ -999 +999 @@
      if (pbl_tke_max0(ig).ge.20.) pbl_tke_max0(ig)=20.
    else 
+     IF (w_conv(ig) /= w_conv(ig) .OR. ABS(w_conv(ig)) > largest*10.e5) THEN
+       PRINT *,'  Lluis wrong w_conv(ig): ',w_conv(ig),' at : ',ig
+       PRINT *,'    klcl(ig): ', klcl(ig),' klcl(ig)+1: ',klcl(ig)+1,                &
+         ' w_ls(ig,klcl(ig)): ',w_ls(ig,klcl(ig)),' w_ls(ig,klcl(ig)+1): ',          &
+         w_ls(ig,klcl(ig)+1), ' interp(ig): ',interp(ig)
+     END IF
      fraca0(ig)=0.
      w0(ig)=0.
+! L. Fita, LMD July 2014. Adding zero value for stability issues
+     w_conv(ig) = 0.
 !!jyg le 27/04/2012
 !!     zlcl(ig)=0.