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 13630 for NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/dynvor.F90 – NEMO

Ignore:
Timestamp:
2020-10-19T10:48:19+02:00 (4 years ago)
Author:
mocavero
Message:

Add neighborhood collectives calls in the NEMO src - ticket #2496

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/dynvor.F90

    r13571 r13630  
    242242         END DO 
    243243 
     244#if defined key_mpi3 
     245         CALL lbc_lnk_nc_multi( 'dynvor', zwz, 'F', 1.0_wp ) 
     246#else 
    244247         CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp ) 
     248#endif 
    245249 
    246250      CASE ( np_CRV )                           !* Coriolis + relative vorticity 
    … …  
    257261         END DO 
    258262 
     263#if defined key_mpi3 
     264         CALL lbc_lnk_nc_multi( 'dynvor', zwz, 'F', 1.0_wp ) 
     265#else 
    259266         CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp ) 
     267#endif 
    260268 
    261269      END SELECT 
    … …  
    823831         END_3D 
    824832         ! 
     833#if defined key_mpi3 
     834         CALL lbc_lnk_nc_multi( 'dynvor', fmask, 'F', 1._wp )      ! Lateral boundary conditions on fmask 
     835#else 
    825836         CALL lbc_lnk( 'dynvor', fmask, 'F', 1._wp )      ! Lateral boundary conditions on fmask 
     837#endif 
    826838         ! 
    827839      ENDIF 
    … …  
    861873               dj_e1v_2(ji,jj) = ( e1v(ji,jj) - e1v(ji  ,jj-1) ) * 0.5_wp 
    862874            END_2D 
     875#if defined key_mpi3 
     876            CALL lbc_lnk_nc_multi( 'dynvor', di_e2u_2, 'T', -1.0_wp , dj_e1v_2, 'T', -1.0_wp )   ! Lateral boundary conditions 
     877#else 
    863878            CALL lbc_lnk_multi( 'dynvor', di_e2u_2, 'T', -1.0_wp , dj_e1v_2, 'T', -1.0_wp )   ! Lateral boundary conditions 
     879#endif 
    864880            ! 
    865881         CASE DEFAULT                        !* F-point metric term :   pre-compute di(e2u)/(2*e1e2f) and dj(e1v)/(2*e1e2f) 
    … …  
    869885               dj_e1u_2e1e2f(ji,jj) = ( e1u(ji  ,jj+1) - e1u(ji,jj) )  * 0.5 * r1_e1e2f(ji,jj) 
    870886            END_2D 
     887#if defined key_mpi3 
     888            CALL lbc_lnk_nc_multi( 'dynvor', di_e2v_2e1e2f, 'F', -1.0_wp , dj_e1u_2e1e2f, 'F', -1.0_wp )   ! Lateral boundary conditions 
     889#else 
    871890            CALL lbc_lnk_multi( 'dynvor', di_e2v_2e1e2f, 'F', -1.0_wp , dj_e1u_2e1e2f, 'F', -1.0_wp )   ! Lateral boundary conditions 
     891#endif 
    872892         END SELECT 
    873893         ! 
Note: See TracChangeset for help on using the changeset viewer.