Changeset 495 for palm


Ignore:
Timestamp:
Mar 2, 2010 12:40:15 AM (14 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

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

    r484 r495  
    44! Current revisions:
    55! -----------------
    6 !
     6! Particle data for restart runs are only written if write_binary=true
    77!
    88! Former revisions:
     
    165165
    166166!
    167 !-- Integration of the model equations using the leap-frog scheme
     167!-- Integration of the model equations using timestep-scheme
    168168    CALL time_integration
    169169
    170170!
    171 !-- If required, write binary data for model continuation runs
    172     IF ( write_binary(1:4) == 'true' )  CALL write_3d_binary
    173 
    174 !
    175 !-- If required, write binary particle data
    176     IF ( particle_advection )  CALL write_particles
     171!-- If required, write binary data for restart runs
     172    IF ( write_binary(1:4) == 'true' )  THEN
     173!
     174!--    Write flow field data
     175       CALL write_3d_binary
     176!
     177!--    If required, write particle data
     178       IF ( particle_advection )  CALL write_particles
     179    ENDIF
    177180
    178181!
Note: See TracChangeset for help on using the changeset viewer.