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

Timestamp:

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

Author:

raasch

Message:

restart data handling with MPI-IO added, first part

File:

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

palm/trunk/SOURCE/module_interface.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! restart data handling with MPI-IO added
+! 
+! 4414 2020-02-19 20:16:04Z suehring
 ! Add module interface for basic initialization of numerics.
 ! 
@@ -687 +690 @@
 
     INTERFACE module_interface_rrd_global
-       MODULE PROCEDURE module_interface_rrd_global
+       MODULE PROCEDURE module_interface_rrd_global_ftn
+       MODULE PROCEDURE module_interface_rrd_global_mpi
     END INTERFACE module_interface_rrd_global
 
@@ -1698 +1702 @@
 
 
-!------------------------------------------------------------------------------!
-! Description:
-! ------------
-!> Read module-specific restart data globaly shared by all MPI ranks
-!------------------------------------------------------------------------------!
- SUBROUTINE module_interface_rrd_global( found )
+!--------------------------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Read module-specific restart data in Fortran binary format globaly shared by all MPI ranks
+!--------------------------------------------------------------------------------------------------!
+ SUBROUTINE module_interface_rrd_global_ftn( found )
 
 
@@ -1728 +1732 @@
 
 
- END SUBROUTINE module_interface_rrd_global
+ END SUBROUTINE module_interface_rrd_global_ftn
+
+
+!--------------------------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Read module-specific restart data in MPI format globaly shared by all MPI ranks
+!--------------------------------------------------------------------------------------------------!
+ SUBROUTINE module_interface_rrd_global_mpi
+
+
+    IF ( debug_output )  CALL debug_message( 'module-specific read global restart data', 'start' )
+
+    CALL dynamics_rrd_global
+
+    IF ( biometeorology )       CALL bio_rrd_global
+    IF ( bulk_cloud_model )     CALL bcm_rrd_global
+    IF ( virtual_flight )       CALL flight_rrd_global
+    IF ( gust_module_enabled )  CALL gust_rrd_global
+    IF ( particle_advection )   CALL lpm_rrd_global
+    IF ( ocean_mode )           CALL ocean_rrd_global
+    IF ( syn_turb_gen )         CALL stg_rrd_global
+    IF ( wind_turbine )         CALL wtm_rrd_global
+    IF ( surface_output )       CALL surface_data_output_rrd_global
+
+    IF ( user_module_enabled )  CALL user_rrd_global
+
+    IF ( debug_output )  CALL debug_message( 'module-specific read global restart data', 'end' )
+
+
+ END SUBROUTINE module_interface_rrd_global_mpi
 
 
@@ -1747 +1781 @@
     IF ( virtual_flight )       CALL flight_wrd_global
     IF ( gust_module_enabled )  CALL gust_wrd_global
+    IF ( particle_advection )   CALL lpm_wrd_global
     IF ( ocean_mode )           CALL ocean_wrd_global
     IF ( syn_turb_gen )         CALL stg_wrd_global