Changeset 92 in lmdz_wrf for branches

Timestamp:

Jul 25, 2014, 1:09:05 PM (10 years ago)

Author:

lfita

Message:

Fixing issue on call for checking for Alp_bl
Fixing labels and adding checks

Location:

branches/LMDZ_WRFmeas/WRFV3/lmdz

Files:

• calltherm.F90 (modified) (2 diffs)
• thermcell_main.F90 (modified) (2 diffs)

branches/LMDZ_WRFmeas/WRFV3/lmdz/calltherm.F90

@@ -344 +344 @@
        fm_therm(:,klev+1)=0.
 
-      lfname='after transforming from derivate to tendency'
+      lfname='calltherm after transforming from derivate to tendency'
       lvarname = 't_seri'
       CALL check_var3D(lfname, lvarname, t_seri, klon, klev, largest, .FALSE.)
@@ -370 +370 @@
       CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
       lvarname = 'Alp_bl'
-      CALL check_var(lfname, lvarname, Alp_bl, klon, klev, largest, .FALSE.)
+      CALL check_var(lfname, lvarname, Alp_bl, klon, largest, .FALSE.)
       lvarname = 'Alp'
       CALL check_var3D(lfname, lvarname, Alp, klon, largest*10.e5, .FALSE.)
       lvarname = 'Ale_bl'
-      CALL check_var(lfname, lvarname, Ale_bl, klon, klev, largest, .FALSE.)
+      CALL check_var(lfname, lvarname, Ale_bl, klon, largest, .FALSE.)
       lvarname = 'Ale'
       CALL check_var3D(lfname, lvarname, Ale, klon, largest*10.e5, .FALSE.)

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

@@ -1123 +1123 @@
       lvarname = 'rhobarz'
       CALL check_var3D(lfname, lvarname, rhobarz, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'wth3'
+      CALL check_var3D(lfname, lvarname, wth3, ngrid, nlay, largest, .FALSE.)
       lvarname = 'Alp_bl'
       CALL check_var(lfname, lvarname, Alp_bl, ngrid, largest, .FALSE.)
@@ -1182 +1184 @@
 
       lfname='thermcell_main last computations on Alp_bl'
+      lvarname = 'pplay'
+      CALL check_var3D(lfname, lvarname, pplay, ngrid, nlay, largest*10.e4, .FALSE.)
       lvarname = 'alp_int'
       CALL check_var(lfname, lvarname, alp_int, ngrid, largest*10.e4, .FALSE.)