Changeset 172


Ignore:
Timestamp:
10/07/13 17:22:25 (11 years ago)
Author:
ymipsl
Message:

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

YM

Location:
codes/icosagcm/trunk/src
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/check_conserve.f90

    r160 r172  
    126126    ENDDO 
    127127 
    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     
    131133  END SUBROUTINE check_mass_conserve 
    132134 

  • codes/icosagcm/trunk/src/mpi_mod.F90

    r171 r172  
    3636 END 
    3737 
     38 SUBROUTINE MPI_REDUCE 
     39 END 
     40 
    3841 SUBROUTINE MPI_ALLTOALL 
    3942 END 
Note: See TracChangeset for help on using the changeset viewer.