Changeset 3827 for dynamico_lmdz/aquaplanet/LMDZ5/libf

Timestamp:

May 13, 2015, 11:40:56 AM (10 years ago)

Author:

ymipsl

Message:

Bug fix for parallel configuration.
Result with 4 MPi proc and 1 proc are now identical.
Actually not tested with openMP.

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/mod_phys_lmdz_mpi_data.F90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/mod_phys_lmdz_mpi_data.F90

@@ -87 +87 @@
     IF (is_using_mpi) THEN    
 #ifdef CPP_MPI
-    CALL MPI_ALLGATHER(nbp,1,MPI_REAL8,distrib,1,MPI_REAL_LMDZ,COMM_LMDZ_PHY,ierr)
+    CALL MPI_ALLGATHER(nbp,1,MPI_INTEGER,distrib,1,MPI_INTEGER,COMM_LMDZ_PHY,ierr)
 #endif
     ELSE