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/module_interface.f90

    r4514 r4517  
    2525! -----------------
    2626! $Id$
     27! added restart with MPI-IO for reading local arrays
     28!
     29! 4514 2020-04-30 16:29:59Z suehring
    2730! Added global restart routines for plant-canopy model
    2831!
     
    704707
    705708    INTERFACE module_interface_rrd_local
    706        MODULE PROCEDURE module_interface_rrd_local
     709       MODULE PROCEDURE module_interface_rrd_local_ftn
     710       MODULE PROCEDURE module_interface_rrd_local_mpi
    707711    END INTERFACE module_interface_rrd_local
    708712
     
    18061810! Description:
    18071811! ------------
    1808 !> Read module-specific restart data specific to local MPI ranks
    1809 !------------------------------------------------------------------------------!
    1810  SUBROUTINE module_interface_rrd_local( map_index,                             &
    1811                                         nxlf, nxlc, nxl_on_file,               &
    1812                                         nxrf, nxrc, nxr_on_file,               &
    1813                                         nynf, nync, nyn_on_file,               &
    1814                                         nysf, nysc, nys_on_file,               &
    1815                                         tmp_2d, tmp_3d, found )
     1812!> Read module-specific local restart data arrays (Fortran binary format).
     1813!------------------------------------------------------------------------------!
     1814 SUBROUTINE module_interface_rrd_local_ftn( map_index,                             &
     1815                                           nxlf, nxlc, nxl_on_file,               &
     1816                                           nxrf, nxrc, nxr_on_file,               &
     1817                                           nynf, nync, nyn_on_file,               &
     1818                                           nysf, nysc, nys_on_file,               &
     1819                                           tmp_2d, tmp_3d, found )
    18161820
    18171821
     
    18391843
    18401844
    1841     IF ( debug_output )  CALL debug_message( 'module-specific read local restart data', 'start' )
     1845    IF ( debug_output )  THEN
     1846       CALL debug_message( 'module-specific read local restart data (Fortran binary)', 'start' )
     1847    ENDIF
    18421848
    18431849    CALL dynamics_rrd_local(                                                   &
     
    19651971                            ) ! ToDo: change interface to pass variable
    19661972
    1967     IF ( debug_output )  CALL debug_message( 'module-specific read local restart data', 'end' )
    1968 
    1969 
    1970  END SUBROUTINE module_interface_rrd_local
     1973    IF ( debug_output )  THEN
     1974       CALL debug_message( 'module-specific read local restart data (Fortran binary)', 'end' )
     1975    ENDIF
     1976
     1977 END SUBROUTINE module_interface_rrd_local_ftn
     1978
     1979
     1980!------------------------------------------------------------------------------!
     1981! Description:
     1982! ------------
     1983!> Read module-specific local restart data arrays (MPI-IO).
     1984!------------------------------------------------------------------------------!
     1985 SUBROUTINE module_interface_rrd_local_mpi
     1986
     1987    IF ( debug_output )  THEN
     1988       CALL debug_message( 'module-specific read local restart data (MPI-IO)', 'start' )
     1989    ENDIF
     1990
     1991    CALL dynamics_rrd_local
     1992
     1993!    IF ( biometeorology )       CALL bio_rrd_local
     1994    IF ( bulk_cloud_model )     CALL bcm_rrd_local
     1995    IF ( air_chemistry )        CALL chem_rrd_local
     1996!    CALL doq_rrd_local
     1997    IF ( gust_module_enabled )  CALL gust_rrd_local
     1998    IF ( particle_advection )   CALL lpm_rrd_local
     1999    IF ( land_surface )         CALL lsm_rrd_local
     2000    IF ( plant_canopy )         CALL pcm_rrd_local
     2001    IF ( ocean_mode )           CALL ocean_rrd_local
     2002    IF ( radiation )            CALL radiation_rrd_local
     2003!    IF ( salsa )                CALL salsa_rrd_local
     2004    IF ( urban_surface )        CALL usm_rrd_local
     2005    IF ( surface_output )       CALL surface_data_output_rrd_local
     2006
     2007    IF ( user_module_enabled )  CALL user_rrd_local
     2008
     2009    IF ( debug_output )  THEN
     2010       CALL debug_message( 'module-specific read local restart data (Fortran binary)', 'end' )
     2011    ENDIF
     2012
     2013 END SUBROUTINE module_interface_rrd_local_mpi
    19712014
    19722015
Note: See TracChangeset for help on using the changeset viewer.