Ignore:
Timestamp:
Nov 27, 2020 4:06:40 PM (4 years ago)
Author:
raasch
Message:

bugfix for r4800

File:
1 edited

Legend:

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

    r4800 r4801  
    2727! -----------------
    2828! $Id$
     29! bugfix for r4800
     30!
     31! 4800 2020-11-27 14:51:30Z raasch
    2932! File re-formatted to follow the PALM coding standard
    3033!
     
    70867089!--    raytrace_mpi_rma is asserted
    70877090
    7088        CALL MPI_IINFO_CREATE( minfo, ierr )
     7091       CALL MPI_INFO_CREATE( minfo, ierr )
    70897092       IF ( ierr /= 0 )  THEN
    7090            WRITE( 9, * ) 'Error MPI_IINFO_CREATE1:', ierr
     7093           WRITE( 9, * ) 'Error MPI_INFO_CREATE1:', ierr
    70917094           FLUSH( 9 )
    70927095       ENDIF
    7093        CALL MPI_IINFO_SET( minfo, 'accumulate_ordering', 'none', ierr )
     7096       CALL MPI_INFO_SET( minfo, 'accumulate_ordering', 'none', ierr )
    70947097       IF ( ierr /= 0 )  THEN
    70957098           WRITE( 9, * ) 'Error MPI_INFO_SET1:', ierr
     
    71087111       CALL MPI_INFO_SET( minfo, 'same_disp_unit', 'true', ierr )
    71097112       IF ( ierr /= 0 )  THEN
    7110            WRITE( 9, * ) 'Error MPI_IINFO_SET4:', ierr
     7113           WRITE( 9, * ) 'Error MPI_INFO_SET4:', ierr
    71117114           FLUSH( 9 )
    71127115       ENDIF
Note: See TracChangeset for help on using the changeset viewer.