New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12518 – NEMO

Changeset 12518


Ignore:
Timestamp:
2020-03-05T17:01:00+01:00 (4 years ago)
Author:
smueller
Message:

Correction of the fallback option for MPI-2 compatibility in delayed global MPP operations (ticket #2382)

This changeset is the merging of changeset [12512] (see ticket #2381) into the release-4.0-HEAD version of NEMO.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/release-4.0-HEAD/src/OCE/LBC/lib_mpp.F90

    r11536 r12518  
    398398# if defined key_mpi2 
    399399      IF( ln_timing ) CALL tic_tac( .TRUE., ld_global = .TRUE.) 
    400       CALL  mpi_allreduce( y_in(:), todelay(idvar)%y1d(:), isz, MPI_DOUBLE_COMPLEX, mpi_sumdd, ilocalcomm, ndelayid(idvar), ierr ) 
     400      CALL  mpi_allreduce( y_in(:), todelay(idvar)%y1d(:), isz, MPI_DOUBLE_COMPLEX, mpi_sumdd, ilocalcomm, ierr ) 
     401      ndelayid(idvar) = 1 
    401402      IF( ln_timing ) CALL tic_tac(.FALSE., ld_global = .TRUE.) 
    402403# else 
     
    465466# if defined key_mpi2 
    466467      IF( ln_timing ) CALL tic_tac( .TRUE., ld_global = .TRUE.) 
    467       CALL  mpi_allreduce( p_in(:), todelay(idvar)%z1d(:), isz, MPI_DOUBLE_PRECISION, mpi_max, ilocalcomm, ndelayid(idvar), ierr ) 
     468      CALL  mpi_allreduce( p_in(:), todelay(idvar)%z1d(:), isz, MPI_DOUBLE_PRECISION, mpi_max, ilocalcomm, ierr ) 
     469      ndelayid(idvar) = 1 
    468470      IF( ln_timing ) CALL tic_tac(.FALSE., ld_global = .TRUE.) 
    469471# else 
Note: See TracChangeset for help on using the changeset viewer.