Ignore:
Timestamp:
2020-03-13T15:51:01+01:00 (9 months ago)
Author:
smasson
Message:

dev_r12472_ASINTER-05: update to trunk@12550, see #2156

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12472_ASINTER-05_Masson_CurrentFeedback/src/OCE/LBC/lib_mpp.F90

    r12377 r12551  
    402402# if defined key_mpi2 
    403403      IF( ln_timing ) CALL tic_tac( .TRUE., ld_global = .TRUE.) 
    404       CALL  mpi_allreduce( y_in(:), todelay(idvar)%y1d(:), isz, MPI_DOUBLE_COMPLEX, mpi_sumdd, ilocalcomm, ndelayid(idvar), ierr ) 
     404      CALL  mpi_allreduce( y_in(:), todelay(idvar)%y1d(:), isz, MPI_DOUBLE_COMPLEX, mpi_sumdd, ilocalcomm, ierr ) 
     405      ndelayid(idvar) = 1 
    405406      IF( ln_timing ) CALL tic_tac(.FALSE., ld_global = .TRUE.) 
    406407# else 
     
    469470# if defined key_mpi2 
    470471      IF( ln_timing ) CALL tic_tac( .TRUE., ld_global = .TRUE.) 
    471       CALL  mpi_allreduce( p_in(:), todelay(idvar)%z1d(:), isz, MPI_DOUBLE_PRECISION, mpi_max, ilocalcomm, ndelayid(idvar), ierr ) 
     472      CALL  mpi_allreduce( p_in(:), todelay(idvar)%z1d(:), isz, MPI_DOUBLE_PRECISION, mpi_max, ilocalcomm, ierr ) 
     473      ndelayid(idvar) = 1 
    472474      IF( ln_timing ) CALL tic_tac(.FALSE., ld_global = .TRUE.) 
    473475# else 
Note: See TracChangeset for help on using the changeset viewer.