Changeset 81 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3/lmdz/calltherm.F90

Timestamp:

Jul 25, 2014, 10:33:27 AM (10 years ago)

Author:

lfita

Message:

Adding checks for Ale, Alp

File:

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

branches/LMDZ_WRFmeas/WRFV3/lmdz/calltherm.F90

@@ -344 +344 @@
       lvarname = 'd_t_the'
       CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
+      lvarname = 'Alp_bl'
+      CALL check_var3D(lfname, lvarname, Alp_bl, klon, klev, largest, .FALSE.)
+      lvarname = 'Alp'
+      CALL check_var3D(lfname, lvarname, Alp, klon, klev, largest, .FALSE.)
+      lvarname = 'Ale_bl'
+      CALL check_var3D(lfname, lvarname, Ale_bl, klon, klev, largest, .FALSE.)
+      lvarname = 'Ale'
+      CALL check_var3D(lfname, lvarname, Ale, klon, klev, largest, .FALSE.)
 
        DO i=1,klon
@@ -353 +361 @@
         if(prt_level.GE.10) print*,'calltherm i Alp_bl Alp Ale_bl Ale',i,Alp_bl(i),Alp(i),Ale_bl(i),Ale(i)
        ENDDO
+      lfname='after calltherm after computing Al[p/e]_bl'
+      lvarname = 't_seri'
+      CALL check_var3D(lfname, lvarname, t_seri, klon, klev, largest, .FALSE.)
+      lvarname = 'd_t_the'
+      CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
+      lvarname = 'Alp_bl'
+      CALL check_var3D(lfname, lvarname, Alp_bl, klon, klev, largest, .FALSE.)
+      lvarname = 'Alp'
+      CALL check_var3D(lfname, lvarname, Alp, klon, klev, largest, .FALSE.)
+      lvarname = 'Ale_bl'
+      CALL check_var3D(lfname, lvarname, Ale_bl, klon, klev, largest, .FALSE.)
+      lvarname = 'Ale'
+      CALL check_var3D(lfname, lvarname, Ale, klon, klev, largest, .FALSE.)
 
 !IM 060508 marche pas comme cela !!!        enddo ! isplit