Changeset 4777 for palm/trunk/SOURCE/write_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/write_restart_data_mod.f90 (modified) (2 diffs)

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 )