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 13906 for NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE – NEMO

Ignore:
Timestamp:
2020-11-28T19:03:50+01:00 (4 years ago)
Author:
mocavero
Message:

Merge with dev_r13296_HPC-07_mocavero_mpi3

Location:
NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE/asminc.F90

    r13553 r13906  
    423423                     &            / e3t(ji,jj,jk,Kmm) 
    424424               END_2D 
     425#if defined key_mpi3 
     426               CALL lbc_lnk_nc_multi( 'asminc', zhdiv, 'T', 1. )   ! lateral boundary cond. (no sign change) 
     427#else 
    425428               CALL lbc_lnk( 'asminc', zhdiv, 'T', 1. )   ! lateral boundary cond. (no sign change) 
     429#endif 
    426430               ! 
    427431               DO_2D( 0, 0, 0, 0 ) 

  • NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE/diawri.F90

    r13295 r13906  
    184184               &                  + e3t(ji+1,jj,1,Kmm) * e1e2t(ji+1,jj)  ) * r1_e1e2u(ji,jj) 
    185185         END_2D 
     186#if defined key_mpi3 
     187         CALL lbc_lnk_nc_multi( 'diawri', z2d, 'U', 1._wp ) 
     188#else 
    186189         CALL lbc_lnk( 'diawri', z2d, 'U', 1._wp ) 
     190#endif 
    187191         CALL iom_put( "hu", z2d )  
    188192      ENDIF 
    … …  
    194198              &                    + e3t(ji,jj  ,1,Kmm) * e1e2t(ji,jj  )   ) * r1_e1e2v(ji,jj) 
    195199         END_2D 
     200#if defined key_mpi3 
     201         CALL lbc_lnk_nc_multi( 'diawri', z2d, 'V', 1._wp ) 
     202#else 
    196203         CALL lbc_lnk( 'diawri', z2d, 'V', 1._wp ) 
     204#endif 
    197205         CALL iom_put( "hv", z2d )     
    198206      ENDIF              
    … …  
    205213         END_2D 
    206214         z2d(:,:) = z2d(:,:) * ssfmask(:,:) 
     215#if defined key_mpi3 
     216         CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1._wp ) 
     217#else 
    207218         CALL lbc_lnk( 'diawri', z2d, 'F', 1._wp ) 
     219#endif 
    208220         CALL iom_put( "hf", z2d )    
    209221      ENDIF               
    … …  
    224236            ! 
    225237         END_2D 
     238#if defined key_mpi3 
     239         CALL lbc_lnk_nc_multi( 'diawri', z2d, 'T', 1. ) 
     240#else 
    226241         CALL lbc_lnk( 'diawri', z2d, 'T', 1. ) 
     242#endif 
    227243         CALL iom_put( "taubot", z2d )            
    228244      ENDIF 
    … …  
    243259         END_2D 
    244260         ! 
     261#if defined key_mpi3 
     262         CALL lbc_lnk_nc_multi( 'diawri', z2d, 'T', 1. ) 
     263#else 
    245264         CALL lbc_lnk( 'diawri', z2d, 'T', 1. ) 
     265#endif 
    246266         IF ( iom_use("sKE" ) )  CALL iom_put( "sKE" , z2d )    
    247267                            
    … …  
    259279         END_2D 
    260280         ! 
     281#if defined key_mpi3 
     282         CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 
     283#else 
    261284         CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 
     285#endif 
    262286         CALL iom_put( "sKEf", z2d )                      
    263287      ENDIF 
    … …  
    277301            &              - e1u(ji  ,jj+1) * uu(ji  ,jj+1,1,Kmm) + e1u(ji,jj) * uu(ji,jj,1,Kmm)  ) * r1_e1e2f(ji,jj) 
    278302         END_2D 
     303#if defined key_mpi3 
     304         CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 
     305#else 
    279306         CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 
     307#endif 
    280308         CALL iom_put( "relvor", z2d )                  ! relative vorticity ( zeta )  
    281309         ! 
    … …  
    290318            z2d(ji,jj) = ze3 * z2d(ji,jj)  
    291319         END_2D 
     320#if defined key_mpi3 
     321         CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 
     322#else 
    292323         CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 
     324#endif 
    293325         CALL iom_put( "relpotvor", z2d )                  ! relative potential vorticity (zeta/h) 
    294326         ! 
    … …  
    301333            z2d(ji,jj) = ze3 * ff_f(ji,jj) + z2d(ji,jj)  
    302334         END_2D 
     335#if defined key_mpi3 
     336         CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 
     337#else 
    303338         CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 
     339#endif 
    304340         CALL iom_put( "abspotvor", z2d )                  ! absolute potential vorticity ( q ) 
    305341         ! 
    … …  
    307343            z2d(ji,jj) = 0.5_wp * z2d(ji,jj)  * z2d(ji,jj)  
    308344         END_2D 
     345#if defined key_mpi3 
     346         CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 
     347#else 
    309348         CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 
     349#endif 
    310350         CALL iom_put( "Ens", z2d )                        ! potential enstrophy ( 1/2*q2 ) 
    311351         ! 

  • NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE/dommsk.F90

    r13295 r13906  
    141141      ! the following call is mandatory 
    142142      ! it masks boundaries (bathy=0) where needed depending on the configuration (closed, periodic...)   
     143#if defined key_mpi3 
     144      CALL lbc_lnk_nc_multi( 'dommsk', tmask  , 'T', 1._wp )      ! Lateral boundary conditions 
     145#else 
    143146      CALL lbc_lnk( 'dommsk', tmask  , 'T', 1._wp )      ! Lateral boundary conditions 
     147#endif 
    144148 
    145149     ! Mask corrections for bdy (read in mppini2) 
    … …  
    173177         END DO 
    174178      END DO 
     179#if defined key_mpi3 
     180      CALL lbc_lnk_nc_multi( 'dommsk', umask, 'U', 1., vmask, 'V', 1., fmask, 'F', 1. )      ! Lateral boundary conditions 
     181#else 
    175182      CALL lbc_lnk_multi( 'dommsk', umask, 'U', 1., vmask, 'V', 1., fmask, 'F', 1. )      ! Lateral boundary conditions 
     183#endif 
    176184  
    177185      ! Ocean/land mask at wu-, wv- and w points    (computed from tmask) 
    … …  
    198206            &                   tmask(ji,jj  ,1), tmask(ji+1,jj  ,1)   ) 
    199207      END_2D 
     208#if defined key_mpi3 
     209      CALL lbc_lnk_nc_multi( 'dommsk', ssfmask, 'F', 1._wp )    
     210#else 
    200211      CALL lbc_lnk( 'dommsk', ssfmask, 'F', 1._wp )    
     212#endif 
    201213 
    202214!!an 
    … …  
    279291         DEALLOCATE( zwf ) 
    280292         ! 
     293#if defined key_mpi3 
     294         CALL lbc_lnk_nc_multi( 'dommsk', fmask, 'F', 1._wp )      ! Lateral boundary conditions on fmask 
     295#else 
    281296         CALL lbc_lnk( 'dommsk', fmask, 'F', 1._wp )      ! Lateral boundary conditions on fmask 
     297#endif 
    282298         ! 
    283299         ! CAUTION : The fmask may be further modified in dyn_vor_init ( dynvor.F90 ) depending on ln_vorlat 

  • NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE/domvvl.F90

    r13553 r13906  
    520520         !                       ! d - thickness diffusion transport: boundary conditions 
    521521         !                             (stored for tracer advction and continuity equation) 
     522#if defined key_mpi3 
     523         CALL lbc_lnk_nc_multi( 'domvvl', un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp) 
     524#else 
    522525         CALL lbc_lnk_multi( 'domvvl', un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp) 
     526#endif 
    523527 
    524528         ! 4 - Time stepping of baroclinic scale factors 
    525529         ! --------------------------------------------- 
     530#if defined key_mpi3 
     531         CALL lbc_lnk_nc_multi( 'domvvl', tilde_e3t_a(:,:,:), 'T', 1._wp ) 
     532#else 
    526533         CALL lbc_lnk( 'domvvl', tilde_e3t_a(:,:,:), 'T', 1._wp ) 
     534#endif 
    527535         tilde_e3t_a(:,:,:) = tilde_e3t_b(:,:,:) + rDt * tmask(:,:,:) * tilde_e3t_a(:,:,:) 
    528536 
    … …  
    10161024               &                   + e1e2t(ji+1,jj) * pssh(ji+1,jj)  ) * r1_hu_0(ji,jj) * r1_e1e2u(ji,jj) 
    10171025         END_2D 
     1026#if defined key_mpi3 
     1027         CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'U', 1._wp ) 
     1028#else 
    10181029         CALL lbc_lnk( 'domvvl', zc3(:,:), 'U', 1._wp ) 
     1030#endif 
    10191031         ! 
    10201032         DO jk = 1, jpkm1 
    … …  
    10271039               &                   + e1e2t(ji,jj+1) * pssh(ji,jj+1)  ) * r1_hv_0(ji,jj) * r1_e1e2v(ji,jj) 
    10281040         END_2D 
     1041#if defined key_mpi3 
     1042         CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'V', 1._wp ) 
     1043#else 
    10291044         CALL lbc_lnk( 'domvvl', zc3(:,:), 'V', 1._wp ) 
     1045#endif 
    10301046         ! 
    10311047         DO jk = 1, jpkm1 
    … …  
    10401056               &                    + e1e2t(ji+1,jj+1) * pssh(ji+1,jj+1)  ) * r1_hf_0(ji,jj) * r1_e1e2f(ji,jj) 
    10411057         END_2D 
     1058#if defined key_mpi3 
     1059         CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'F', 1._wp ) 
     1060#else 
    10421061         CALL lbc_lnk( 'domvvl', zc3(:,:), 'F', 1._wp ) 
     1062#endif 
    10431063         ! 
    10441064         DO jk = 1, jpkm1                    ! Horizontal interpolation of e3f from ssh 
    … …  
    10591079               &                   + e1e2t(ji+1,jj) * pssh(ji+1,jj)  ) * r1_hu_0(ji,jj) * r1_e1e2u(ji,jj) 
    10601080         END_2D 
     1081#if defined key_mpi3 
     1082         CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'U', 1._wp ) 
     1083#else 
    10611084         CALL lbc_lnk( 'domvvl', zc3(:,:), 'U', 1._wp ) 
     1085#endif 
    10621086         ! 
    10631087         DO jk = 1, jpk 
    … …  
    10701094               &                   + e1e2t(ji,jj+1) * pssh(ji,jj+1)  ) * r1_hv_0(ji,jj) * r1_e1e2v(ji,jj) 
    10711095         END_2D 
     1096#if defined key_mpi3 
     1097         CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'V', 1._wp ) 
     1098#else 
    10721099         CALL lbc_lnk( 'domvvl', zc3(:,:), 'V', 1._wp ) 
     1100#endif 
    10731101          ! 
    10741102         DO jk = 1, jpk 

  • NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE/dynatf.F90

    r13295 r13906  
    165165# endif 
    166166      ! 
     167#if defined key_mpi3 
     168      CALL lbc_lnk_nc_multi( 'dynatf', puu(:,:,:,Kaa), 'U', -1., pvv(:,:,:,Kaa), 'V', -1. )     !* local domain boundaries 
     169#else 
    167170      CALL lbc_lnk_multi( 'dynatf', puu(:,:,:,Kaa), 'U', -1., pvv(:,:,:,Kaa), 'V', -1. )     !* local domain boundaries 
     171#endif 
    168172      ! 
    169173      !                                !* BDY open boundaries 

  • NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE/dynkeg.F90

    r13295 r13906  
    133133            zhke(ji,jj,jk) = r1_48 * ( zv + zu ) 
    134134         END_3D 
     135#if defined key_mpi3 
     136         CALL lbc_lnk_nc_multi( 'dynkeg', zhke, 'T', 1. ) 
     137#else 
    135138         CALL lbc_lnk( 'dynkeg', zhke, 'T', 1. ) 
     139#endif 
    136140         ! 
    137141      END SELECT  

  • NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE/dynldf_lap_blp.F90

    r13295 r13906  
    232232      CALL dyn_ldf_lap( kt, Kbb, Kmm, pu, pv, zulap, zvlap, 1 )   ! rotated laplacian applied to pt (output in zlap,Kbb) 
    233233      ! 
     234#if defined key_mpi3 
     235      CALL lbc_lnk_nc_multi( 'dynldf_lap_blp', zulap, 'U', -1., zvlap, 'V', -1. )             ! Lateral boundary conditions 
     236#else 
    234237      CALL lbc_lnk_multi( 'dynldf_lap_blp', zulap, 'U', -1., zvlap, 'V', -1. )             ! Lateral boundary conditions 
     238#endif 
    235239      ! 
    236240      CALL dyn_ldf_lap( kt, Kbb, Kmm, zulap, zvlap, pu_rhs, pv_rhs, 2 )   ! rotated laplacian applied to zlap (output in pt(:,:,:,:,Krhs)) 

  • NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE/dynvor.F90

    r13295 r13906  
    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         ! 

  • NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE/ldfdyn.F90

    r13295 r13906  
    426426         ENDIF 
    427427         ! 
     428#if defined key_mpi3 
     429         CALL lbc_lnk_nc_multi( 'ldfdyn', ahmt, 'T', 1.,  ahmf, 'F', 1. ) 
     430#else 
    428431         CALL lbc_lnk_multi( 'ldfdyn', ahmt, 'T', 1.,  ahmf, 'F', 1. ) 
     432#endif 
    429433         ! 
    430434         ! 
    … …  
    458462            END DO 
    459463            ! 
     464#if defined key_mpi3 
     465            CALL lbc_lnk_nc_multi( 'ldfdyn', dtensq, 'T', 1. )  ! lbc_lnk on dshesq not needed 
     466#else 
    460467            CALL lbc_lnk_multi( 'ldfdyn', dtensq, 'T', 1. )  ! lbc_lnk on dshesq not needed 
     468#endif 
    461469            ! 
    462470            DO jk = 1, jpkm1 
    … …  
    509517         ENDIF 
    510518         ! 
     519#if defined key_mpi3 
     520         CALL lbc_lnk_nc_multi( 'ldfdyn', ahmt, 'T', 1. , ahmf, 'F', 1. ) 
     521#else 
    511522         CALL lbc_lnk_multi( 'ldfdyn', ahmt, 'T', 1. , ahmf, 'F', 1. ) 
     523#endif 
    512524         ! 
    513525      END SELECT 

  • NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE/sbcice_cice.F90

    r13295 r13906  
    224224      END_2D 
    225225 
     226#if defined key_mpi3 
     227      CALL lbc_lnk_nc_multi( 'sbcice_cice', fr_iu , 'U', 1.,  fr_iv , 'V', 1. ) 
     228#else 
    226229      CALL lbc_lnk_multi( 'sbcice_cice', fr_iu , 'U', 1.,  fr_iv , 'V', 1. ) 
     230#endif 
    227231 
    228232      ! set the snow+ice mass 
    … …  
    510514         ss_iou(ji,jj) = 0.5 * ( ztmp1(ji,jj-1) + ztmp1(ji,jj) ) * umask(ji,jj,1) 
    511515      END_2D 
     516#if defined key_mpi3 
     517      CALL lbc_lnk_nc_multi( 'sbcice_cice', ss_iou , 'U', -1. ) 
     518#else 
    512519      CALL lbc_lnk( 'sbcice_cice', ss_iou , 'U', -1. ) 
     520#endif 
    513521 
    514522! y comp of ocean-ice stress  
    … …  
    520528         ss_iov(ji,jj) = 0.5 * ( ztmp1(ji-1,jj) + ztmp1(ji,jj) ) * vmask(ji,jj,1) 
    521529      END_2D 
     530#if defined key_mpi3 
     531      CALL lbc_lnk_nc_multi( 'sbcice_cice', ss_iov , 'V', -1. ) 
     532#else 
    522533      CALL lbc_lnk( 'sbcice_cice', ss_iov , 'V', -1. ) 
     534#endif 
    523535 
    524536! x and y comps of surface stress 
    … …  
    573585      fmmflx(:,:) = ztmp1(:,:) !!Joakim edit 
    574586       
     587#if defined key_mpi3 
     588      CALL lbc_lnk_nc_multi( 'sbcice_cice', emp , 'T', 1., sfx , 'T', 1. ) 
     589#else 
    575590      CALL lbc_lnk_multi( 'sbcice_cice', emp , 'T', 1., sfx , 'T', 1. ) 
     591#endif 
    576592 
    577593! Solar penetrative radiation and non solar surface heat flux 
    … …  
    599615#endif 
    600616      qsr(:,:)=qsr(:,:)+ztmp1(:,:) 
     617#if defined key_mpi3 
     618      CALL lbc_lnk_nc_multi( 'sbcice_cice', qsr , 'T', 1. ) 
     619#else 
    601620      CALL lbc_lnk( 'sbcice_cice', qsr , 'T', 1. ) 
     621#endif 
    602622 
    603623      DO_2D( 1, 1, 1, 1 ) 
    … …  
    612632      qns(:,:)=qns(:,:)+nfrzmlt(:,:)+ztmp1(:,:) 
    613633 
     634#if defined key_mpi3 
     635      CALL lbc_lnk_nc_multi( 'sbcice_cice', qns , 'T', 1. ) 
     636#else 
    614637      CALL lbc_lnk( 'sbcice_cice', qns , 'T', 1. ) 
     638#endif 
    615639 
    616640! Prepare for the following CICE time-step 
    … …  
    630654      END_2D 
    631655 
     656#if defined key_mpi3 
     657      CALL lbc_lnk_nc_multi( 'sbcice_cice', fr_iu , 'U', 1., fr_iv , 'V', 1. ) 
     658#else 
    632659      CALL lbc_lnk_multi( 'sbcice_cice', fr_iu , 'U', 1., fr_iv , 'V', 1. ) 
     660#endif 
    633661 
    634662      ! set the snow+ice mass 
    … …  
    852880!     A. Ensure all haloes are filled in NEMO field (pn) 
    853881 
     882#if defined key_mpi3 
     883      CALL lbc_lnk_nc_multi( 'sbcice_cice', pn , cd_type, psgn ) 
     884#else 
    854885      CALL lbc_lnk( 'sbcice_cice', pn , cd_type, psgn ) 
     886#endif 
    855887 
    856888#if defined key_nemocice_decomp 
    … …  
    10271059!     D. Ensure all haloes are filled in pn 
    10281060 
     1061#if defined key_mpi3 
     1062      CALL lbc_lnk_nc_multi( 'sbcice_cice', pn , cd_type, psgn ) 
     1063#else 
    10291064      CALL lbc_lnk( 'sbcice_cice', pn , cd_type, psgn ) 
     1065#endif 
    10301066 
    10311067   END SUBROUTINE cice2nemo 

  • NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE/step.F90

    r13553 r13906  
    237237 
    238238 
     239#if defined key_mpi3 
     240      CALL lbc_lnk_nc_multi( 'stp', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1.,   &   !* local domain boundaries 
     241         &                       uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1.    )      
     242#else 
    239243      CALL lbc_lnk_multi( 'stp', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1.,   &   !* local domain boundaries 
    240244         &                       uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1.    )      
     245#endif 
    241246 
    242247!!an          

  • NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE/stepLF.F90

    r13295 r13906  
    248248 
    249249 
     250#if defined key_mpi3 
     251      CALL lbc_lnk_nc_multi( 'stp', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1.,   &   !* local domain boundaries 
     252         &                       uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1.    )      
     253#else 
    250254      CALL lbc_lnk_multi( 'stp', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1.,   &   !* local domain boundaries 
    251255         &                       uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1.    )      
     256#endif 
    252257 
    253258!!an          

  • NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/SWE/stpRK3.F90

    r13295 r13906  
    308308 
    309309 
     310#if defined key_mpi3 
     311      CALL lbc_lnk_nc_multi( 'stp_RK3', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1.,   &   !* local domain boundaries 
     312         &                       uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1.    )      
     313#else 
    310314      CALL lbc_lnk_multi( 'stp_RK3', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1.,   &   !* local domain boundaries 
    311315         &                       uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1.    )      
     316#endif 
    312317 
    313318!!an          
Note: See TracChangeset for help on using the changeset viewer.