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

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! restart data handling with MPI-IO added
+! 
+! 4481 2020-03-31 18:55:54Z maronga
 ! bugfix: cpp-directives for serial mode added, dummy statements to prevent compile errors added
 ! 
@@ -200 +203 @@
                random_generator,                                               &
                rans_mode,                                                      &
+               restart_data_format_output,                                     &
                restart_string,                                                 &
                syn_turb_gen,                                                   &
@@ -257 +261 @@
                random_number_parallel,                                         &
                random_seed_parallel
+
+    USE restart_data_mpi_io_mod,                                                                   &
+        ONLY:  rrd_mpi_io,                                                                         &
+               wrd_mpi_io
 
     USE transpose_indices,                                                     &
@@ -437 +445 @@
 !-- Reading of parameters for restart runs
     INTERFACE stg_rrd_global
-       MODULE PROCEDURE stg_rrd_global
+       MODULE PROCEDURE stg_rrd_global_ftn
+       MODULE PROCEDURE stg_rrd_global_mpi
     END INTERFACE stg_rrd_global
 
@@ -1198 +1207 @@
 ! Description:
 ! ------------
-!> This routine reads the respective restart data.
-!------------------------------------------------------------------------------!
- SUBROUTINE stg_rrd_global( found )
+!> Read module-specific global restart data (Fortran binary format).
+!------------------------------------------------------------------------------!
+ SUBROUTINE stg_rrd_global_ftn( found )
 
     LOGICAL, INTENT(OUT)  ::  found !< flag indicating if variable was found
@@ -1225 +1234 @@
 
 
- END SUBROUTINE stg_rrd_global
+ END SUBROUTINE stg_rrd_global_ftn
+
+
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Read module-specific global restart data (MPI-IO).
+!------------------------------------------------------------------------------!
+ SUBROUTINE stg_rrd_global_mpi
+
+    CALL rrd_mpi_io( 'time_stg_adjust', time_stg_adjust )
+    CALL rrd_mpi_io( 'time_stg_call', time_stg_call )
+    CALL rrd_mpi_io( 'use_syn_turb_gen', use_syn_turb_gen )
+
+ END SUBROUTINE stg_rrd_global_mpi
 
 
@@ -1235 +1258 @@
  SUBROUTINE stg_wrd_global
 
-    CALL wrd_write_string( 'time_stg_adjust' )
-    WRITE ( 14 )  time_stg_adjust
-    
-    CALL wrd_write_string( 'time_stg_call' )
-    WRITE ( 14 )  time_stg_call
-
-    CALL wrd_write_string( 'use_syn_turb_gen' )
-    WRITE ( 14 )  use_syn_turb_gen
-
+    IF ( TRIM( restart_data_format_output ) == 'fortran_binary' )  THEN
+
+      CALL wrd_write_string( 'time_stg_adjust' )
+       WRITE ( 14 )  time_stg_adjust
+    
+       CALL wrd_write_string( 'time_stg_call' )
+       WRITE ( 14 )  time_stg_call
+
+       CALL wrd_write_string( 'use_syn_turb_gen' )
+       WRITE ( 14 )  use_syn_turb_gen
+
+    ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
+
+       CALL wrd_mpi_io( 'time_stg_adjust', time_stg_adjust )
+       CALL wrd_mpi_io( 'time_stg_call', time_stg_call )
+       CALL wrd_mpi_io( 'use_syn_turb_gen', use_syn_turb_gen )
+
+    ENDIF
 
  END SUBROUTINE stg_wrd_global