Changeset 557 for palm/trunk/SOURCE/data_output_3d.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/data_output_3d.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_3d.f90

@@ -60 +60 @@
     CHARACTER (LEN=9) ::  simulated_time_mod
 
-    INTEGER           ::  av, i, if, j, k, n, pos, prec, psi
+    INTEGER           ::  av, i, if, j, k, n, pos, prec, psi, rbs
 
     LOGICAL           ::  found, resorted
@@ -382 +382 @@
 !--       Compression, output of compression information on FLD-file and output
 !--       of compressed data.
-          CALL write_compressed( local_pf, 30, 33, myid, nxl, nxr, nyn, nys, &
-                                 nzb, nz_do3d, prec )
+          DO rbs = 0, numprocs/binary_io_blocksize-1     
+             IF ( mod_numprocs_size == rbs ) THEN
+                CALL write_compressed( local_pf, 30, 33, myid, nxl, nxr, &
+                                  nyn, nys, nzb, nz_do3d, prec )
+             ENDIF
+             CALL MPI_BARRIER(comm2d, ierr )
+          ENDDO
+                  
        ELSE
 !
@@ -397 +403 @@
                    WRITE ( 30 )  simulated_time, do3d_time_count(av), av
                 ENDIF
-                WRITE ( 30 )  nxl-1, nxr+1, nys-1, nyn+1, nzb, nz_do3d
-                WRITE ( 30 )  local_pf
-
+                DO rbs = 0, numprocs/binary_io_blocksize-1     
+                   IF ( mod_numprocs_size == rbs ) THEN
+                      WRITE ( 30 )  nxl-1, nxr+1, nys-1, nyn+1, nzb, nz_do3d
+                      WRITE ( 30 )  local_pf
+                   ENDIF
+                   CALL MPI_BARRIER(comm2d, ierr )
+                ENDDO
+                
              ELSE
 !