Changeset 39 in lmdz_wrf for branches/LMDZ_WRFmeas

Timestamp:

Jul 23, 2014, 2:30:02 PM (10 years ago)

Author:

lfita

Message:

Increasing largest value for airephy

File:

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

branches/LMDZ_WRFmeas/WRFV3/lmdz/diagphy_mod.F90

@@ -92 +92 @@
       fname = 'diagphy'
       errmsg = 'ERROR -- error -- ERROR -- error'
-      largest = 10000.
+      largest = 10.e3
 
       pas=pas+1
@@ -166 +166 @@
         IF (airetot .NE. airetot .OR. ABS(airetot) > largest) THEN
           varname = 'airephy'
-          CALL check_var(fname, varname, airephy, klon, largest, .FALSE.)
+          CALL check_var(fname, varname, airephy, klon, largest*10.e9, .FALSE.)
         END IF
         PRINT *,'    stops= ',stops