Changeset 4496 for palm


Ignore:
Timestamp:
Apr 15, 2020 8:37:26 AM (7 months ago)
Author:
raasch
Message:

bugfixes for restart with MPI-IO: problem with posix read arguments for surface data fixed, MPI barrier removed, coupling character added to restart input and output filename

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r4495 r4496  
    2525! -----------------
    2626! $Id$
     27! bugfix: coupling character added to restart output filename
     28!
     29! 4495 2020-04-13 20:11:20Z raasch
    2730! restart data handling with MPI-IO added
    2831!
     
    432435!
    433436!--       Open MPI-IO restart file
    434           CALL rd_mpi_io_open( 'write', 'BINOUT' )
     437          CALL rd_mpi_io_open( 'write', 'BINOUT' // TRIM( coupling_char ) )
    435438!
    436439!--       Write control parameters and other global variables for restart.
  • palm/trunk/SOURCE/read_restart_data_mod.f90

    r4495 r4496  
    2525! -----------------
    2626! $Id$
     27! bugfix: MPI barrier removed, coupling character added to input filename
     28!
     29! 4495 2020-04-13 20:11:20Z raasch
    2730! restart data handling with MPI-IO added
    2831!
     
    842845!
    843846!--    Open the MPI-IO restart file.
    844        CALL rd_mpi_io_open( 'read', 'BININ', only_global = .TRUE. )
     847       CALL rd_mpi_io_open( 'read', 'BININ' // TRIM( coupling_char ), only_global = .TRUE. )
    845848
    846849!
     
    11411144       CALL rd_mpi_io_close
    11421145
    1143 #if defined( __parallel )
    1144        CALL MPI_BARRIER( MPI_COMM_WORLD, ierr )
    1145 #endif
    1146 
    11471146    ENDIF
    11481147
  • palm/trunk/SOURCE/restart_data_mpi_io_mod.f90

    r4495 r4496  
    2424! -----------------
    2525! $Id$
    26 ! Initial version (K. Ketelsen)
     26! problem with posix read arguments for surface data fixed
     27!
     28! 4495 2020-04-13 20:11:20Z raasch
     29! Initial version (K. Ketelsen), adjusted to PALM formatting standards (s. Raasch)
    2730!
    2831!
     
    17701773#else
    17711774                CALL posix_lseek( fh, disp_f )
    1772 !ATTENTION: next line needs to be fixed because of: There is no specific subroutine for the generic ‘posix_read’
    1773 !                CALL posix_read( fh, data(m_start_index(j_f,i_f)), nr_bytes_f )
     1775                CALL posix_read( fh, data(m_start_index(j_f:,i_f:)), nr_bytes_f )
    17741776#endif
    17751777                disp_f     = disp
     
    23062308!> This subroutine creates file types to access 3d-soil arrays
    23072309!> distributed in blocks among processes to a single file that contains the global arrays.
     2310!> It is not required for the serial mode.
    23082311!--------------------------------------------------------------------------------------------------!
    23092312#if defined( __parallel )
     
    23342337    start3(3) = lb%nys
    23352338
    2336     CALL MPI_TYPE_CREATE_SUBARRAY( 3, dims3, lize3, start3, MPI_ORDER_FORTRAN, MPI_REAL, ft_3dsoil, ierr )
     2339    CALL MPI_TYPE_CREATE_SUBARRAY( 3, dims3, lize3, start3, MPI_ORDER_FORTRAN, MPI_REAL,           &
     2340                                   ft_3dsoil, ierr )
    23372341    CALL MPI_TYPE_COMMIT( ft_3dsoil, ierr )
    23382342
Note: See TracChangeset for help on using the changeset viewer.