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/SWE/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/SWE/dynvor.F90

    r13295 r13630  
    242242            ENDIF 
    243243         END DO 
     244#if defined key_mpi3 
     245         CALL lbc_lnk_nc_multi( 'dynvor', zwz, 'F', 1. ) 
     246#else 
    244247         CALL lbc_lnk( 'dynvor', zwz, 'F', 1. ) 
     248#endif 
    245249         ! 
    246250      END SELECT 
    … …  
    599603      END DO                                           !   End of slab 
    600604         ! 
     605#if defined key_mpi3 
     606      CALL lbc_lnk_nc_multi( 'dynvor', zwz, 'F', 1. ) 
     607#else 
    601608      CALL lbc_lnk( 'dynvor', zwz, 'F', 1. ) 
     609#endif 
    602610 
    603611      DO jk = 1, jpkm1                                 ! Horizontal slab 
    … …  
    720728      END DO 
    721729      ! 
     730#if defined key_mpi3 
     731      CALL lbc_lnk_nc_multi( 'dynvor', zwz, 'F', 1. ) 
     732#else 
    722733      CALL lbc_lnk( 'dynvor', zwz, 'F', 1. ) 
     734#endif 
    723735      ! 
    724736      DO jk = 1, jpkm1                                 ! Horizontal slab 
    … …  
    812824         END_3D 
    813825         ! 
     826#if defined key_mpi3 
     827         CALL lbc_lnk_nc_multi( 'dynvor', fmask, 'F', 1._wp )      ! Lateral boundary conditions on fmask 
     828#else 
    814829         CALL lbc_lnk( 'dynvor', fmask, 'F', 1._wp )      ! Lateral boundary conditions on fmask 
     830#endif 
    815831         ! 
    816832      ENDIF 
    … …  
    850866               dj_e1v_2(ji,jj) = ( e1v(ji,jj) - e1v(ji  ,jj-1) ) * 0.5_wp 
    851867            END_2D 
     868#if defined key_mpi3 
     869            CALL lbc_lnk_nc_multi( 'dynvor', di_e2u_2, 'T', -1. , dj_e1v_2, 'T', -1. )   ! Lateral boundary conditions 
     870#else 
    852871            CALL lbc_lnk_multi( 'dynvor', di_e2u_2, 'T', -1. , dj_e1v_2, 'T', -1. )   ! Lateral boundary conditions 
     872#endif 
    853873            ! 
    854874         CASE DEFAULT                        !* F-point metric term :   pre-compute di(e2u)/(2*e1e2f) and dj(e1v)/(2*e1e2f) 
    … …  
    858878               dj_e1u_2e1e2f(ji,jj) = ( e1u(ji  ,jj+1) - e1u(ji,jj) )  * 0.5 * r1_e1e2f(ji,jj) 
    859879            END_2D 
     880#if defined key_mpi3 
     881            CALL lbc_lnk_nc_multi( 'dynvor', di_e2v_2e1e2f, 'F', -1. , dj_e1u_2e1e2f, 'F', -1. )   ! Lateral boundary conditions 
     882#else 
    860883            CALL lbc_lnk_multi( 'dynvor', di_e2v_2e1e2f, 'F', -1. , dj_e1u_2e1e2f, 'F', -1. )   ! Lateral boundary conditions 
     884#endif 
    861885         END SELECT 
    862886         ! 
Note: See TracChangeset for help on using the changeset viewer.