Changeset 107 in lmdz_wrf

Timestamp:

Jul 25, 2014, 4:55:00 PM (10 years ago)

Author:

lfita

Message:

Fixing wrong CALL to 'check_var'

File:

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

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_flux2.F90

@@ -263 +263 @@
       lfname='thermcell_flux2 after fraca croissant ' //lS
       lvarname = 'fm'
-      CALL check_var(lfname, lvarname, fm(:,l), ngrid, klev+1, largest, .FALSE.)
+      CALL check_var(lfname, lvarname, fm(:,l), ngrid, largest, .FALSE.)
 !      lvarname = '1/zw2'
-!      CALL check_var(lfname, lvarname, 1./zw2(:,l), ngrid, klev+1, largest, .FALSE.)
+!      CALL check_var(lfname, lvarname, 1./zw2(:,l), ngrid, largest, .FALSE.)
 !      lvarname = '1/rhobarz'
-!      CALL check_var(lfname, lvarname, 1./rhobarz(:,l), ngrid, klev+1, largest, .FALSE.)
+!      CALL check_var(lfname, lvarname, 1./rhobarz(:,l), ngrid, largest, .FALSE.)
       lvarname = 'entr'
       CALL check_var(lfname, lvarname, entr(:,l), ngrid, largest, .FALSE.)
@@ -296 +296 @@
       lfname='thermcell_flux2 after massa croissant ' // lS
       lvarname = 'fm'
-      CALL check_var(lfname, lvarname, fm(:,l), ngrid, klev+1, largest, .FALSE.)
+      CALL check_var(lfname, lvarname, fm(:,l), ngrid, largest, .FALSE.)
       lvarname = 'entr'
-      CALL check_var(lfname, lvarname, entr(:,l), ngrid, klev, largest, .FALSE.)
+      CALL check_var(lfname, lvarname, entr(:,l), ngrid, largest, .FALSE.)
       lvarname = 'detr'
-      CALL check_var(lfname, lvarname, detr(:,l), ngrid, klev, largest, .FALSE.)
+      CALL check_var(lfname, lvarname, detr(:,l), ngrid, largest, .FALSE.)
 
       if (prt_level.ge.10) &