Changeset 1743 in lmdz_wrf for trunk/tools/module_scientific.f90

Timestamp:

Dec 16, 2017, 8:47:35 PM (7 years ago)

Author:

lfita

Message:

Giving a -1 value when no closest point is found in 'reconstruct_matrix'

File:

• trunk/tools/module_scientific.f90 (modified) (1 diff)

trunk/tools/module_scientific.f90

@@ -109 +109 @@
           mindiff = MINVAL(diff)
           IF (mindiff > maxdiff) THEN
-            WRITE(RSa, '(f20.10)')mindiff
-            WRITE(RSb, '(f20.10)')maxdiff
-            msg = 'Difference: ' // TRIM(RSa) // ' overpasses the maximum authorized distance: ' //   &
-              TRIM(RSb)
-            CALL ErrMsg(msg, fname, -1)
+            !Assuming no values
+            matind(i,j) = -1
+            !WRITE(RSa, '(f20.10)')mindiff
+            !WRITE(RSb, '(f20.10)')maxdiff
+            !msg = 'Difference: ' // TRIM(RSa) // ' overpasses the maximum authorized distance: ' //   &
+            !  TRIM(RSb)
+            !CALL ErrMsg(msg, fname, -1)
+          ELSE
+            matind(i,j) = mindiffloc(1)
           END IF
-
-          matind(i,j) = mindiffloc(1)
 
         END DO