Ignore:
Timestamp:
Sep 7, 2010 3:17:00 PM (11 years ago)
Author:
weinreis
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/data_output_3d.f90

    r557 r559  
    6060    CHARACTER (LEN=9) ::  simulated_time_mod
    6161
    62     INTEGER           ::  av, i, if, j, k, n, pos, prec, psi, rbs
     62    INTEGER           ::  av, i, if, j, k, n, pos, prec, psi
    6363
    6464    LOGICAL           ::  found, resorted
     
    382382!--       Compression, output of compression information on FLD-file and output
    383383!--       of compressed data.
    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                  
     384          CALL write_compressed( local_pf, 30, 33, myid, nxl, nxr, nyn, nys, &
     385                                 nzb, nz_do3d, prec )
    392386       ELSE
    393387!
     
    403397                   WRITE ( 30 )  simulated_time, do3d_time_count(av), av
    404398                ENDIF
    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                
     399                WRITE ( 30 )  nxl-1, nxr+1, nys-1, nyn+1, nzb, nz_do3d
     400                WRITE ( 30 )  local_pf
     401
    413402             ELSE
    414403!
Note: See TracChangeset for help on using the changeset viewer.