Changeset 4535 for palm/trunk/SOURCE/write_restart_data_mod.f90

Timestamp:

May 15, 2020 12:07:23 PM (4 years ago)

Author:

raasch

Message:

bugfix for restart data format query

File:

• palm/trunk/SOURCE/write_restart_data_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/write_restart_data_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! bugfix for restart data format query
+! 
+! 4514 2020-04-30 16:29:59Z suehring
 ! qsurf and ssurf added
 ! 
@@ -876 +879 @@
        WRITE ( 14 )  z_i
 
-    ELSEIF ( restart_data_format_output == 'mpi' )  THEN
+    ELSEIF ( restart_data_format_output(1:3) == 'mpi' )  THEN
 !
 !--    Write global restart data using MPI-IO
@@ -1471 +1474 @@
        ENDIF
 
-    ELSEIF ( restart_data_format_output == 'mpi' )  THEN
+    ELSEIF ( restart_data_format_output(1:3) == 'mpi' )  THEN
 !
 !--    Write local restart data using MPI-IO