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

restart data handling with MPI-IO added, first part

File:
1 edited

Legend:

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

    r4414 r4495  
    2525! -----------------
    2626! $Id$
     27! restart data handling with MPI-IO added
     28!
     29! 4414 2020-02-19 20:16:04Z suehring
    2730! Add module interface for basic initialization of numerics.
    2831!
     
    687690
    688691    INTERFACE module_interface_rrd_global
    689        MODULE PROCEDURE module_interface_rrd_global
     692       MODULE PROCEDURE module_interface_rrd_global_ftn
     693       MODULE PROCEDURE module_interface_rrd_global_mpi
    690694    END INTERFACE module_interface_rrd_global
    691695
     
    16981702
    16991703
    1700 !------------------------------------------------------------------------------!
    1701 ! Description:
    1702 ! ------------
    1703 !> Read module-specific restart data globaly shared by all MPI ranks
    1704 !------------------------------------------------------------------------------!
    1705  SUBROUTINE module_interface_rrd_global( found )
     1704!--------------------------------------------------------------------------------------------------!
     1705! Description:
     1706! ------------
     1707!> Read module-specific restart data in Fortran binary format globaly shared by all MPI ranks
     1708!--------------------------------------------------------------------------------------------------!
     1709 SUBROUTINE module_interface_rrd_global_ftn( found )
    17061710
    17071711
     
    17281732
    17291733
    1730  END SUBROUTINE module_interface_rrd_global
     1734 END SUBROUTINE module_interface_rrd_global_ftn
     1735
     1736
     1737!--------------------------------------------------------------------------------------------------!
     1738! Description:
     1739! ------------
     1740!> Read module-specific restart data in MPI format globaly shared by all MPI ranks
     1741!--------------------------------------------------------------------------------------------------!
     1742 SUBROUTINE module_interface_rrd_global_mpi
     1743
     1744
     1745    IF ( debug_output )  CALL debug_message( 'module-specific read global restart data', 'start' )
     1746
     1747    CALL dynamics_rrd_global
     1748
     1749    IF ( biometeorology )       CALL bio_rrd_global
     1750    IF ( bulk_cloud_model )     CALL bcm_rrd_global
     1751    IF ( virtual_flight )       CALL flight_rrd_global
     1752    IF ( gust_module_enabled )  CALL gust_rrd_global
     1753    IF ( particle_advection )   CALL lpm_rrd_global
     1754    IF ( ocean_mode )           CALL ocean_rrd_global
     1755    IF ( syn_turb_gen )         CALL stg_rrd_global
     1756    IF ( wind_turbine )         CALL wtm_rrd_global
     1757    IF ( surface_output )       CALL surface_data_output_rrd_global
     1758
     1759    IF ( user_module_enabled )  CALL user_rrd_global
     1760
     1761    IF ( debug_output )  CALL debug_message( 'module-specific read global restart data', 'end' )
     1762
     1763
     1764 END SUBROUTINE module_interface_rrd_global_mpi
    17311765
    17321766
     
    17471781    IF ( virtual_flight )       CALL flight_wrd_global
    17481782    IF ( gust_module_enabled )  CALL gust_wrd_global
     1783    IF ( particle_advection )   CALL lpm_wrd_global
    17491784    IF ( ocean_mode )           CALL ocean_wrd_global
    17501785    IF ( syn_turb_gen )         CALL stg_wrd_global
Note: See TracChangeset for help on using the changeset viewer.