Changeset 4822 for palm/trunk/SOURCE/global_min_max.f90

Timestamp:

Dec 11, 2020 2:18:43 PM (4 years ago)

Author:

raasch

Message:

reading of namelist file and actions in case of namelist errors revised so that statement labels and goto statements are not required any more

File:

• palm/trunk/SOURCE/global_min_max.f90 (modified) (2 diffs)

palm/trunk/SOURCE/global_min_max.f90

@@ -375 +375 @@
           value     = fmax(1)
           value_ijk = fmax_ijk
-          IF ( fmax_ijk(1) < 0 )  THEN
+          IF ( fmax_ijk(1) <= -10 )  THEN
+!
+!--          Index needs to be corrected because it has been modified above to indicate negative
+!--          values
+             value_ijk(1) = -value_ijk(1) - 10
+!
+!--          For this reason also change the sign of the quantity
              value        = -value
-             value_ijk(1) = -value_ijk(1) - 10         !???
           ENDIF
 
@@ -389 +394 @@
     IF ( value_ijk(2) > ny ) value_ijk(2) = value_ijk(2) - (ny+1)
 
+    WRITE (9,*) 'global_min_max: value = ', value, ' kji = ', value_ijk, ' ar=', &
+                ar(value_ijk(1),value_ijk(2),value_ijk(3))
 
  END SUBROUTINE global_min_max