Ignore:
Timestamp:
Oct 8, 2015 7:32:13 AM (6 years ago)
Author:
raasch
Message:

bugfix concerning vertical index calculation for particles in case of ocean runs

File:
1 edited

Legend:

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

    r1683 r1685  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! bugfix concerning vertical index offset in case of ocean
    2222!
    2323! Former revisions:
     
    128128                number_of_initial_tails, number_of_particles,                  &
    129129                number_of_particle_groups, number_of_sublayers,                &
    130                 number_of_tails, offset_ocean_nzt, offset_ocean_nzt_m1,        & 
     130                number_of_tails, offset_ocean_nzt, offset_ocean_nzt_m1,        &
    131131                particles, particle_advection_start, particle_groups,          &
    132132                particle_groups_type, particles_per_point,                     &
     
    760760                            ip = ( tmp_particle%x + 0.5_wp * dx ) * ddx
    761761                            jp = ( tmp_particle%y + 0.5_wp * dy ) * ddy
    762                             kp = tmp_particle%z / dz + 1 + offset_ocean_nzt_m1
     762                            kp = tmp_particle%z / dz + 1 + offset_ocean_nzt
    763763
    764764                            IF ( seed_follows_topography )  THEN
Note: See TracChangeset for help on using the changeset viewer.