Changeset 557 for palm/trunk/SOURCE/palm.f90

Timestamp:

Sep 7, 2010 2:50:07 PM (14 years ago)

Author:

weinreis

Message:

bugfix message string in set_mask_locations

File:

• palm/trunk/SOURCE/palm.f90 (modified) (2 diffs)

palm/trunk/SOURCE/palm.f90

@@ -74 +74 @@
     CHARACTER (LEN=9) ::  time_to_string
     CHARACTER (LEN=1) ::  cdum
-    INTEGER           ::  i, run_description_header_i(80)
+    INTEGER           ::  i, rbs, run_description_header_i(80)
 
     version = 'PALM 3.7a'
@@ -174 +174 @@
 !-- If required, write binary data for restart runs
     IF ( write_binary(1:4) == 'true' )  THEN
-!
-!--    Write flow field data
-       CALL write_3d_binary
+       DO rbs = 0, numprocs/binary_io_blocksize-1     
+          IF ( mod_numprocs_size == rbs ) THEN
+!
+!--          Write flow field data
+             CALL write_3d_binary            
+          ENDIF
+          CALL MPI_BARRIER(comm2d, ierr )
+       ENDDO         
 !
 !--    If required, write particle data