Changeset 495 for palm/trunk

Timestamp:

Mar 2, 2010 12:40:15 AM (15 years ago)

Author:

raasch

Message:

Particle data for restart runs are only written if write_binary=true

File:

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

palm/trunk/SOURCE/palm.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Particle data for restart runs are only written if write_binary=true
 !
 ! Former revisions:
@@ -165 +165 @@
 
 !
-!-- Integration of the model equations using the leap-frog scheme
+!-- Integration of the model equations using timestep-scheme
     CALL time_integration
 
 !
-!-- If required, write binary data for model continuation runs
-    IF ( write_binary(1:4) == 'true' )  CALL write_3d_binary
-
-!
-!-- If required, write binary particle data
-    IF ( particle_advection )  CALL write_particles
+!-- If required, write binary data for restart runs
+    IF ( write_binary(1:4) == 'true' )  THEN
+!
+!--    Write flow field data
+       CALL write_3d_binary
+!
+!--    If required, write particle data
+       IF ( particle_advection )  CALL write_particles
+    ENDIF
 
 !