Changeset 2727 in lmdz_wrf

Timestamp:

Oct 17, 2019, 9:21:21 PM (5 years ago)

Author:

lfita

Message:

Fixing zero indices analysis

File:

• trunk/tools/module_generic.f90 (modified) (2 diffs)

trunk/tools/module_generic.f90

@@ -1354 +1354 @@
     INTEGER                                              :: ii, ij, oi, oj, il
     INTEGER                                              :: isame, osame, irun, orun
-    INTEGER                                              :: ilx, olx
+    INTEGER                                              :: ilx, olx, iln, oln
     CHARACTER(len=3)                                     :: isS, osS
 
@@ -1396 +1396 @@
     END IF
 
+    iln = MINVAL(inlist)
+    oln = MINVAL(olist)
+
+    IF (iln < 1) THEN
+      WRITE(isS,'(I3)')iln
+      msg = 'Incorrect minimum input index: ' // isS // ' Negative or zero indices not allowed !!'
+      CALL ErrMsg(msg, fname, -1)
+    END IF
+
+    IF (oln < 1) THEN
+      WRITE(isS,'(I3)')oln
+      msg = 'Incorrect minimum output index: ' // isS // ' Negative or zero indices not allowed !!'
+      CALL ErrMsg(msg, fname, -1)
+    END IF
+
     ilx = MAXVAL(inlist)
     olx = MAXVAL(olist)