Ignore:
Timestamp:
May 15, 2020 12:07:23 PM (12 months ago)
Author:
raasch
Message:

bugfix for restart data format query

File:
1 edited

Legend:

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

    r4517 r4535  
    2525! -----------------
    2626! $Id$
     27! bugfix for restart data format query
     28!
     29! 4517 2020-05-03 14:29:30Z raasch
    2730! added restart with MPI-IO for reading local arrays
    2831!
     
    12411244!       WRITE ( 14 )  global_parameter
    12421245
    1243     ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
     1246    ELSEIF ( restart_data_format_output(1:3) == 'mpi' )  THEN
    12441247
    12451248!    CALL rrd_mpi_io( 'global_parameter', global_parameter )
     
    12701273!       ENDIF
    12711274
    1272     ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
     1275    ELSEIF ( restart_data_format_output(1:3) == 'mpi' )  THEN
    12731276
    12741277!       IF ( ALLOCATED( u2_av ) )  CALL wrd_mpi_io( 'u2_av', u2_av )
Note: See TracChangeset for help on using the changeset viewer.