Changeset 1188 for palm

Timestamp:

Jun 20, 2013 12:00:08 PM (11 years ago)

Author:

heinze

Message:

Bugfix in modes 'min' and 'max': x and z component were interchange

File:

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

palm/trunk/SOURCE/global_min_max.f90

@@ -21 +21 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix in modes 'min' and 'max': x and z component were interchanged
 !
 ! Former revisions:
@@ -85 +85 @@
 !--    Determine the local minimum
        fmin_ijk_l = MINLOC( ar )
-       fmin_ijk_l(1) = i1 + fmin_ijk_l(1) - nbgp ! MINLOC assumes lowerbound = 1
+       fmin_ijk_l(1) = i1 + fmin_ijk_l(1) - 1 ! MINLOC assumes lowerbound = 1
        fmin_ijk_l(2) = j1 + fmin_ijk_l(2) - nbgp
-       fmin_ijk_l(3) = k1 + fmin_ijk_l(3) - 1
+       fmin_ijk_l(3) = k1 + fmin_ijk_l(3) - nbgp
        fmin_l(1)  = ar(fmin_ijk_l(1),fmin_ijk_l(2),fmin_ijk_l(3))
 
@@ -126 +126 @@
 !--    Determine the local maximum
        fmax_ijk_l = MAXLOC( ar )
-       fmax_ijk_l(1) = i1 + fmax_ijk_l(1) - nbgp ! MAXLOC assumes lowerbound = 1
+       fmax_ijk_l(1) = i1 + fmax_ijk_l(1) - 1 ! MAXLOC assumes lowerbound = 1
        fmax_ijk_l(2) = j1 + fmax_ijk_l(2) - nbgp
-       fmax_ijk_l(3) = k1 + fmax_ijk_l(3) - 1
+       fmax_ijk_l(3) = k1 + fmax_ijk_l(3) - nbgp
        fmax_l(1) = ar(fmax_ijk_l(1),fmax_ijk_l(2),fmax_ijk_l(3))