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

Timestamp:

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

Author:

weinreis

Message:

 

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, rbs
+    INTEGER           ::  av, i, if, j, k, n, pos, prec, psi
 
     LOGICAL           ::  found, resorted
@@ -382 +382 @@
 !--       Compression, output of compression information on FLD-file and output
 !--       of compressed data.
-          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
-                  
+          CALL write_compressed( local_pf, 30, 33, myid, nxl, nxr, nyn, nys, &
+                                 nzb, nz_do3d, prec )
        ELSE
 !
@@ -403 +397 @@
                    WRITE ( 30 )  simulated_time, do3d_time_count(av), av
                 ENDIF
-                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
-                
+                WRITE ( 30 )  nxl-1, nxr+1, nys-1, nyn+1, nzb, nz_do3d
+                WRITE ( 30 )  local_pf
+
              ELSE
 !