Changeset 1188 for palm/trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/global_min_max.f90

    r1037 r1188  
    2121! Current revisions:
    2222! ------------------
    23 !
     23! Bugfix in modes 'min' and 'max': x and z component were interchanged
    2424!
    2525! Former revisions:
     
    8585!--    Determine the local minimum
    8686       fmin_ijk_l = MINLOC( ar )
    87        fmin_ijk_l(1) = i1 + fmin_ijk_l(1) - nbgp ! MINLOC assumes lowerbound = 1
     87       fmin_ijk_l(1) = i1 + fmin_ijk_l(1) - 1 ! MINLOC assumes lowerbound = 1
    8888       fmin_ijk_l(2) = j1 + fmin_ijk_l(2) - nbgp
    89        fmin_ijk_l(3) = k1 + fmin_ijk_l(3) - 1
     89       fmin_ijk_l(3) = k1 + fmin_ijk_l(3) - nbgp
    9090       fmin_l(1)  = ar(fmin_ijk_l(1),fmin_ijk_l(2),fmin_ijk_l(3))
    9191
     
    126126!--    Determine the local maximum
    127127       fmax_ijk_l = MAXLOC( ar )
    128        fmax_ijk_l(1) = i1 + fmax_ijk_l(1) - nbgp ! MAXLOC assumes lowerbound = 1
     128       fmax_ijk_l(1) = i1 + fmax_ijk_l(1) - 1 ! MAXLOC assumes lowerbound = 1
    129129       fmax_ijk_l(2) = j1 + fmax_ijk_l(2) - nbgp
    130        fmax_ijk_l(3) = k1 + fmax_ijk_l(3) - 1
     130       fmax_ijk_l(3) = k1 + fmax_ijk_l(3) - nbgp
    131131       fmax_l(1) = ar(fmax_ijk_l(1),fmax_ijk_l(2),fmax_ijk_l(3))
    132132
Note: See TracChangeset for help on using the changeset viewer.