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

    r4495 r4517  
    2525! -----------------
    2626! $Id$
     27! added restart with MPI-IO for reading local arrays
     28!
     29! 4495 2020-04-13 20:11:20Z raasch
    2730! restart data handling with MPI-IO added
    2831!
     
    186189
    187190    INTERFACE gust_rrd_local
    188        MODULE PROCEDURE gust_rrd_local
     191       MODULE PROCEDURE gust_rrd_local_ftn
     192       MODULE PROCEDURE gust_rrd_local_mpi
    189193    END INTERFACE gust_rrd_local
    190194
     
    618622! Description:
    619623! ------------
    620 !> This routine reads the respective restart data for the gust module.
    621 !------------------------------------------------------------------------------!
    622     SUBROUTINE gust_rrd_local( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,         &
    623                                nxr_on_file, nynf, nync, nyn_on_file, nysf,     &
    624                                nysc, nys_on_file, tmp_2d, tmp_3d, found )
     624!> Read module-specific local restart data arrays (Fortran binary format).
     625!------------------------------------------------------------------------------!
     626    SUBROUTINE gust_rrd_local_ftn( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,         &
     627                                   nxr_on_file, nynf, nync, nyn_on_file, nysf,     &
     628                                   nysc, nys_on_file, tmp_2d, tmp_3d, found )
    625629
    626630
     
    686690
    687691
    688     END SUBROUTINE gust_rrd_local
     692    END SUBROUTINE gust_rrd_local_ftn
     693
     694
     695!------------------------------------------------------------------------------!
     696! Description:
     697! ------------
     698!> Read module-specific local restart data arrays (MPI-IO).
     699!------------------------------------------------------------------------------!
     700    SUBROUTINE gust_rrd_local_mpi
     701
     702
     703!       CALL rrd_mpi_io( 'local_array', local_array )
     704
     705    END SUBROUTINE gust_rrd_local_mpi
    689706
    690707
Note: See TracChangeset for help on using the changeset viewer.