Changeset 415 for palm/trunk

Timestamp:

Dec 15, 2009 10:26:23 AM (15 years ago)

Author:

raasch

Message:

fortran bugfix in subroutine cascade concerning dimension os MPI status variable

File:

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

palm/trunk/SOURCE/poisfft_hybrid.f90

@@ -1004 +1004 @@
        INTEGER, SAVE ::  tag = 10
 #if defined( __parallel )
-       INTEGER, DIMENSION(MPI_STATUS_SIZE,1) :: stat
+       INTEGER, DIMENSION(MPI_STATUS_SIZE)   :: stat
+       INTEGER, DIMENSION(MPI_STATUS_SIZE,1) :: stata
 #endif
 
@@ -1022 +1023 @@
                    CALL MPI_SENDRECV( buf,  1, MPI_REAL, me_task-1, 0, &
                                       buf1, 1, MPI_REAL, me_task-1, 0, &
-                                                 comm_tasks, stat,ierr )
+                                                 comm_tasks, stat, ierr )
 #endif
                 ELSEIF ( j > nys_p )  THEN
@@ -1031 +1032 @@
                                    tag, comm_tasks, req, ierr )
                    reqa = req
-                   CALL MPI_WAITALL( 1, reqa, stat, ierr )
+                   CALL MPI_WAITALL( 1, reqa, stata, ierr )
 #endif
                 ENDIF