Ignore:
Timestamp:
Nov 13, 2020 1:58:45 PM (20 months ago)
Author:
raasch
Message:

bugfix for reading restart data with MPI-I/O (does not work with blockwise I/O); missed revision comments from previous commit added

File:
1 edited

Legend:

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

    r4680 r4783  
    2424! -----------------
    2525! $Id$
     26! bugfix for reading restart data with MPI-I/O (does not work with blockwise I/O)
     27!
     28! 4680 2020-09-16 10:20:34Z gronemeier
    2629! Add option to fix date or time of the simulation
    2730!
     
    10861089       IF ( TRIM( initializing_actions ) == 'cyclic_fill' )  THEN
    10871090
     1091!
     1092!--       Blockwise I/O does not work together with MPI-I/O
     1093          IF ( restart_data_format_input(1:3) == 'mpi' )  THEN
     1094             CALL rrd_read_parts_of_global
     1095          ELSE
     1096             DO  i = 0, io_blocks-1
     1097                IF ( i == io_group )  THEN
     1098                   CALL rrd_read_parts_of_global
     1099                ENDIF
     1100#if defined( __parallel )
     1101                CALL MPI_BARRIER( comm2d, ierr )
     1102#endif
     1103             ENDDO
     1104          ENDIF
     1105
     1106       ENDIF
     1107
     1108!
     1109!--    Read processor specific binary data from restart file.
     1110!--    Blockwise I/O does not work together with MPI-I/O
     1111       IF ( restart_data_format_input(1:3) == 'mpi' )  THEN
     1112          CALL rrd_local
     1113       ELSE
    10881114          DO  i = 0, io_blocks-1
    10891115             IF ( i == io_group )  THEN
    1090                 CALL rrd_read_parts_of_global
     1116                CALL rrd_local
    10911117             ENDIF
    10921118#if defined( __parallel )
     
    10941120#endif
    10951121          ENDDO
    1096 
    1097        ENDIF
    1098 
    1099 !
    1100 !--    Read processor specific binary data from restart file
    1101        DO  i = 0, io_blocks-1
    1102           IF ( i == io_group )  THEN
    1103              CALL rrd_local
    1104           ENDIF
    1105 #if defined( __parallel )
    1106           CALL MPI_BARRIER( comm2d, ierr )
    1107 #endif
    1108        ENDDO
     1122       ENDIF
    11091123
    11101124
Note: See TracChangeset for help on using the changeset viewer.