Ignore:
Timestamp:
Mar 5, 2009 4:22:39 AM (13 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/time_integration.f90

    r198 r253  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix: output if particle time series only if particle advection is switched
     7!         on
    78!
    89! Former revisions:
     
    494495!
    495496!--    Output of particle time series
    496        IF ( time_dopts >= dt_dopts  .OR. &
    497             ( simulated_time >= particle_advection_start  .AND. &
    498               first_call_advec_particles ) )  THEN
    499           CALL data_output_ptseries
    500           time_dopts = MOD( time_dopts, MAX( dt_dopts, dt_3d ) )
     497       IF ( particle_advection )  THEN
     498          IF ( time_dopts >= dt_dopts  .OR. &
     499               ( simulated_time >= particle_advection_start  .AND. &
     500                 first_call_advec_particles ) )  THEN
     501             CALL data_output_ptseries
     502             time_dopts = MOD( time_dopts, MAX( dt_dopts, dt_3d ) )
     503          ENDIF
    501504       ENDIF
    502505
Note: See TracChangeset for help on using the changeset viewer.