Changeset 1685 for palm/trunk/SOURCE/lpm_exchange_horiz.f90

Timestamp:

Oct 8, 2015 7:32:13 AM (9 years ago)

Author:

raasch

Message:

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

File:

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

palm/trunk/SOURCE/lpm_exchange_horiz.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! bugfix concerning vertical index offset in case of ocean
 ! 
 ! Former revisions:
@@ -85 +85 @@
                maximum_number_of_tailpoints, min_nr_particle,                  &
                mpi_particle_type, number_of_tails, number_of_particles,        &
-               offset_ocean_nzt, offset_ocean_nzt_m1, particles,               &
+               offset_ocean_nzt, particles,                                    &
                particle_tail_coordinates, particle_type, prt_count,            &
                tail_mask, trlp_count_sum,                                      &
@@ -1079 +1079 @@
        ip = ( particle_array(n)%x + 0.5_wp * dx ) * ddx
        jp = ( particle_array(n)%y + 0.5_wp * dy ) * ddy
-       kp = particle_array(n)%z / dz + 1 + offset_ocean_nzt_m1
+       kp = particle_array(n)%z / dz + 1 + offset_ocean_nzt
 
        IF ( ip >= nxl  .AND.  ip <= nxr  .AND.  jp >= nys  .AND.  jp <= nyn    &