Changeset 51 in lmdz_wrf

Timestamp:

Jul 23, 2014, 5:06:27 PM (10 years ago)

Author:

lfita

Message:

Changing largest values

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/diagphy_mod.F90 (modified) (6 diffs)

branches/LMDZ_WRFmeas/WRFV3/lmdz/diagphy_mod.F90

@@ -92 +92 @@
       fname = 'diagphy'
       errmsg = 'ERROR -- error -- ERROR -- error'
-      largest = 10.e3
+      largest = 10.e4
 
       pas=pas+1
@@ -164 +164 @@
         PRINT *,'    fs_bound = stops-stopl - (ssols+ssoll)+ssens+sfront'
         PRINT *,'    airetot= ',airetot
-        IF (airetot .NE. airetot .OR. ABS(airetot) > largest) THEN
+        IF (airetot .NE. airetot .OR. ABS(airetot) > largest*10.e6) THEN
           varname = 'airephy'
-          CALL check_var(fname, varname, airephy, klon, largest*10.e9, .FALSE.)
+          CALL check_var(fname, varname, airephy, klon, largest*10.e6, .FALSE.)
         END IF
         PRINT *,'    stops= ',stops
@@ -216 +216 @@
       END IF
 
-      IF (fq_bound .NE. fq_bound .OR. ABS(fq_bound) > 100000.) THEN
+      IF (fq_bound .NE. fq_bound .OR. ABS(fq_bound) > largest) THEN
         PRINT *,TRIM(errmsg)
         PRINT *,'  ' // TRIM(fname) // ': Wrong fq_bound= ',fs_bound,' !!!'
@@ -223 +223 @@
         PRINT *,'    evap_tot= ',evap_tot
         PRINT *,'    airetot= ',airetot
-        IF (airetot .NE. airetot .OR. ABS(airetot) > largest) THEN
+        IF (airetot .NE. airetot .OR. ABS(airetot) > largest*10.e5) THEN
           varname = 'airephy'
-          CALL check_var(fname, varname, airephy, klon, largest, .FALSE.)
+          CALL check_var(fname, varname, airephy, klon, largest*10.e5, .FALSE.)
         END IF
         IF (evap_tot .NE. evap_tot .OR. ABS(evap_tot) > largest) THEN
@@ -449 +449 @@
       fname = 'diagetpq'
       errmsg = 'ERROR -- error -- ERROR -- error'
-      largest = 10.e3
+      largest = 10.e4
 !c======================================================================
 !C
@@ -603 +603 @@
           PRINT *,'      h_vcol_tot = h_dair_tot+h_qw_tot+h_ql_tot+h_qs_tot'
           PRINT *,'    airetot= ',airetot
-          IF (airetot .NE. airetot .OR. ABS(airetot) > largest) THEN
+          IF (airetot .NE. airetot .OR. ABS(airetot) > largest*10.e5) THEN
             varname = 'airephy'
-            CALL check_var(fname, varname, airephy, klon, largest, .FALSE.)
+            CALL check_var(fname, varname, airephy, klon, largest*10.e5, .FALSE.)
           END IF
           PRINT *,'    h_dair_tot= ',h_dair_tot
-          IF (h_dair_tot .NE. h_dair_tot .OR. ABS(h_dair_tot) > largest) THEN
+          IF (h_dair_tot .NE. h_dair_tot .OR. ABS(h_dair_tot) > largest*10.e6) THEN
             varname = 'zh_dair_col'
-            CALL check_var(fname, varname, zh_dair_col, klon, largest, .FALSE.)
+            CALL check_var(fname, varname, zh_dair_col, klon, largest*10.e6, .FALSE.)
           END IF
           PRINT *,'    h_qw_tot= ',h_qw_tot
-          IF (h_qw_tot .NE. h_qw_tot .OR. ABS(h_qw_tot) > largest) THEN
+          IF (h_qw_tot .NE. h_qw_tot .OR. ABS(h_qw_tot) > largest*10.e4) THEN
             varname = 'zh_qw_col'
-            CALL check_var(fname, varname, zh_qw_col, klon, largest, .FALSE.)
+            CALL check_var(fname, varname, zh_qw_col, klon, largest*10.e4, .FALSE.)
           END IF
           PRINT *,'    h_ql_tot= ',h_ql_tot
-          IF (h_ql_tot .NE. h_ql_tot .OR. ABS(h_ql_tot) > largest) THEN
+          IF (h_ql_tot .NE. h_ql_tot .OR. ABS(h_ql_tot) > largest*10.e2) THEN
             varname = 'zh_ql_col'
-            CALL check_var(fname, varname, zh_ql_col, klon, largest, .FALSE.)
+            CALL check_var(fname, varname, zh_ql_col, klon, largest*10.e2, .FALSE.)
           END IF
           PRINT *,'    h_qs_tot= ',h_qs_tot