Changeset 56 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3/lmdz/diagphy_mod.F90

Timestamp:

Jul 23, 2014, 5:38:16 PM (10 years ago)

Author:

lfita

Message:

Adding 't' dependency on zh_dair_col

File:

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

branches/LMDZ_WRFmeas/WRFV3/lmdz/diagphy_mod.F90

@@ -673 +673 @@
             varname = 'zh_dair_col'
             CALL check_var(fname, varname, zh_dair_col, klon, largest*10.e6, .FALSE.)
-            PRINT *,'      zh_dair_col = func(q,ql,qs,paprs)'
+            PRINT *,'      zh_dair_col = func(q,ql,qs,paprs,t)'
             varname = 'q'
             CALL check_var3D(fname, varname, q, klon, klev, largest, .FALSE.)
@@ -682 +682 @@
             varname = 'paprs'
             CALL check_var3D(fname, varname, paprs, klon, klev, largest*10.e6, .FALSE.)
+            varname = 't'
+            CALL check_var3D(fname, varname, t, klon, klev, largest, .FALSE.)
           END IF
           PRINT *,'    h_qw_tot= ',h_qw_tot