Changeset 172 for codes/icosagcm/trunk
- Timestamp:
- 10/07/13 17:22:25 (11 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/check_conserve.f90
r160 r172 126 126 ENDDO 127 127 128 CALL MPI_REDUCE(mloc, mtot, 1, MPI_REAL8, MPI_SUM, 0, comm_icosa, ierr) 129 CALL MPI_REDUCE(rmsloc, rmsdpdt, 1, MPI_REAL8, MPI_SUM, 0, comm_icosa, ierr) 130 128 IF (using_mpi) THEN 129 CALL MPI_REDUCE(mloc, mtot, 1, MPI_REAL8, MPI_SUM, 0, comm_icosa, ierr) 130 CALL MPI_REDUCE(rmsloc, rmsdpdt, 1, MPI_REAL8, MPI_SUM, 0, comm_icosa, ierr) 131 ENDIF 132 131 133 END SUBROUTINE check_mass_conserve 132 134 -
codes/icosagcm/trunk/src/mpi_mod.F90
r171 r172 36 36 END 37 37 38 SUBROUTINE MPI_REDUCE 39 END 40 38 41 SUBROUTINE MPI_ALLTOALL 39 42 END
Note: See TracChangeset
for help on using the changeset viewer.