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 13963 for NEMO/branches/2020/dev_r13923_Tiling_Cleanup_MPI3_LoopFusion/src/OCE/BDY/bdyini.F90 – NEMO

Ignore:
Timestamp:
2020-12-02T06:43:12+01:00 (4 years ago)
Author:
mocavero
Message:

Cleanup mpi3 calls and key_mpi3 moved inside lbc_lnk routine

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r13923_Tiling_Cleanup_MPI3_LoopFusion/src/OCE/BDY/bdyini.F90

    r13906 r13963  
    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 
    643640      CALL lbc_lnk( 'bdyini', zfmask, 'F', 1.0_wp ) 
    644 #endif 
    645641 
    646642      ! Read global 2D mask at T-points: bdytmask 
    … …  
    658654         END DO 
    659655      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 
    663656      CALL lbc_lnk_multi( 'bdyini', bdyumask, 'U', 1.0_wp , bdyvmask, 'V', 1.0_wp )   ! Lateral boundary cond.  
    664 #endif 
    665657 
    666658      ! bdy masks are now set to zero on rim 0 points: 
    … …  
    703695         END DO 
    704696      END DO 
    705 #if defined key_mpi3 
    706       CALL lbc_lnk_nc_multi( 'bdyini', zfmask, 'F', 1.0_wp ) 
    707 #else 
    708697      CALL lbc_lnk( 'bdyini', zfmask, 'F', 1.0_wp ) 
    709 #endif 
    710698 
    711699      ! bdy masks are now set to zero on rim1 points: 
    … …  
    883871            ENDIF  
    884872            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 
    890873               CASE( 1 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'T', 1.0_wp ) 
    891874               CASE( 2 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'U', 1.0_wp ) 
    892875               CASE( 3 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'V', 1.0_wp ) 
    893 #endif 
    894876            END SELECT  
    895877            DO ib = ibeg, iend 
    … …  
    937919            ENDIF 
    938920            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 
    944921               CASE( 1 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'T', 1.0_wp ) 
    945922               CASE( 2 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'U', 1.0_wp ) 
    946923               CASE( 3 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'V', 1.0_wp ) 
    947 #endif 
    948924            END SELECT  
    949925            DO ib = ibeg, iend 
    … …  
    10311007            END DO 
    10321008            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 
    10381009               CASE( 1 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'T', 1.0_wp ) 
    10391010               CASE( 2 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'U', 1.0_wp ) 
    10401011               CASE( 3 )   ;   CALL lbc_lnk( 'bdyini', ztmp, 'V', 1.0_wp ) 
    1041 #endif 
    10421012            END SELECT  
    10431013            DO ib = ibeg, iend 
Note: See TracChangeset for help on using the changeset viewer.