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

Timestamp:

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

Author:

raasch

Message:

bugfix for restart data format query

File:

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

palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for restart data format query
+! 
+! 4520 2020-05-06 08:57:19Z schwenkel
 ! Add error number
 ! 
@@ -3229 +3232 @@
        WRITE ( 14 )  iran, iran_part
 
-    ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
+    ELSEIF ( restart_data_format_output(1:3) == 'mpi' )  THEN
 
        CALL wrd_mpi_io( 'iran', iran )  ! matching random numbers is still unresolved issue
@@ -3260 +3263 @@
        WRITE ( 14 )  interpolation_trilinear
 
-    ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
+    ELSEIF ( restart_data_format_output(1:3) == 'mpi' )  THEN
 
        CALL wrd_mpi_io( 'curvature_solution_effects', curvature_solution_effects )