Changeset 36 in lmdz_wrf for branches

Timestamp:

Jul 23, 2014, 1:07:57 PM (10 years ago)

Author:

lfita

Message:

Moving variable definition to lower lines
Including missing 'END IF'

File:

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

branches/LMDZ_WRFmeas/WRFV3/lmdz/diagphy_mod.F90

@@ -79 +79 @@
 !C
       integer pas
+
+      save pas
+      data pas/0/
+!$OMP THREADPRIVATE(pas)
+!C
+
 ! L. Fita, LMD July 2014
       CHARACTER(LEN=50)                                  :: errmsg, fname, varname
@@ -88 +94 @@
       largest = 10000.
 
-      save pas
-      data pas/0/
-!$OMP THREADPRIVATE(pas)
-!C
       pas=pas+1
       stops=0.
@@ -219 +221 @@
           varname = 'evap'
           CALL check_var(fname, varn, evap, klon, largest, .FALSE.)
+        END IF
         PRINT *,'    rain_fall_tot= ',rain_fall_tot
         IF (rain_fall_tot .NE. rain_fall_tot .OR. ABS(rain_fall_tot) > largest) THEN
           varname = 'rain_fall'
           CALL check_var(fname, varn, rain_fall, klon, largest, .FALSE.)
+        END IF
         PRINT *,'    snow_fall_tot= ',snow_fall_tot
         IF (snow_fall_tot .NE. snow_fall_tot .OR. ABS(snow_fall_tot) > largest) THEN
           varname = 'snow_fall'
           CALL check_var(fname, varn, snow_fall, klon, largest, .FALSE.)
+        END IF
         STOP
       END IF
@@ -241 +246 @@
 SUBROUTINE check_var(funcn, varn, var, sizev, bigvalue, stoprun)
 !  Subroutine to check the consistency of a variable
+!    * NaN value: by definition is variable /= variable
+!    * bigvalue: allowd threshold for variable
 
   IMPLICIT NONE
@@ -270 +277 @@
   wrongi = 0
   DO i=1,sizev
-    IF (var(i) /= var(i) .OR. var(i) > bigvalule ) THEN
+    IF (var(i) /= var(i) .OR. ABS(var(i)) > bigvalule ) THEN
       IF (wrongi == 0) found = .TRUE.
       wrongi = wrongi + 1