Changeset 412 for palm/trunk/SOURCE/poisfft_hybrid.f90

Timestamp:

Dec 14, 2009 7:14:46 AM (15 years ago)

Author:

raasch

Message:

data asignments for dvrp arrays switched back to old settings due to runtime problems; type problem in mpi_waitall (poisfft_hybrid) fixed for mpi2 libraries

File:

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

palm/trunk/SOURCE/poisfft_hybrid.f90

@@ -4 +4 @@
 ! Current revisions: 
 ! ----------------- 
-! 
+! Dimension of array stat in cascade change to prevent type problems with
+! mpi2 libraries
 !
 ! Former revisions: 
@@ -1003 +1004 @@
        INTEGER, SAVE ::  tag = 10
 #if defined( __parallel )
-       INTEGER, DIMENSION(MPI_STATUS_SIZE) :: stat
+       INTEGER, DIMENSION(MPI_STATUS_SIZE,1) :: stat
 #endif