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/BDY/bdyini.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/BDY/bdyini.F90

    r13571 r13630  
    638638         END DO 
    639639      END DO 
     640#if defined key_mpi3 
     641      CALL lbc_lnk_nc_multi( 'bdyini', zfmask, 'F', 1.0_wp ) 
     642#else 
    640643      CALL lbc_lnk( 'bdyini', zfmask, 'F', 1.0_wp ) 
     644#endif 
    641645 
    642646      ! Read global 2D mask at T-points: bdytmask 
    … …  
    654658         END DO 
    655659      END DO 
     660#if defined key_mpi3 
     661      CALL lbc_lnk_nc_multi( 'bdyini', bdyumask, 'U', 1.0_wp , bdyvmask, 'V', 1.0_wp )   ! Lateral boundary cond.  
     662#else 
    656663      CALL lbc_lnk_multi( 'bdyini', bdyumask, 'U', 1.0_wp , bdyvmask, 'V', 1.0_wp )   ! Lateral boundary cond.  
     664#endif 
    657665 
    658666      ! bdy masks are now set to zero on rim 0 points: 
    … …  
    695703         END DO 
    696704      END DO 
     705#if defined key_mpi3 
     706      CALL lbc_lnk_nc_multi( 'bdyini', zfmask, 'F', 1.0_wp ) 
     707#else 
    697708      CALL lbc_lnk( 'bdyini', zfmask, 'F', 1.0_wp ) 
     709#endif 
    698710 
    699711      ! bdy masks are now set to zero on rim1 points: 
    … …  
    871883            ENDIF  
    872884            SELECT CASE( igrd ) 
     885#if defined key_mpi3 
     886               CASE( 1 )   ;   CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'T', 1.0_wp ) 
     887               CASE( 2 )   ;   CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'U', 1.0_wp ) 
     888               CASE( 3 )   ;   CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'V', 1.0_wp ) 
     889#else 
    873890               CASE( 1 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'T', 1.0_wp ) 
    874891               CASE( 2 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'U', 1.0_wp ) 
    875892               CASE( 3 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'V', 1.0_wp ) 
     893#endif 
    876894            END SELECT  
    877895            DO ib = ibeg, iend 
    … …  
    919937            ENDIF 
    920938            SELECT CASE( igrd ) 
     939#if defined key_mpi3 
     940               CASE( 1 )   ;   CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'T', 1.0_wp ) 
     941               CASE( 2 )   ;   CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'U', 1.0_wp ) 
     942               CASE( 3 )   ;   CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'V', 1.0_wp ) 
     943#else 
    921944               CASE( 1 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'T', 1.0_wp ) 
    922945               CASE( 2 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'U', 1.0_wp ) 
    923946               CASE( 3 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'V', 1.0_wp ) 
     947#endif 
    924948            END SELECT  
    925949            DO ib = ibeg, iend 
    … …  
    10071031            END DO 
    10081032            SELECT CASE( igrd ) 
     1033#if defined key_mpi3 
     1034               CASE( 1 )   ;   CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'T', 1.0_wp ) 
     1035               CASE( 2 )   ;   CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'U', 1.0_wp ) 
     1036               CASE( 3 )   ;   CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'V', 1.0_wp ) 
     1037#else 
    10091038               CASE( 1 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'T', 1.0_wp ) 
    10101039               CASE( 2 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'U', 1.0_wp ) 
    10111040               CASE( 3 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'V', 1.0_wp ) 
     1041#endif 
    10121042            END SELECT  
    10131043            DO ib = ibeg, iend 
Note: See TracChangeset for help on using the changeset viewer.