Changeset 4673


Ignore:
Timestamp:
Sep 10, 2020 7:56:36 AM (4 years ago)
Author:
schwenkel
Message:

bugfix in case of mpi-restarts

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

    r4671 r4673  
    2424! -----------------
    2525! $Id$
     26! bugfix in case of mpi-restarts
     27!
     28! 4671 2020-09-09 20:27:58Z pavelkrc
    2629! Implementation of downward facing USM and LSM surfaces
    2730!
     
    32113214    IMPLICIT NONE
    32123215
    3213     CHARACTER (LEN=20) ::  tmp_name  !< temporary variable
     3216    CHARACTER (LEN=32) ::  tmp_name  !< temporary variable
    32143217
    32153218    INTEGER(iwp) ::  i  !< loop index
     
    32473250    ENDIF
    32483251
    3249     CALL rd_mpi_io_check_array( 'seq_random_array_particles' , found = array_found )
     3252    CALL rd_mpi_io_check_array( 'seq_random_array_particles01' , found = array_found )
    32503253    IF ( array_found )  THEN
    32513254       IF ( .NOT. ALLOCATED( seq_random_array_particles ) )  THEN
Note: See TracChangeset for help on using the changeset viewer.