Changeset 172 for codes/icosagcm/trunk/src/mpi_mod.F90

Timestamp:

10/07/13 17:22:25 (11 years ago)

Author:

ymipsl

Message:

doesn't work in sequential mode
=> Add MPI_REDUCE wrapper

YM

File:

• codes/icosagcm/trunk/src/mpi_mod.F90 (modified) (1 diff)

codes/icosagcm/trunk/src/mpi_mod.F90

@@ -36 +36 @@
  END
 
+ SUBROUTINE MPI_REDUCE
+ END
+
  SUBROUTINE MPI_ALLTOALL
  END