Ignore:
Timestamp:
May 3, 2020 2:29:30 PM (14 months ago)
Author:
raasch
Message:

added restart with MPI-IO for reading local arrays

File:
1 edited

Legend:

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

    r4505 r4517  
    2525! -----------------
    2626! $Id$
     27! added restart with MPI-IO for reading local arrays
     28!
     29! 4505 2020-04-20 15:37:15Z schwenkel
    2730! Add flag for saturation check
    2831!
     
    279282
    280283    INTERFACE dynamics_rrd_local
    281        MODULE PROCEDURE dynamics_rrd_local
     284       MODULE PROCEDURE dynamics_rrd_local_ftn
     285       MODULE PROCEDURE dynamics_rrd_local_mpi
    282286    END INTERFACE dynamics_rrd_local
    283287
     
    18711875! Description:
    18721876! ------------
    1873 !> Read module-specific processor specific restart data from file(s).
     1877!> Read module-specific local restart data arrays (Fortran binary format).
    18741878!> Subdomain index limits on file are given by nxl_on_file, etc.
    18751879!> Indices nxlc, etc. indicate the range of gridpoints to be mapped from the subdomain on file (f)
    18761880!> to the subdomain of the current PE (c). They have been calculated in routine rrd_local.
    18771881!--------------------------------------------------------------------------------------------------!
    1878  SUBROUTINE dynamics_rrd_local( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc, nxr_on_file, nynf, nync,   &
    1879                                 nyn_on_file, nysf, nysc, nys_on_file, tmp_2d, tmp_3d, found )
     1882 SUBROUTINE dynamics_rrd_local_ftn( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc, nxr_on_file, nynf, nync,   &
     1883                                    nyn_on_file, nysf, nysc, nys_on_file, tmp_2d, tmp_3d, found )
    18801884
    18811885
     
    19201924    END SELECT
    19211925
    1922  END SUBROUTINE dynamics_rrd_local
     1926 END SUBROUTINE dynamics_rrd_local_ftn
     1927
     1928
     1929!--------------------------------------------------------------------------------------------------!
     1930! Description:
     1931! ------------
     1932!> Read module-specific local restart data arrays (MPI-IO).
     1933!--------------------------------------------------------------------------------------------------!
     1934 SUBROUTINE dynamics_rrd_local_mpi
     1935
     1936    IMPLICIT NONE
     1937
     1938!    LOGICAL ::  array_found  !<
     1939
     1940
     1941!    CALL rd_mpi_io_check_array( 'u2_av' , found = array_found )
     1942!    IF ( array_found )  THEN
     1943!       IF ( .NOT. ALLOCATED( u2_av ) )  ALLOCATE( u2_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     1944!       CALL rrd_mpi_io( 'u2_av', u2_av )
     1945!    ENDIF
     1946
     1947    CONTINUE
     1948
     1949 END SUBROUTINE dynamics_rrd_local_mpi
     1950
    19231951
    19241952
Note: See TracChangeset for help on using the changeset viewer.