Changeset 98 in lmdz_wrf

Timestamp:

Jul 25, 2014, 3:28:06 PM (10 years ago)

Author:

lfita

Message:

fixing some wrong variables

File:

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

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

@@ -548 +548 @@
 !     print*,"ZMAX ",lalim,lmin,linter,lmix,lmax,zmax,zmax0,zmix,wmax
 
-
+      lfname='after thermcell_height'
+      lvarname = 'zw2'
+      CALL check_var3D(lfname, lvarname, zw2, ngrid, nlay+1, largest, .FALSE.)
 
       call test_ltherm(ngrid,nlay,pplev,pplay,lalim,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_heig lalim ')
@@ -619 +621 @@
       lvarname = 'fm'
       CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
-      lvarname = 'fm'
-      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
       lvarname = 'entr'
-      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, entr, ngrid, nlay, largest, .FALSE.)
       lvarname = 'detr'
-      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, detr, ngrid, nlay, largest, .FALSE.)
       lvarname = 'zgla'
-      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, zgla, ngrid, nlay, largest, .FALSE.)
       lvarname = 'zw2'
-      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay+1, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, zw2, ngrid, nlay+1, largest, .FALSE.)
 
       CALL thermcell_flux2(ngrid,nlay,ptimestep,masse, &
@@ -639 +639 @@
       CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
       lvarname = 'zw2'
-      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay+1, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, zw2, ngrid, nlay+1, largest, .FALSE.)
 
       if (prt_level.ge.1) print*,'thermcell_main apres thermcell_flux'
@@ -678 +678 @@
       CALL check_var3D(lfname, lvarname, zdthladj, ngrid, nlay, largest, .FALSE.)
 
+      lfname='thermcell_main before fraction ascendance'
+      lvarname = 'fm'
+      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'zw2'
+      CALL check_var3D(lfname, lvarname, zw2, ngrid, nlay+1, largest, .FALSE.)
+
 !------------------------------------------------------------------
 ! Calcul de la fraction de l'ascendance
@@ -703 +709 @@
       lvarname = 'pdtadj'
       CALL check_var3D(lfname, lvarname, pdtadj, ngrid, nlay, largest, .FALSE.)
+      lvarname = 'zw2'
+      CALL check_var3D(lfname, lvarname, zw2, ngrid, nlay+1, largest, .FALSE.)
 
 !IM 090508