Changeset 212 for palm/trunk/SOURCE

Timestamp:

Nov 11, 2008 9:09:24 AM (15 years ago)

Author:

raasch

Message:

manual updated for changes in the user interface

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• advec_particles.f90 (modified) (4 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -42 +42 @@
 dwdy, dvdx and dwdx. (production_e)
 
-combine_plot_fields, header, production_e
+Bugfix in calculating k index in case of oceans runs. (sort_particles)
+
+advec_particles, combine_plot_fields, header, production_e

palm/trunk/SOURCE/advec_particles.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! Bugfix in calculating k index in case of oceans runs (sort_particles)
 ! TEST: PRINT statements on unit 9 (commented out)
 !
@@ -1875 +1876 @@
 
 !
-!--    User-defined actions after the evaluation of the new particle position
+!--    User-defined actions after the calculation of the new particle position
        CALL user_advec_particles
 
@@ -3890 +3891 @@
        i = ( particles(n)%x + 0.5 * dx ) * ddx
        j = ( particles(n)%y + 0.5 * dy ) * ddy
-       k = particles(n)%z / dz + 1 + offset_ocean_nzt_m1
+       k = particles(n)%z / dz + 1 + offset_ocean_nzt
            ! only exact if equidistant
 
@@ -3925 +3926 @@
        i = ( particles(n)%x + 0.5 * dx ) * ddx
        j = ( particles(n)%y + 0.5 * dy ) * ddy
-       k = particles(n)%z / dz + 1 + offset_ocean_nzt_m1
+       k = particles(n)%z / dz + 1 + offset_ocean_nzt
            ! only exact if equidistant