Changeset 83 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3/lmdz/physiq.F90

Timestamp:

Jul 25, 2014, 11:02:47 AM (10 years ago)

Author:

lfita

Message:

It seems that d_t_ajs is not well initialized?

File:

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

branches/LMDZ_WRFmeas/WRFV3/lmdz/physiq.F90

@@ -2769 +2769 @@
 !c      detr_therm(:,:)=0.
 !c
-      lfname='before thermals'
+      lfname='physiq before thermals'
       lvarname = 't_seri'
       CALL check_var3D(lfname, lvarname, t_seri, klon, klev, largest, .FALSE.)
       lvarname = 'q_seri'
       CALL check_var3D(lfname, lvarname, q_seri, klon, klev, largest, .FALSE.)
-      lvarname = 'd_t_ajsb'
-      CALL check_var3D(lfname, lvarname, d_t_ajsb, klon, klev, largest, .FALSE.)
-      lvarname = 'd_q_ajsb'
-      CALL check_var3D(lfname, lvarname, d_q_ajsb, klon, klev, largest, .FALSE.)
+      lvarname = 'd_t_ajs'
+      CALL check_var3D(lfname, lvarname, d_t_ajs, klon, klev, largest, .FALSE.)
+      lvarname = 'd_q_ajs'
+      CALL check_var3D(lfname, lvarname, d_q_ajs, klon, klev, largest, .FALSE.)
 
       IF(prt_level>9)WRITE(lunout,*)                                                 &
@@ -2828 +2828 @@
        &      ,zqla,ztva )
 
-      lfname='just after thermals'
+      lfname='physiq just after thermals'
       lvarname = 't_seri'
       CALL check_var3D(lfname, lvarname, t_seri, klon, klev, largest, .FALSE.)
       lvarname = 'q_seri'
       CALL check_var3D(lfname, lvarname, q_seri, klon, klev, largest, .FALSE.)
-      lvarname = 'd_t_ajsb'
-      CALL check_var3D(lfname, lvarname, d_t_ajsb, klon, klev, largest, .FALSE.)
-      lvarname = 'd_q_ajsb'
-      CALL check_var3D(lfname, lvarname, d_q_ajsb, klon, klev, largest, .FALSE.)
+      lvarname = 'd_t_ajs'
+      CALL check_var3D(lfname, lvarname, d_t_ajs, klon, klev, largest, .FALSE.)
+      lvarname = 'd_q_ajs'
+      CALL check_var3D(lfname, lvarname, d_q_ajs, klon, klev, largest, .FALSE.)
 
 !ccc nrlmd le 10/04/2012