Changeset 77 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_dq.F90

Timestamp:

Jul 24, 2014, 5:05:01 PM (10 years ago)

Author:

lfita

Message:

Adding more checks

File:

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

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_dq.F90

@@ -132 +132 @@
 
 
+      lfname='after Plume vertical flux'
+      lvarname = 'qa'
+      CALL check_var3D(lfname, lvarname, qa, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'fm'
+      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'fqa'
+      CALL check_var3D(lfname, lvarname, fqa, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'q'
+      CALL check_var3D(lfname, lvarname, q, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'masse'
+      CALL check_var3D(lfname, lvarname, masse, ngrid, nlay, largest, .FALSE.)
+
 ! Trace species evolution
    if (impl==0) then
@@ -144 +156 @@
       enddo
    endif
-      lfname='before tendencies _dq'
-      lvarname = 'dq'
-      CALL check_var3D(lfname, lvarname, dq, ngrid, nlay, largest, .FALSE.)
       lfname='after tendencies _dq 000'
       lvarname = 'q'