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

Timestamp:

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

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/read_restart_data_mod.f90 (modified) (3 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 )