Changeset 253 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Mar 5, 2009 4:22:39 AM (15 years ago)

Author:

raasch

Message:

small adjustments for NEC at RIAM; bugfix concerning output of particle timeseries

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: output if particle time series only if particle advection is switched
+!         on
 !
 ! Former revisions:
@@ -494 +495 @@
 !
 !--    Output of particle time series
-       IF ( time_dopts >= dt_dopts  .OR. &
-            ( simulated_time >= particle_advection_start  .AND. &
-              first_call_advec_particles ) )  THEN
-          CALL data_output_ptseries
-          time_dopts = MOD( time_dopts, MAX( dt_dopts, dt_3d ) )
+       IF ( particle_advection )  THEN
+          IF ( time_dopts >= dt_dopts  .OR. &
+               ( simulated_time >= particle_advection_start  .AND. &
+                 first_call_advec_particles ) )  THEN
+             CALL data_output_ptseries
+             time_dopts = MOD( time_dopts, MAX( dt_dopts, dt_3d ) )
+          ENDIF
        ENDIF