Changeset 4067

Timestamp:

Jul 1, 2019 1:29:25 PM (5 years ago)

Author:

suehring

Message:

Bugfix, pass dummy string to MPI_INFO_SET

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix, pass dummy string to MPI_INFO_SET (J. Resler)
+! 
+! 4039 2019-06-18 10:32:41Z suehring
 ! Bugfix for masked data output
 ! 
@@ -6395 +6398 @@
               FLUSH(9)
           ENDIF
-          CALL MPI_Info_set(minfo, 'accumulate_ordering', '', ierr)
+          CALL MPI_Info_set(minfo, 'accumulate_ordering', 'none', ierr)
           IF ( ierr /= 0 ) THEN
               WRITE(9,*) 'Error MPI_Info_set1:', ierr
@@ -6835 +6838 @@
                     FLUSH(9)
                 ENDIF
-                CALL MPI_Info_set(minfo, 'accumulate_ordering', '', ierr)
+                CALL MPI_Info_set(minfo, 'accumulate_ordering', 'none', ierr)
                 IF ( ierr /= 0 ) THEN
                     WRITE(9,*) 'Error MPI_Info_set5:', ierr