Changeset 4616


Ignore:
Timestamp:
Jul 21, 2020 10:09:46 AM (4 years ago)
Author:
schwenkel
Message:

Bugfix in case of strechting: k-calculation limited lower bound of 1

File:
1 edited

Legend:

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

    r4589 r4616  
    2020! Current revisions:
    2121! ------------------
    22 ! 
    23 ! 
     22!
     23!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Bugfix in case of strechting: k-calculation limited lower bound of 1
     28!
     29! 4589 2020-07-06 12:34:09Z suehring
    2730! remove unused variables
    2831!
     
    14181421                               IF ( dz_stretch_level /= -9999999.9_wp  .OR.           &
    14191422                                    dz_stretch_level_start(1) /= -9999999.9_wp )  THEN
    1420                                   kp = MINLOC( ABS( tmp_particle%z - zu ), DIM = 1 ) - 1
     1423                                  kp = MAX( MINLOC( ABS( tmp_particle%z - zu ), DIM = 1 ) - 1, 1 )
    14211424                               ELSE
    14221425                                  kp = INT( tmp_particle%z / dz(1) + 1 + offset_ocean_nzt )
     
    78337836       IF ( dz_stretch_level /= -9999999.9_wp  .OR.         &
    78347837            dz_stretch_level_start(1) /= -9999999.9_wp )  THEN
    7835           kp = MINLOC( ABS( particle_array(n)%z - zu ), DIM = 1 ) - 1
     7838          kp = MAX( MINLOC( ABS( particle_array(n)%z - zu ), DIM = 1 ) - 1, 1 )
    78367839       ELSE
    78377840          kp = INT( particle_array(n)%z / dz(1) + 1 + offset_ocean_nzt )
Note: See TracChangeset for help on using the changeset viewer.