Changeset 150 for palm/trunk/SOURCE/modules.f90

Timestamp:

Feb 29, 2008 8:19:58 AM (17 years ago)

Author:

raasch

Message:

particle advection allowed for ocean runs

File:

• palm/trunk/SOURCE/modules.f90 (modified) (2 diffs)

palm/trunk/SOURCE/modules.f90

@@ -6 +6 @@
 ! -----------------
 ! +hor_index_bounds, hor_index_bounds_previous_run, numprocs_previous_run,
-! nx_on_file, ny_on_file
+! nx_on_file, ny_on_file, offset_ocean_*
 ! -myid_char_14
 !
@@ -880 +880 @@
                 number_of_initial_particles = 0, number_of_particles = 0,      &
                 number_of_particle_groups = 1, number_of_tails = 0,            &
-                number_of_initial_tails = 0, particles_per_point = 1,          &
+                number_of_initial_tails = 0, offset_ocean_nzt = 0,             &
+                offset_ocean_nzt_m1 = 0, particles_per_point = 1,              &
                 particle_file_count = 0, skip_particles_for_tail = 100,        &
                 total_number_of_particles, total_number_of_tails = 0