Changeset 4534 for palm/trunk/SOURCE/read_restart_data_mod.f90

Timestamp:

May 14, 2020 6:35:22 PM (4 years ago)

Author:

raasch

Message:

I/O on reduced number of cores added (using shared memory MPI)

File:

• palm/trunk/SOURCE/read_restart_data_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/read_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! adjustments for I/O on reduced number of cores using shared memory MPI
+! 
+! 4518 2020-05-04 15:44:28Z suehring
 ! Move input of diagnostic output quantities to doq_rrd_local
 ! 
@@ -833 +836 @@
        CALL close_file( 13 )
 
-    ELSEIF ( TRIM( restart_data_format_input ) == 'mpi' )  THEN
+    ELSEIF ( restart_data_format_input(1:3) == 'mpi' )  THEN
 !
 !--    Read global restart data using MPI-IO
@@ -843 +846 @@
 !
 !--    Open the MPI-IO restart file.
-       CALL rd_mpi_io_open( 'read', 'BININ' // TRIM( coupling_char ) )
+       CALL rd_mpi_io_open( 'read', 'BININ' // TRIM( coupling_char ),                              &
+                            open_for_global_io_only = .TRUE. )
 
 !
@@ -2158 +2162 @@
 
 
-    ELSEIF ( TRIM( restart_data_format_input ) == 'mpi' )  THEN
+    ELSEIF ( restart_data_format_input(1:3) == 'mpi' )  THEN
 
 !