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

Timestamp:

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

Author:

raasch

Message:

particle advection allowed for ocean runs

File:

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

palm/trunk/SOURCE/init_particles.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Set offset_ocean_* needed for calculating vertical indices within ocean runs
 !
 ! Former revisions:
@@ -79 +79 @@
     CALL MPI_TYPE_COMMIT( mpi_particle_type, ierr )
 #endif
+
+!
+!-- In case of oceans runs, the vertical index calculations need an offset,
+!-- because otherwise the k indices will become negative
+    IF ( ocean )  THEN
+       offset_ocean_nzt    = nzt
+       offset_ocean_nzt_m1 = nzt - 1
+    ENDIF
+
 
 !