Changeset 4777

Timestamp:

Nov 6, 2020 2:50:49 PM (4 years ago)

Author:

raasch

Message:

bugfix for reading/writing spectra data with MPI-I/O

Location:

palm/trunk/SOURCE

Files:

• read_restart_data_mod.f90 (modified) (3 diffs)
• write_restart_data_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/read_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for reading spectra data with MPI-I/O (they are global arrays!)
+!
+! 4671 2020-09-09 20:27:58Z pavelkrc
 ! Implementation of downward facing USM and LSM surfaces
 !
@@ -1062 +1065 @@
               ALLOCATE( spectrum_x( 1:nx/2, 1:100, 1:10 ) )
            ENDIF
-           CALL rrd_mpi_io( 'spectrum_y', spectrum_y )
+           CALL rrd_mpi_io_global_array( 'spectrum_x', spectrum_x )
        ENDIF
        CALL rd_mpi_io_check_array( 'spectrum_y', found = array_found )
@@ -1069 +1072 @@
               ALLOCATE( spectrum_y( 1:ny/2, 1:100, 1:10 ) )
            ENDIF
-           CALL rrd_mpi_io( 'spectrum_y', spectrum_y )
+           CALL rrd_mpi_io_global_array( 'spectrum_y', spectrum_y )
        ENDIF
        CALL rrd_mpi_io( 'spinup_time ', spinup_time )

palm/trunk/SOURCE/write_restart_data_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! bugfix for writing spectra data with MPI-I/O (they are global arrays!)
+!
+! 4671 2020-09-09 20:27:58Z pavelkrc
 ! Implementation of downward facing USM and LSM surfaces
 ! 
@@ -1050 +1053 @@
        CALL wrd_mpi_io( 'simulated_time', simulated_time )
        IF ( ALLOCATED( spectrum_x ) )  THEN
-          CALL wrd_mpi_io( 'spectrum_x', spectrum_x )
-          CALL wrd_mpi_io( 'spectrum_y', spectrum_y )
+          CALL wrd_mpi_io_global_array( 'spectrum_x', spectrum_x )
+          CALL wrd_mpi_io_global_array( 'spectrum_y', spectrum_y )
        ENDIF
        CALL wrd_mpi_io( 'spinup_time ', spinup_time )