Ignore:
Timestamp:
Sep 7, 2010 3:17:00 PM (11 years ago)
Author:
weinreis
Message:
 
File:
1 edited

Legend:

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

    r557 r559  
    7474    CHARACTER (LEN=9) ::  time_to_string
    7575    CHARACTER (LEN=1) ::  cdum
    76     INTEGER           ::  i, rbs, run_description_header_i(80)
     76    INTEGER           ::  i, run_description_header_i(80)
    7777
    7878    version = 'PALM 3.7a'
     
    174174!-- If required, write binary data for restart runs
    175175    IF ( write_binary(1:4) == 'true' )  THEN
    176        DO rbs = 0, numprocs/binary_io_blocksize-1     
    177           IF ( mod_numprocs_size == rbs ) THEN
    178 !
    179 !--          Write flow field data
    180              CALL write_3d_binary           
    181           ENDIF
    182           CALL MPI_BARRIER(comm2d, ierr )
    183        ENDDO         
     176!
     177!--    Write flow field data
     178       CALL write_3d_binary
    184179!
    185180!--    If required, write particle data
Note: See TracChangeset for help on using the changeset viewer.