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/data_output_3d.f90

    r494 r557  
    6060    CHARACTER (LEN=9) ::  simulated_time_mod
    6161
    62     INTEGER           ::  av, i, if, j, k, n, pos, prec, psi
     62    INTEGER           ::  av, i, if, j, k, n, pos, prec, psi, rbs
    6363
    6464    LOGICAL           ::  found, resorted
     
    382382!--       Compression, output of compression information on FLD-file and output
    383383!--       of compressed data.
    384           CALL write_compressed( local_pf, 30, 33, myid, nxl, nxr, nyn, nys, &
    385                                  nzb, nz_do3d, prec )
     384          DO rbs = 0, numprocs/binary_io_blocksize-1     
     385             IF ( mod_numprocs_size == rbs ) THEN
     386                CALL write_compressed( local_pf, 30, 33, myid, nxl, nxr, &
     387                                  nyn, nys, nzb, nz_do3d, prec )
     388             ENDIF
     389             CALL MPI_BARRIER(comm2d, ierr )
     390          ENDDO
     391                 
    386392       ELSE
    387393!
     
    397403                   WRITE ( 30 )  simulated_time, do3d_time_count(av), av
    398404                ENDIF
    399                 WRITE ( 30 )  nxl-1, nxr+1, nys-1, nyn+1, nzb, nz_do3d
    400                 WRITE ( 30 )  local_pf
    401 
     405                DO rbs = 0, numprocs/binary_io_blocksize-1     
     406                   IF ( mod_numprocs_size == rbs ) THEN
     407                      WRITE ( 30 )  nxl-1, nxr+1, nys-1, nyn+1, nzb, nz_do3d
     408                      WRITE ( 30 )  local_pf
     409                   ENDIF
     410                   CALL MPI_BARRIER(comm2d, ierr )
     411                ENDDO
     412               
    402413             ELSE
    403414!
Note: See TracChangeset for help on using the changeset viewer.