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

Timestamp:

Sep 7, 2010 3:17:00 PM (14 years ago)

Author:

weinreis

Message:

 

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, rbs, run_description_header_i(80)
+    INTEGER           ::  i, 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
-       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         
+!
+!--    Write flow field data
+       CALL write_3d_binary
 !
 !--    If required, write particle data