Ignore:
Timestamp:
Jul 22, 2020 9:48:50 AM (12 months ago)
Author:
raasch
Message:

cyclic fill mode implemented for MPI-IO, check, if boundary conditions in the prerun are both set to cyclic

File:
1 edited

Legend:

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

    r4590 r4617  
    2525! -----------------
    2626! $Id$
     27! check, if boundary conditions in the prerun are both set to cyclic
     28!
     29! 4590 2020-07-06 14:34:59Z suehring
    2730! Bugfix in allocation of hom and hom_sum in case of mpi-io restart when
    2831! chemistry or salsa are employed
     
    11761179
    11771180    CHARACTER (LEN=10) ::  version_on_file
     1181    CHARACTER (LEN=20) ::  bc_lr_on_file
     1182    CHARACTER (LEN=20) ::  bc_ns_on_file
    11781183    CHARACTER (LEN=20) ::  momentum_advec_check
    11791184    CHARACTER (LEN=20) ::  scalar_advec_check
     
    13081313                ENDIF
    13091314
     1315             CASE ( 'bc_lr' )
     1316                READ ( 13 )  bc_lr_on_file
     1317                IF ( TRIM( bc_lr_on_file ) /= 'cyclic' )  THEN
     1318                   message_string = 'bc_lr in the prerun was set /= "cyclic"'
     1319                   CALL message( 'rrd_read_parts_of_global', 'PA0498', 1, 2, 0, 6, 0 )
     1320                ENDIF
     1321
     1322             CASE ( 'bc_ns' )
     1323                READ ( 13 )  bc_ns_on_file
     1324                IF ( TRIM( bc_ns_on_file ) /= 'cyclic' )  THEN
     1325                   message_string = 'bc_ns in the prerun was set /= "cyclic"'
     1326                   CALL message( 'rrd_read_parts_of_global', 'PA0498', 1, 2, 0, 6, 0 )
     1327                ENDIF
     1328
    13101329             CASE ( 'hom' )
    13111330                ALLOCATE( hom_on_file(0:nz+1,2,pr_palm+max_pr_user_on_file,    &
     
    14451464       ENDIF
    14461465
    1447        CALL rrd_mpi_io( 'nx', nx_on_file )
    1448        CALL rrd_mpi_io( 'ny', ny_on_file )
    1449        CALL rrd_mpi_io_global_array( 'ref_state', ref_state )
     1466       CALL rrd_mpi_io( 'bc_lr', bc_lr_on_file )
     1467       CALL rrd_mpi_io( 'bc_ns', bc_ns_on_file )
     1468       IF ( TRIM( bc_lr_on_file ) /= 'cyclic'  .OR.  TRIM( bc_ns_on_file ) /= 'cyclic' )  THEN
     1469          message_string = 'bc_lr and/or bc_ns in the prerun was set /= "cyclic"'
     1470          CALL message( 'rrd_read_parts_of_global', 'PA0498', 1, 2, 0, 6, 0 )
     1471       ENDIF
    14501472
    14511473       scalar_advec_check = scalar_advec
     
    14571479          CALL message( 'rrd_read_parts_of_global', 'PA0101', 1, 2, 0, 6, 0 )
    14581480       ENDIF
     1481
     1482       CALL rrd_mpi_io( 'nx', nx_on_file )
     1483       CALL rrd_mpi_io( 'ny', ny_on_file )
     1484       CALL rrd_mpi_io_global_array( 'ref_state', ref_state )
    14591485
    14601486!
     
    22702296
    22712297!
    2272 !--    Read global restart data using MPI-IO
     2298!--    Read local restart data using MPI-IO
    22732299!
    22742300!--    Open the MPI-IO restart file.
Note: See TracChangeset for help on using the changeset viewer.