Ignore:
Timestamp:
Apr 13, 2020 8:11:20 PM (18 months ago)
Author:
raasch
Message:

restart data handling with MPI-IO added, first part

File:
1 edited

Legend:

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

    r4360 r4495  
    2525! -----------------
    2626! $Id$
     27! restart data handling with MPI-IO added
     28!
     29! 4360 2020-01-07 11:25:50Z suehring
    2730! Bugfix for last commit.
    2831!
     
    129132        ONLY : nesting_mode
    130133
     134!    USE restart_data_mpi_io_mod,                                                                   &
     135!        ONLY:
     136
    131137    USE surface_mod, &
    132138        ONLY :  bc_h
     
    264270
    265271    INTERFACE dynamics_rrd_global
    266        MODULE PROCEDURE dynamics_rrd_global
     272       MODULE PROCEDURE dynamics_rrd_global_ftn
     273       MODULE PROCEDURE dynamics_rrd_global_mpi
    267274    END INTERFACE dynamics_rrd_global
    268275
     
    18171824! Description:
    18181825! ------------
    1819 !> Read module-specific global restart data.
    1820 !--------------------------------------------------------------------------------------------------!
    1821  SUBROUTINE dynamics_rrd_global( found )
     1826!> Read module-specific global restart data (Fortran binary format).
     1827!--------------------------------------------------------------------------------------------------!
     1828 SUBROUTINE dynamics_rrd_global_ftn( found )
    18221829
    18231830
     
    18401847
    18411848
    1842  END SUBROUTINE dynamics_rrd_global
     1849 END SUBROUTINE dynamics_rrd_global_ftn
     1850
     1851
     1852!--------------------------------------------------------------------------------------------------!
     1853! Description:
     1854! ------------
     1855!> Read module-specific global restart data (MPI-IO).
     1856!--------------------------------------------------------------------------------------------------!
     1857 SUBROUTINE dynamics_rrd_global_mpi
     1858
     1859
     1860!    CALL rrd_mpi_io( 'global_parameter', global_parameter )
     1861    CONTINUE
     1862
     1863 END SUBROUTINE dynamics_rrd_global_mpi
    18431864
    18441865
Note: See TracChangeset for help on using the changeset viewer.