Changeset 14229 for NEMO/trunk/src/OCE/LBC/mpp_loc_generic.h90
- Timestamp:
- 2020-12-20T13:45:55+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LBC/mpp_loc_generic.h90
r13458 r14229 2 2 # if defined SINGLE_PRECISION 3 3 # define ARRAY_TYPE(i,j,k) REAL(sp) , INTENT(in ) :: ARRAY_IN(i,j,k) 4 #if defined key_mpp_mpi4 #if ! defined key_mpi_off 5 5 # define MPI_TYPE MPI_2REAL 6 6 #endif … … 8 8 # else 9 9 # define ARRAY_TYPE(i,j,k) REAL(dp) , INTENT(in ) :: ARRAY_IN(i,j,k) 10 #if defined key_mpp_mpi10 #if ! defined key_mpi_off 11 11 # define MPI_TYPE MPI_2DOUBLE_PRECISION 12 12 #endif … … 95 95 zain(2,:) = REAL(index0, PRECISION) 96 96 ! 97 #if defined key_mpp_mpi97 #if ! defined key_mpi_off 98 98 IF( ln_timing ) CALL tic_tac(.TRUE., ld_global = .TRUE.) 99 99 CALL MPI_ALLREDUCE( zain, zaout, 1, MPI_TYPE, MPI_OPERATION ,MPI_COMM_OCE, ierror) … … 131 131 #undef MASK_IN 132 132 #undef K_SIZE 133 #if defined key_mpp_mpi133 #if ! defined key_mpi_off 134 134 # undef MPI_TYPE 135 135 #endif
Note: See TracChangeset
for help on using the changeset viewer.