Changeset 3678 for palm/trunk/UTIL/inifor/src/inifor_transform.f90

Timestamp:

Jan 17, 2019 2:12:17 PM (5 years ago)

Author:

eckhard

Message:

inifor: bugfix: avoid empty averaging regions, check if all input files are present

File:

• palm/trunk/UTIL/inifor/src/inifor_transform.f90 (modified) (2 diffs)

palm/trunk/UTIL/inifor/src/inifor_transform.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Check if set of averaging columns is empty
+! 
+! 
+! 3618 2018-12-10 13:25:22Z eckhard
 ! Prefixed all INIFOR modules with inifor_, removed unused variables
 ! 
@@ -226 +230 @@
        REAL(dp) ::  ni
 
-       IF (SIZE(ii) .NE. SIZE(jj))  THEN
+       IF (SIZE(ii) /= SIZE(jj))  THEN
           message = "Length of 'ii' and 'jj' index lists do not match." //     &
              NEW_LINE(' ') // "ii has " // str(SIZE(ii)) // " elements, " //   &
              NEW_LINE(' ') // "jj has " // str(SIZE(jj)) // "."
+          CALL inifor_abort('average_2d', message)
+       END IF
+
+       IF (SIZE(ii) == 0)  THEN
+          message = "No columns to average over; " //                          &
+                    "size of index lists 'ii' and 'jj' is zero."
           CALL inifor_abort('average_2d', message)
        END IF