Ignore:
Timestamp:
Apr 13, 2020 8:11:20 PM (4 years ago)
Author:
raasch
Message:

restart data handling with MPI-IO added, first part

File:
1 edited

Legend:

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

    r4360 r4495  
    2525! -----------------
    2626! $Id$
     27! restart data handling with MPI-IO added
     28!
     29! 4360 2020-01-07 11:25:50Z suehring
    2730! removed recycling_yshift
    2831!
     
    267270             recycling_method_for_thermodynamic_quantities, recycling_width,   &
    268271             reference_state, residual_limit,                                  &
     272             restart_data_format, restart_data_format_input, restart_data_format_output,           &
    269273             rotation_angle,                                                   &
    270274             roughness_length, scalar_advec,                                   &
     
    337341             profile_columns, profile_rows,     &
    338342             restart_time, section_xy, section_xz, section_yz,                 &
     343             restart_data_format, restart_data_format_input, restart_data_format_output,           &
    339344             skip_time_data_output, skip_time_data_output_av, skip_time_dopr,  &
    340345             skip_time_do2d_xy, skip_time_do2d_xz, skip_time_do2d_yz,          &
     
    499504          IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
    500505
     506!
     507!--          If not set by the user in the runtime parameters, the data format for restart
     508!--          input needs to be set now! This is normally done later in check parameters.
     509             IF ( TRIM( restart_data_format ) /= 'fortran_binary'  .AND.                           &
     510                  TRIM( restart_data_format ) /= 'mpi' )  THEN
     511                message_string = 'illegal restart data format "' // TRIM( restart_data_format ) // '"'
     512                CALL message( 'parin', 'PA....', 1, 2, 0, 6, 0 )
     513             ENDIF
     514             IF ( TRIM( restart_data_format_input ) == 'undefined' )  THEN
     515                restart_data_format_input = restart_data_format
     516             ENDIF
     517
    501518             CALL rrd_global
    502519!
Note: See TracChangeset for help on using the changeset viewer.