Changeset 75 in lmdz_wrf for branches/LMDZ_WRFmeas

Timestamp:

Jul 24, 2014, 3:09:16 PM (10 years ago)

Author:

lfita

Message:

Getting right dimensinos...

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_dq.F90 (modified) (4 diffs)

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_dq.F90

@@ -51 +51 @@
       lfname='before old scheme'
       lvarname = 'dq'
-      CALL check_var3D(lfname, lvarname, dq, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, dq, ngrid, nlay, largest, .FALSE.)
 
       if (impl==-1) then
@@ -60 +60 @@
       lfname='after old scheme'
       lvarname = 'dq'
-      CALL check_var3D(lfname, lvarname, dq, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, dq, ngrid, nlay, largest, .FALSE.)
 
 ! Calcul du critere CFL pour l'advection dans la subsidence
@@ -146 +146 @@
       lfname='before tendencies _dq'
       lvarname = 'dq'
-      CALL check_var3D(lfname, lvarname, dq, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, dq, ngrid, nlay, largest, .FALSE.)
 
 ! Tendencies
@@ -157 +157 @@
       lfname='after tendencies _dq'
       lvarname = 'q'
-      CALL check_var3D(lfname, lvarname, q, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, q, ngrid, nlay, largest, .FALSE.)
       lvarname = 'dq'
-      CALL check_var3D(lfname, lvarname, dq, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, dq, ngrid, nlay, largest, .FALSE.)
       lvarname = 'qold'
-      CALL check_var3D(lfname, lvarname, qold, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, qold, ngrid, nlay, largest, .FALSE.)
 
 return