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

Timestamp:

Jul 25, 2014, 10:43:37 AM (10 years ago)

Author:

lfita

Message:

Fixing labels

File:

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

branches/LMDZ_WRFmeas/WRFV3/lmdz/calltherm.F90

@@ -182 +182 @@
          enddo
          if(nbptspb.GT.0) print*,'Number of points with q_seri(i,k)<=0 ',nbptspb   
+      lfname='calltherm before thermcell_main'
+      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'
+      CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
+      lvarname = 'Ale'
+      CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
 
          zdt=dtime/REAL(nsplit_thermals)
@@ -283 +292 @@
 ! Ce serait bien de changer, mai en prenant le temps de vérifier que ca
 ! fait bien ce qu'on croit.
-      lfname='after thermcell_main'
+      lfname='calltherm after thermcell_main'
       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'
+      CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
+      lvarname = 'Ale'
       CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
 
@@ -339 +352 @@
             q_seri(:,:) = q_seri(:,:) + d_q_the(:,:)
            if (prt_level.gt.10) write(lunout,*)'Apres apres thermcell_main OK'
-      lfname='after thermcell_main add tendencies'
+      lfname='calltherm after add tendencies'
       lvarname = 't_seri'
       CALL check_var3D(lfname, lvarname, t_seri, klon, klev, largest, .FALSE.)
@@ -347 +360 @@
       CALL check_var3D(lfname, lvarname, Alp_bl, klon, klev, largest, .FALSE.)
       lvarname = 'Alp'
-      CALL check_var3D(lfname, lvarname, Alp, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, Alp, klon, klev, largest*10.e5, .FALSE.)
       lvarname = 'Ale_bl'
       CALL check_var3D(lfname, lvarname, Ale_bl, klon, klev, largest, .FALSE.)
@@ -361 +374 @@
         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'
+      lfname='calltherm after computing Al[p/e]_bl'
       lvarname = 't_seri'
       CALL check_var3D(lfname, lvarname, t_seri, klon, klev, largest, .FALSE.)