Changeset 4673

Timestamp:

Sep 10, 2020 7:56:36 AM (4 years ago)

Author:

schwenkel

Message:

bugfix in case of mpi-restarts

File:

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

palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! bugfix in case of mpi-restarts
+!
+! 4671 2020-09-09 20:27:58Z pavelkrc
 ! Implementation of downward facing USM and LSM surfaces
 !
@@ -3211 +3214 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=20) ::  tmp_name  !< temporary variable
+    CHARACTER (LEN=32) ::  tmp_name  !< temporary variable
 
     INTEGER(iwp) ::  i  !< loop index
@@ -3247 +3250 @@
     ENDIF
 
-    CALL rd_mpi_io_check_array( 'seq_random_array_particles' , found = array_found )
+    CALL rd_mpi_io_check_array( 'seq_random_array_particles01' , found = array_found )
     IF ( array_found )  THEN
        IF ( .NOT. ALLOCATED( seq_random_array_particles ) )  THEN