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

Timestamp:

May 3, 2020 2:29:30 PM (4 years ago)

Author:

raasch

Message:

added restart with MPI-IO for reading local arrays

File:

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

palm/trunk/SOURCE/module_interface.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! added restart with MPI-IO for reading local arrays
+! 
+! 4514 2020-04-30 16:29:59Z suehring
 ! Added global restart routines for plant-canopy model
 ! 
@@ -704 +707 @@
 
     INTERFACE module_interface_rrd_local
-       MODULE PROCEDURE module_interface_rrd_local
+       MODULE PROCEDURE module_interface_rrd_local_ftn
+       MODULE PROCEDURE module_interface_rrd_local_mpi
     END INTERFACE module_interface_rrd_local
 
@@ -1806 +1810 @@
 ! Description:
 ! ------------
-!> Read module-specific restart data specific to local MPI ranks
-!------------------------------------------------------------------------------!
- SUBROUTINE module_interface_rrd_local( map_index,                             &
-                                        nxlf, nxlc, nxl_on_file,               &
-                                        nxrf, nxrc, nxr_on_file,               &
-                                        nynf, nync, nyn_on_file,               &
-                                        nysf, nysc, nys_on_file,               &
-                                        tmp_2d, tmp_3d, found )
+!> Read module-specific local restart data arrays (Fortran binary format).
+!------------------------------------------------------------------------------!
+ SUBROUTINE module_interface_rrd_local_ftn( map_index,                             &
+                                           nxlf, nxlc, nxl_on_file,               &
+                                           nxrf, nxrc, nxr_on_file,               &
+                                           nynf, nync, nyn_on_file,               &
+                                           nysf, nysc, nys_on_file,               &
+                                           tmp_2d, tmp_3d, found )
 
 
@@ -1839 +1843 @@
 
 
-    IF ( debug_output )  CALL debug_message( 'module-specific read local restart data', 'start' )
+    IF ( debug_output )  THEN
+       CALL debug_message( 'module-specific read local restart data (Fortran binary)', 'start' )
+    ENDIF
 
     CALL dynamics_rrd_local(                                                   &
@@ -1965 +1971 @@
                             ) ! ToDo: change interface to pass variable
 
-    IF ( debug_output )  CALL debug_message( 'module-specific read local restart data', 'end' )
-
-
- END SUBROUTINE module_interface_rrd_local
+    IF ( debug_output )  THEN
+       CALL debug_message( 'module-specific read local restart data (Fortran binary)', 'end' )
+    ENDIF
+
+ END SUBROUTINE module_interface_rrd_local_ftn
+
+
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Read module-specific local restart data arrays (MPI-IO).
+!------------------------------------------------------------------------------!
+ SUBROUTINE module_interface_rrd_local_mpi
+
+    IF ( debug_output )  THEN
+       CALL debug_message( 'module-specific read local restart data (MPI-IO)', 'start' )
+    ENDIF
+
+    CALL dynamics_rrd_local
+
+!    IF ( biometeorology )       CALL bio_rrd_local
+    IF ( bulk_cloud_model )     CALL bcm_rrd_local
+    IF ( air_chemistry )        CALL chem_rrd_local
+!    CALL doq_rrd_local
+    IF ( gust_module_enabled )  CALL gust_rrd_local
+    IF ( particle_advection )   CALL lpm_rrd_local
+    IF ( land_surface )         CALL lsm_rrd_local
+    IF ( plant_canopy )         CALL pcm_rrd_local
+    IF ( ocean_mode )           CALL ocean_rrd_local
+    IF ( radiation )            CALL radiation_rrd_local
+!    IF ( salsa )                CALL salsa_rrd_local
+    IF ( urban_surface )        CALL usm_rrd_local
+    IF ( surface_output )       CALL surface_data_output_rrd_local
+
+    IF ( user_module_enabled )  CALL user_rrd_local
+
+    IF ( debug_output )  THEN
+       CALL debug_message( 'module-specific read local restart data (Fortran binary)', 'end' )
+    ENDIF
+
+ END SUBROUTINE module_interface_rrd_local_mpi