Changeset 240 in lmdz_wrf for trunk/WRFV3/lmdz

Timestamp:

Feb 2, 2015, 1:05:23 PM (10 years ago)

Author:

lfita

Message:

Adding map factor on tendencies

File:

• trunk/WRFV3/lmdz/diagphy_mod.F90 (modified) (7 diffs)

trunk/WRFV3/lmdz/diagphy_mod.F90

@@ -164 +164 @@
         PRINT *,'    fs_bound = stops-stopl - (ssols+ssoll)+ssens+sfront'
         PRINT *,'    airetot= ',airetot
-        IF (airetot .NE. airetot .OR. ABS(airetot) > largest*10.e6) THEN
+        IF (airetot .NE. airetot .OR. ABS(airetot) > largest*10.e16) THEN
           varname = 'airephy'
-          CALL check_var(fname, varname, airephy, klon, largest*10.e12, .FALSE.)
+          CALL check_var(fname, varname, airephy, klon, largest*10.e15, .FALSE.)
         END IF
         PRINT *,'    stops= ',stops
@@ -223 +223 @@
         PRINT *,'    evap_tot= ',evap_tot
         PRINT *,'    airetot= ',airetot
-        IF (airetot .NE. airetot .OR. ABS(airetot) > largest*10.e5) THEN
+        IF (airetot .NE. airetot .OR. ABS(airetot) > largest*10.e15) THEN
           varname = 'airephy'
-          CALL check_var(fname, varname, airephy, klon, largest*10.e5, .FALSE.)
+          CALL check_var(fname, varname, airephy, klon, largest*10.e15, .FALSE.)
         END IF
         IF (evap_tot .NE. evap_tot .OR. ABS(evap_tot) > largest) THEN
@@ -673 +673 @@
           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*10.e5) THEN
+          IF (airetot .NE. airetot .OR. ABS(airetot) > largest*10.e15) THEN
             varname = 'airephy'
-            CALL check_var(fname, varname, airephy, klon, largest*10.e5, .FALSE.)
+            CALL check_var(fname, varname, airephy, klon, largest*10.e15, .FALSE.)
           END IF
           PRINT *,'    h_dair_tot= ',h_dair_tot
@@ -718 +718 @@
         PRINT *,'    qw_tot = f(q,ql,qs,airephy,t,paprs)'
         varname = 'airephy'
-        CALL check_var(fname, varname, airephy, klon, largest*10.e5, .FALSE.)
+        CALL check_var(fname, varname, airephy, klon, largest*10.e15, .FALSE.)
         varname = 'q'
         CALL check_var3D(fname, varname, q, klon, klev, largest, .FALSE.)
@@ -738 +738 @@
         PRINT *,'    ql_tot = f(ql,airephy,t,paprs)'
         varname = 'airephy'
-        CALL check_var(fname, varname, airephy, klon, largest*10.e5, .FALSE.)
+        CALL check_var(fname, varname, airephy, klon, largest*10.e15, .FALSE.)
         varname = 'ql'
         CALL check_var3D(fname, varname, ql, klon, klev, largest, .FALSE.)
@@ -754 +754 @@
         PRINT *,'    qs_tot = f(qs,airephy,t,paprs)'
         varname = 'airephy'
-        CALL check_var(fname, varname, airephy, klon, largest*10.e5, .FALSE.)
+        CALL check_var(fname, varname, airephy, klon, largest*10.e15, .FALSE.)
         varname = 'qs'
         CALL check_var3D(fname, varname, qs, klon, klev, largest, .FALSE.)
@@ -770 +770 @@
         PRINT *,'    ec_tot = f(u,v,airephy,t,paprs)'
         varname = 'airephy'
-        CALL check_var(fname, varname, airephy, klon, largest*10.e5, .FALSE.)
+        CALL check_var(fname, varname, airephy, klon, largest*10.e15, .FALSE.)
         varname = 'u'
         CALL check_var3D(fname, varname, u, klon, klev, largest, .FALSE.)