Changeset 87 in lmdz_wrf for branches

Timestamp:

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

Author:

lfita

Message:

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

Location:

branches/LMDZ_WRFmeas/WRFV3/lmdz

Files:

• calltherm.F90 (modified) (4 diffs)
• thermcell_main.F90 (modified) (1 diff)

branches/LMDZ_WRFmeas/WRFV3/lmdz/calltherm.F90

@@ -200 +200 @@
       CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
       lvarname = 'Alp'
-      CALL check_var3D(lfname, lvarname, Alp, klon, klev, largest*10.e5, .FALSE.)
+      CALL check_var(lfname, lvarname, Alp, klon, largest*10.e5, .FALSE.)
       lvarname = 'Ale'
-      CALL check_var3D(lfname, lvarname, Ale, klon, klev, largest*10.e5, .FALSE.)
+      CALL check_var(lfname, lvarname, Ale, klon, largest*10.e5, .FALSE.)
 
          zdt=dtime/REAL(nsplit_thermals)
@@ -310 +310 @@
       CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
       lvarname = 'Alp'
-      CALL check_var3D(lfname, lvarname, Alp, klon, klev, largest*10.e5, .FALSE.)
+      CALL check_var(lfname, lvarname, Alp, klon, largest*10.e5, .FALSE.)
       lvarname = 'Ale'
-      CALL check_var3D(lfname, lvarname, Ale, klon, klev, largest*10.e5, .FALSE.)
+      CALL check_var(lfname, lvarname, Ale, klon, largest*10.e5, .FALSE.)
 
        flag_bidouille_stratocu=iflag_thermals<=12.or.iflag_thermals==14.or.iflag_thermals==16.or.iflag_thermals==18
@@ -370 +370 @@
       CALL check_var3D(lfname, lvarname, d_t_the, 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 = 'Alp'
-      CALL check_var3D(lfname, lvarname, Alp, klon, klev, largest*10.e5, .FALSE.)
+      CALL check_var3D(lfname, lvarname, Alp, klon, largest*10.e5, .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.)
       lvarname = 'Ale'
-      CALL check_var3D(lfname, lvarname, Ale, klon, klev, largest*10.e5, .FALSE.)
+      CALL check_var3D(lfname, lvarname, Ale, klon, largest*10.e5, .FALSE.)
 
        DO i=1,klon
@@ -392 +392 @@
       CALL check_var3D(lfname, lvarname, d_t_the, 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, largest, .FALSE.)
       lvarname = 'Alp'
-      CALL check_var3D(lfname, lvarname, Alp, klon, klev, largest*10.e5, .FALSE.)
+      CALL check_var(lfname, lvarname, Alp, klon, largest*10.e5, .FALSE.)
       lvarname = 'Ale_bl'
-      CALL check_var3D(lfname, lvarname, Ale_bl, klon, klev, largest, .FALSE.)
+      CALL check_var(lfname, lvarname, Ale_bl, klon, largest, .FALSE.)
       lvarname = 'Ale'
-      CALL check_var3D(lfname, lvarname, Ale, klon, klev, largest*10.e5, .FALSE.)
+      CALL check_var(lfname, lvarname, Ale, klon, largest*10.e5, .FALSE.)
 
 !IM 060508 marche pas comme cela !!!        enddo ! isplit

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.)