Changeset 4495 for palm/trunk/SOURCE/palm.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/palm.f90 (modified) (5 diffs)

palm/trunk/SOURCE/palm.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! restart data handling with MPI-IO added
+! 
+! 4457 2020-03-11 14:20:43Z raasch
 ! use statement for exchange horiz added
 ! 
@@ -86 +89 @@
     USE control_parameters,                                                    &
         ONLY:  coupling_char, do2d_at_begin, do3d_at_begin, io_blocks,         &
-               io_group, message_string, runnr, simulated_time_chr, spinup,    &
+               io_group, message_string, restart_data_format_output, runnr, simulated_time_chr, spinup,   &
                time_since_reference_point, user_interface_current_revision,    &
                user_interface_required_revision, version, write_binary
@@ -140 +143 @@
                pmci_modelconfiguration, pmci_parent_initialize
 #endif
+
+    USE restart_data_mpi_io_mod,                                               &
+        ONLY:  rd_mpi_io_close, rd_mpi_io_open
 
     USE surface_data_output_mod,                                               &
@@ -168 +174 @@
 
     version = 'PALM 6.0'
-    user_interface_required_revision = 'r3703'
+    user_interface_required_revision = 'r4495'
 
 #if defined( __parallel )
@@ -399 +405 @@
        CALL location_message( 'writing restart data', 'start' )
 
-       DO  i = 0, io_blocks-1
-          IF ( i == io_group )  THEN
-
-!
-!--          Open binary file 
-             CALL check_open( 14 )
-!
-!--          Write control parameters and other global variables for restart.
-             IF ( myid == 0 )  CALL wrd_global
-!
-!--          Write processor specific flow field data for restart runs
-             CALL wrd_local
-!
-!--          Close binary file 
-             CALL close_file( 14 )
-
-          ENDIF
-#if defined( __parallel )
-          CALL MPI_BARRIER( comm2d, ierr )
-#endif
-       ENDDO
+       IF ( TRIM( restart_data_format_output ) == 'fortran_binary' )  THEN
+
+          DO  i = 0, io_blocks-1
+             IF ( i == io_group )  THEN
+
+!
+!--             Open binary file
+                CALL check_open( 14 )
+!
+!--             Write control parameters and other global variables for restart.
+                IF ( myid == 0 )  CALL wrd_global
+!
+!--             Write processor specific flow field data for restart runs
+                CALL wrd_local
+!
+!--             Close binary file
+                CALL close_file( 14 )
+
+             ENDIF
+#if defined( __parallel )
+             CALL MPI_BARRIER( comm2d, ierr )
+#endif
+          ENDDO
+
+       ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
+!
+!--       Open MPI-IO restart file
+          CALL rd_mpi_io_open( 'write', 'BINOUT' )
+!
+!--       Write control parameters and other global variables for restart.
+          CALL wrd_global
+!
+!--       Write processor specific flow field data for restart runs
+          CALL wrd_local
+!
+!--       Close restart File
+          CALL rd_mpi_io_close
+
+       ENDIF
 
        CALL location_message( 'writing restart data', 'finished' )