Changeset 4801 for palm

Timestamp:

Nov 27, 2020 4:06:40 PM (3 years ago)

Author:

raasch

Message:

bugfix for r4800

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! bugfix for r4800
+!
+! 4800 2020-11-27 14:51:30Z raasch
 ! File re-formatted to follow the PALM coding standard
 !
@@ -7086 +7089 @@
 !--    raytrace_mpi_rma is asserted
 
-       CALL MPI_IINFO_CREATE( minfo, ierr )
+       CALL MPI_INFO_CREATE( minfo, ierr )
        IF ( ierr /= 0 )  THEN
-           WRITE( 9, * ) 'Error MPI_IINFO_CREATE1:', ierr
+           WRITE( 9, * ) 'Error MPI_INFO_CREATE1:', ierr
            FLUSH( 9 )
        ENDIF
-       CALL MPI_IINFO_SET( minfo, 'accumulate_ordering', 'none', ierr )
+       CALL MPI_INFO_SET( minfo, 'accumulate_ordering', 'none', ierr )
        IF ( ierr /= 0 )  THEN
            WRITE( 9, * ) 'Error MPI_INFO_SET1:', ierr
@@ -7108 +7111 @@
        CALL MPI_INFO_SET( minfo, 'same_disp_unit', 'true', ierr )
        IF ( ierr /= 0 )  THEN
-           WRITE( 9, * ) 'Error MPI_IINFO_SET4:', ierr
+           WRITE( 9, * ) 'Error MPI_INFO_SET4:', ierr
            FLUSH( 9 )
        ENDIF