Changeset 70 for palm/trunk/SOURCE/palm.f90

Timestamp:

Mar 18, 2007 11:46:30 PM (17 years ago)

Author:

raasch

Message:

bugs fixed for particle code and bc-scheme

File:

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

palm/trunk/SOURCE/palm.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! __vtk directives removed, open unit 9 for debug output
+! __vtk directives removed, write_particles is called only in case of particle
+! advection switched on, open unit 9 for debug output
 !
 ! Former revisions:
@@ -141 +142 @@
 !
 !-- If required, write binary particle data
-    CALL write_particles
+    IF ( particle_advection )  CALL write_particles
 
 !