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

Timestamp:

Jul 25, 2014, 2:25:10 PM (10 years ago)

Author:

lfita

Message:

Including checks for wth3, NaN source?!

File:

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

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

@@ -818 +818 @@
          enddo
       enddo
+      lfname='thermcell_main calculation of wth3'
+      lvarname = 'wth3'
+      CALL check_var3D(lfname, lvarname, wth3, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'fraca'
+      CALL check_var3D(lfname, lvarname, fraca, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'zw2'
+      CALL check_var3D(lfname, lvarname, zw2, ngrid, nlay, largest, .FALSE.)
+      lvarname = '1-fraca'
+      CALL check_var3D(lfname, lvarname, 1./(1.-fraca), ngrid, nlay, largest, .FALSE.)
 !calcul des flux: q, thetal et thetav
       do l=1,nlay