Changeset 4495 for palm/trunk/SOURCE/dynamics_mod.f90

Timestamp:

Apr 13, 2020 8:11:20 PM (4 years ago)

Author:

raasch

Message:

restart data handling with MPI-IO added, first part

File:

• palm/trunk/SOURCE/dynamics_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/dynamics_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! restart data handling with MPI-IO added
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Bugfix for last commit.
 ! 
@@ -129 +132 @@
         ONLY : nesting_mode
 
+!    USE restart_data_mpi_io_mod,                                                                   &
+!        ONLY:
+
     USE surface_mod, &
         ONLY :  bc_h
@@ -264 +270 @@
 
     INTERFACE dynamics_rrd_global
-       MODULE PROCEDURE dynamics_rrd_global
+       MODULE PROCEDURE dynamics_rrd_global_ftn
+       MODULE PROCEDURE dynamics_rrd_global_mpi
     END INTERFACE dynamics_rrd_global
 
@@ -1817 +1824 @@
 ! Description:
 ! ------------
-!> Read module-specific global restart data.
-!--------------------------------------------------------------------------------------------------!
- SUBROUTINE dynamics_rrd_global( found )
+!> Read module-specific global restart data (Fortran binary format).
+!--------------------------------------------------------------------------------------------------!
+ SUBROUTINE dynamics_rrd_global_ftn( found )
 
 
@@ -1840 +1847 @@
 
 
- END SUBROUTINE dynamics_rrd_global
+ END SUBROUTINE dynamics_rrd_global_ftn
+
+
+!--------------------------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Read module-specific global restart data (MPI-IO).
+!--------------------------------------------------------------------------------------------------!
+ SUBROUTINE dynamics_rrd_global_mpi
+
+
+!    CALL rrd_mpi_io( 'global_parameter', global_parameter )
+    CONTINUE
+
+ END SUBROUTINE dynamics_rrd_global_mpi