Changeset 287 for codes/icosagcm/branches

Timestamp:

10/21/14 11:25:36 (10 years ago)

Author:

ymipsl

Message:

bug fix in bcast function.

YM

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/transfert_mpi.f90 (modified) (1 diff)

codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/transfert_mpi.f90

@@ -1949 +1949 @@
     IF (.NOT. using_mpi) RETURN
 
-    CALL MPI_BCAST(Var,nb,MPI_REAL,mpi_master,comm_icosa,ierr)
+    CALL MPI_BCAST(Var,nb,MPI_REAL8,mpi_master,comm_icosa,ierr)
     
   END SUBROUTINE bcast_mpi_rgen