Changeset 88 in lmdz_wrf for branches

Timestamp:

Jul 25, 2014, 12:17:49 PM (10 years ago)

Author:

lfita

Message:

More checks...
Including zdthladj variable initialization

Location:

branches/LMDZ_WRFmeas/WRFV3/lmdz

Files:

• physiq.F90 (modified) (1 diff)
• thermcell_main.F90 (modified) (3 diffs)

branches/LMDZ_WRFmeas/WRFV3/lmdz/physiq.F90

@@ -4431 +4431 @@
     PRINT *,TRIM(errmsg)
     PRINT *,"  at '" // TRIM(funcn) // "' variable '" //TRIM(varn)//                 &
-      "' is wrong in Nvalues= ",wrongi,' at i (x, y) value___'
+      "' is wrong in Nvalues= ",wrongi,' at i (x, y) value___', bigvalue
     DO i=1,wrongi
        ypt = INT(wronggridpt(i)/wiim) + 1

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

@@ -260 +260 @@
       largest = 10.e5
 
+! L. Fita, LMD July 2014. Initializing variables
+     zdthladj = 0.
+
 !-----------------------------------------------------------------------
 !   initialisation:
@@ -655 +658 @@
 !   calcul du transport vertical
 !------------------------------------------------------------------
+
       lfname='before transport_vertical'
       lvarname = 'zdthladj'
@@ -1176 +1180 @@
       Alp_bl(:)=alp_bl_k*Alp_bl(:)
 
+      lfname='thermcell_main last computations on Alp_bl'
+      lvarname = 'alp_int'
+      CALL check_var(lfname, lvarname, alp_int, klon, largest, .FALSE.)
+      lvarname = 'dp_int'
+      CALL check_var3D(lfname, lvarname, dp_int, klon, largest, .FALSE.)
+      lvarname = 'Alp_bl'
+      CALL check_var(lfname, lvarname, Alp_bl, klon, klev, largest, .FALSE.)
+
 !------------------------------------------------------------------------