Changeset 66 in lmdz_wrf for branches/LMDZ_WRFmeas

Timestamp:

Jul 24, 2014, 11:49:24 AM (10 years ago)

Author:

lfita

Message:

Adding 'before thermals checking'

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'
+      lvarname = 't_seri'
+      CALL check_var3D(lfname, varname, t_seri, klon, klev, largest, .FALSE.)
+      lvarname = 'q_seri'
+      CALL check_var3D(lfname, varname, q_seri, klon, klev, largest, .FALSE.)
+      lvarname = 'd_t_ajsb'
+      CALL check_var3D(lfname, varname, d_t_ajsb, klon, klev, largest, .FALSE.)
+      lvarname = 'd_q_ajsb'
+      CALL check_var3D(lfname, varname, d_q_ajsb, klon, klev, largest, .FALSE.)
+
       IF(prt_level>9)WRITE(lunout,*)                                                 &
        &    'AVANT LA CONVECTION SECHE , iflag_thermals='                            &
@@ -2956 +2966 @@
 
       endif
+      lfname='after thermals'
       lvarname = 't_seri'
-      lfname='after thermals'
       CALL check_var3D(lfname, varname, t_seri, klon, klev, largest, .FALSE.)
       lvarname = 'q_seri'