Changeset 78 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3

Timestamp:

Jul 25, 2014, 9:50:16 AM (10 years ago)

Author:

lfita

Message:

Addgin checks to found where fm gets NaN

File:

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

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

@@ -610 +610 @@
 !deduction des flux
 !-------------------------------------------------------------------------------
+      lfname='before flux'
+      lvarname = 'fm'
+      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'fm'
+      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'entr'
+      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'detr'
+      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'zgla'
+      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'fm'
+      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
 
       CALL thermcell_flux2(ngrid,nlay,ptimestep,masse, &
@@ -616 +629 @@
      &       detr,zqla,lev_out,lunout1,igout)
 !IM 060508    &       detr,zqla,zmax,lev_out,lunout,igout)
+      lfname='after flux'
+      lvarname = 'fm'
+      CALL check_var3D(lfname, lvarname, fm, klon, klev, largest, .FALSE.)
 
       if (prt_level.ge.1) print*,'thermcell_main apres thermcell_flux'