Changeset 4694 for palm/trunk/SOURCE/restart_data_mpi_io_mod.f90

Timestamp:

Sep 23, 2020 3:09:19 PM (4 years ago)

Author:

pavelkrc

Message:

Fix writing and reading of surface data to/from MPI restart file + small fixes

File:

• palm/trunk/SOURCE/restart_data_mpi_io_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/restart_data_mpi_io_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Fix name of subroutine in message
+!
+! 4629 2020-07-29 09:37:56Z raasch
 ! support for MPI Fortran77 interface (mpif.h) removed
 !
@@ -3136 +3139 @@
 
        message_string = 'surface array "' // TRIM( name ) // '" not found in restart file'
-       CALL message( 'rrd_mpi_io_global_array_int_1d', 'PA0722', 3, 2, 0, 6, 0 )
+       CALL message( 'rrd_mpi_io_surface', 'PA0722', 3, 2, 0, 6, 0 )
 
     ENDIF