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

palm/trunk/SOURCE/virtual_flight_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! restart data handling with MPI-IO added
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Corrected "Former revisions" section
 ! 
@@ -47 +50 @@
  MODULE flight_mod
  
-    USE control_parameters,                                                    &
-        ONLY:  debug_output, fl_max, num_leg, num_var_fl, num_var_fl_user, virtual_flight
+    USE control_parameters,                                                                        &
+        ONLY:  debug_output, fl_max, num_leg, num_var_fl, num_var_fl_user,                         &
+               restart_data_format_output, virtual_flight
  
     USE kinds
+
+    USE restart_data_mpi_io_mod,                                                                   &
+        ONLY:  rd_mpi_io_check_array, rrd_mpi_io_global_array, wrd_mpi_io_global_array
+
 
     CHARACTER(LEN=6), DIMENSION(fl_max) ::  leg_mode = 'cyclic'  !< flight mode through the model domain, either 'cyclic' or 'return' 
@@ -117 +125 @@
     
     INTERFACE flight_rrd_global 
-       MODULE PROCEDURE flight_rrd_global
+       MODULE PROCEDURE flight_rrd_global_ftn
+       MODULE PROCEDURE flight_rrd_global_mpi
     END INTERFACE flight_rrd_global
     
@@ -919 +928 @@
 ! Description:
 ! ------------
-!> This routine reads the respective restart data.
-!------------------------------------------------------------------------------!
-    SUBROUTINE flight_rrd_global( found )  
+!> Read module-specific global restart data (Fortran binary format).
+!------------------------------------------------------------------------------!
+    SUBROUTINE flight_rrd_global_ftn( found )
 
 
@@ -964 +973 @@
 
 
-    END SUBROUTINE flight_rrd_global  
+    END SUBROUTINE flight_rrd_global_ftn
+
+
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Read module-specific global restart data (MPI-IO).
+!------------------------------------------------------------------------------!
+    SUBROUTINE flight_rrd_global_mpi
+
+
+       IMPLICIT NONE
+
+       LOGICAL  ::  array_found  !< flag indicating if respective array is found in restart file
+
+
+       CALL rd_mpi_io_check_array( 'u_agl', found = array_found )
+       IF ( array_found)  THEN
+          IF ( .NOT. ALLOCATED( u_agl ) )  ALLOCATE( u_agl(1:num_leg) )
+          CALL rrd_mpi_io_global_array( 'u_agl', u_agl )
+       ENDIF
+       CALL rd_mpi_io_check_array( 'v_agl', found = array_found )
+       IF ( array_found)  THEN
+          IF ( .NOT. ALLOCATED( v_agl ) )  ALLOCATE( v_agl(1:num_leg) )
+          CALL rrd_mpi_io_global_array( 'v_agl', v_agl )
+       ENDIF
+       CALL rd_mpi_io_check_array( 'w_agl', found = array_found )
+       IF ( array_found)  THEN
+          IF ( .NOT. ALLOCATED( w_agl ) )  ALLOCATE( w_agl(1:num_leg) )
+          CALL rrd_mpi_io_global_array( 'w_agl', w_agl )
+       ENDIF
+       CALL rd_mpi_io_check_array( 'x_pos', found = array_found )
+       IF ( array_found)  THEN
+          IF ( .NOT. ALLOCATED( x_pos ) )  ALLOCATE( x_pos(1:num_leg) )
+          CALL rrd_mpi_io_global_array( 'x_pos', x_pos )
+       ENDIF
+       CALL rd_mpi_io_check_array( 'y_pos', found = array_found )
+       IF ( array_found)  THEN
+          IF ( .NOT. ALLOCATED( y_pos ) )  ALLOCATE( y_pos(1:num_leg) )
+          CALL rrd_mpi_io_global_array( 'y_pos', y_pos )
+       ENDIF
+       CALL rd_mpi_io_check_array( 'z_pos', found = array_found )
+       IF ( array_found)  THEN
+          IF ( .NOT. ALLOCATED( z_pos ) )  ALLOCATE( z_pos(1:num_leg) )
+          CALL rrd_mpi_io_global_array( 'z_pos', z_pos )
+       ENDIF
+
+    END SUBROUTINE flight_rrd_global_mpi
+
     
 !------------------------------------------------------------------------------!
@@ -976 +1033 @@
        IMPLICIT NONE
  
-       CALL wrd_write_string( 'u_agl' )
-       WRITE ( 14 )  u_agl
-
-       CALL wrd_write_string( 'v_agl' )
-
-       WRITE ( 14 )  v_agl
-
-       CALL wrd_write_string( 'w_agl' )
-       WRITE ( 14 )  w_agl
-
-       CALL wrd_write_string( 'x_pos' )
-       WRITE ( 14 )  x_pos
-
-       CALL wrd_write_string( 'y_pos' )
-       WRITE ( 14 )  y_pos
-
-       CALL wrd_write_string( 'z_pos' )
-       WRITE ( 14 )  z_pos
-       
+
+       IF ( TRIM( restart_data_format_output ) == 'fortran_binary' )  THEN
+
+          CALL wrd_write_string( 'u_agl' )
+          WRITE ( 14 )  u_agl
+
+          CALL wrd_write_string( 'v_agl' )
+          WRITE ( 14 )  v_agl
+
+          CALL wrd_write_string( 'w_agl' )
+          WRITE ( 14 )  w_agl
+
+          CALL wrd_write_string( 'x_pos' )
+          WRITE ( 14 )  x_pos
+
+          CALL wrd_write_string( 'y_pos' )
+          WRITE ( 14 )  y_pos
+
+          CALL wrd_write_string( 'z_pos' )
+          WRITE ( 14 )  z_pos
+
+       ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
+
+          CALL wrd_mpi_io_global_array( 'u_agl', u_agl )
+          CALL wrd_mpi_io_global_array( 'v_agl', v_agl )
+          CALL wrd_mpi_io_global_array( 'w_agl', w_agl )
+          CALL wrd_mpi_io_global_array( 'x_pos', x_pos )
+          CALL wrd_mpi_io_global_array( 'y_pos', y_pos )
+          CALL wrd_mpi_io_global_array( 'z_pos', z_pos )
+
+       ENDIF
+
     END SUBROUTINE flight_wrd_global