Changeset 164 in lmdz_wrf

Timestamp:

Aug 8, 2014, 2:16:39 PM (10 years ago)

Author:

lfita

Message:

Checking more properly 'q_seri'

File:

• branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/physiq.F90 (modified) (13 diffs)

branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/physiq.F90

@@ -1898 +1898 @@
       varnamechk = 'ql'
       CALL check_var3D(fname, varnamechk, qx(:,:,2), klon, klev, largest, .FALSE.)
-
+      varnamechk = 'qv'
+      CALL threscheck_var3D(fname, varnamechk, qx(:,:,1), klon, klev, 0.,-1, .FALSE.)
 !c
 !
@@ -2029 +2030 @@
       varnamechk = 'q_seri'
       CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.)
+      varnamechk = 'q_seri'
+      CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0.,-1, .FALSE.)
 
 !c Diagnostiquer la tendance dynamique
@@ -2205 +2208 @@
       varnamechk = 'q_seri'
       CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.)
+      varnamechk = 'q_seri'
+      CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0.,-1, .FALSE.)
 !c
 !c=========================================================================
@@ -2326 +2331 @@
       varnamechk = 'q_seri'
       CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.)
-
+      varnamechk = 'q_seri'
+      CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0.,-1, .FALSE.)
 !-----------------------------------------------------------------------------------------
 ! ajout des tendances de la diffusion turbulente
@@ -2372 +2378 @@
       varnamechk = 'q_seri'
       CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.)
+      varnamechk = 'q_seri'
+      CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0.,-1, .FALSE.)
 
 !c =================================================================== c
@@ -2749 +2757 @@
       varnamechk = 'q_seri'
       CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.)
+      varnamechk = 'q_seri'
+      CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0.,-1, .FALSE.)
 
       IF (check) THEN
@@ -2878 +2888 @@
       varnamechk = 'q_seri'
       CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.)
+      varnamechk = 'q_seri'
+      CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0.,-1, .FALSE.)
 
 !c      print*,'apres callwake iflag_cldcon=', iflag_cldcon
@@ -3121 +3133 @@
       varnamechk = 'q_seri'
       CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.)
+      varnamechk = 'q_seri'
+      CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0.,-1, .FALSE.)
 
 !c-------------------------------------------------------------------------
@@ -3203 +3217 @@
       varnamechk = 'q_seri'
       CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.)
+      varnamechk = 'q_seri'
+      CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0.,-1, .FALSE.)
 
       if (mydebug) then
@@ -3451 +3467 @@
       varnamechk = 'q_seri'
       CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.)
+      varnamechk = 'q_seri'
+      CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0.,-1, .FALSE.)
 
 !c
@@ -4027 +4045 @@
       varnamechk = 'q_seri'
       CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.)
+      varnamechk = 'q_seri'
+      CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0.,-1, .FALSE.)
+
 !c
 !c
@@ -4154 +4175 @@
       varnamechk = 'q_seri'
       CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.)
+      varnamechk = 'q_seri'
+      CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0.,-1, .FALSE.)
 
 !================================================================
@@ -4184 +4207 @@
       varnamechk = 'd_t_ec'
       CALL check_var3D(fname, varnamechk, d_t_ec, klon, klev, largest, .FALSE.)
+      varnamechk = 'q_seri'
+      CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0.,-1, .FALSE.)
 
 !IM