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

Timestamp:

Dec 11, 2020 2:23:10 PM (4 years ago)

Author:

raasch

Message:

reverted accidentally changed routines

File:

• palm/trunk/SOURCE/global_min_max.f90 (modified) (1 diff)

palm/trunk/SOURCE/global_min_max.f90

@@ -394 +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