Ignore:
Timestamp:
Sep 7, 2010 2:50:07 PM (11 years ago)
Author:
weinreis
Message:

bugfix message string in set_mask_locations

File:
1 edited

Legend:

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

    r496 r557  
    7474    CHARACTER (LEN=9) ::  time_to_string
    7575    CHARACTER (LEN=1) ::  cdum
    76     INTEGER           ::  i, run_description_header_i(80)
     76    INTEGER           ::  i, rbs, 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 !
    177 !--    Write flow field data
    178        CALL write_3d_binary
     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         
    179184!
    180185!--    If required, write particle data
Note: See TracChangeset for help on using the changeset viewer.