Changeset 4535 for palm/trunk/SOURCE/diagnostic_output_quantities_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/diagnostic_output_quantities_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for restart data format query
+! 
+! 4518 2020-05-04 15:44:28Z suehring
 ! * Define arrays over ghost points in order to allow for standard mpi-io 
 !   treatment. By this modularization of restart-data input is possible with
@@ -2273 +2276 @@
        ENDIF
 
-    ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
+    ELSEIF ( restart_data_format_output(1:3) == 'mpi' )  THEN
 
        IF ( ALLOCATED( pt_2m_av ) )     CALL wrd_mpi_io( 'pt_2m_av', pt_2m_av )