Changeset 87 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

Timestamp:

Jul 25, 2014, 11:46:21 AM (10 years ago)

Author:

lfita

Message:

Alp,Ale,Ale_bl,Alp_bl are 1D!!!!!

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90 (modified) (1 diff)

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

@@ -1232 +1232 @@
       CALL check_var3D(lfname, lvarname, pdtadj, klon, klev, largest, .FALSE.)
       lvarname = 'Alp_bl'
-      CALL check_var3D(lfname, lvarname, Alp_bl, klon, klev, largest, .FALSE.)
+      CALL check_var(lfname, lvarname, Alp_bl, klon, klev, largest, .FALSE.)
       lvarname = 'Ale_bl'
-      CALL check_var3D(lfname, lvarname, Ale_bl, klon, klev, largest, .FALSE.)
+      CALL check_var(lfname, lvarname, Ale_bl, klon, klev, largest, .FALSE.)