Changeset 253 for palm/trunk/SOURCE

Timestamp:

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

Author:

raasch

Message:

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

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• time_integration.f90 (modified) (2 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -42 +42 @@
 (cpu_log)
 
-advec_particles, check_parameters, cpu_log, init_particles
+Bugfix: output if particle time series only if particle advection is switched
+on. (time_integration)
+
+advec_particles, check_parameters, cpu_log, init_particles, time_integration

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