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 10425 for NEMO/trunk/src/OCE/BDY/bdydyn3d.F90 – NEMO

Ignore:
Timestamp:
2018-12-19T22:54:16+01:00 (5 years ago)
Author:
smasson
Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/BDY/bdydyn3d.F90

    r10068 r10425  
    9797         END DO 
    9898      END DO 
    99       CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy )   ! Boundary points should be updated   
    100       CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy )    
     99      CALL lbc_bdy_lnk( 'bdydyn3d', ua, 'U', -1., ib_bdy )   ! Boundary points should be updated   
     100      CALL lbc_bdy_lnk( 'bdydyn3d', va, 'V', -1., ib_bdy )    
    101101      ! 
    102102      IF( kt == nit000 )   CLOSE( unit = 102 ) 
    … …  
    144144         END DO 
    145145      END DO 
    146       CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy )   ! Boundary points should be updated   
    147       CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy )    
     146      CALL lbc_bdy_lnk( 'bdydyn3d', ua, 'U', -1., ib_bdy )   ! Boundary points should be updated   
     147      CALL lbc_bdy_lnk( 'bdydyn3d', va, 'V', -1., ib_bdy )    
    148148      ! 
    149149      IF( kt == nit000 )   CLOSE( unit = 102 ) 
    … …  
    187187      END DO 
    188188      ! 
    189       CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy )   ;   CALL lbc_bdy_lnk( va, 'V', -1.,ib_bdy )   ! Boundary points should be updated 
     189      CALL lbc_bdy_lnk( 'bdydyn3d', ua, 'U', -1., ib_bdy )   ;   CALL lbc_bdy_lnk( 'bdydyn3d', va, 'V', -1.,ib_bdy )   ! Boundary points should be updated 
    190190      ! 
    191191      IF( kt == nit000 )   CLOSE( unit = 102 ) 
    … …  
    234234         END DO 
    235235      END DO  
    236       CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy )    ! Boundary points should be updated 
    237       CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy )    
     236      CALL lbc_bdy_lnk( 'bdydyn3d', ua, 'U', -1., ib_bdy )    ! Boundary points should be updated 
     237      CALL lbc_bdy_lnk( 'bdydyn3d', va, 'V', -1., ib_bdy )    
    238238      ! 
    239239      IF( kt == nit000 )   CLOSE( unit = 102 ) 
    … …  
    270270      CALL bdy_orlanski_3d( idx, igrd, vb, va, dta%v3d, ll_npo ) 
    271271      ! 
    272       CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy )    ! Boundary points should be updated 
    273       CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy )    
     272      CALL lbc_bdy_lnk( 'bdydyn3d', ua, 'U', -1., ib_bdy )    ! Boundary points should be updated 
     273      CALL lbc_bdy_lnk( 'bdydyn3d', va, 'V', -1., ib_bdy )    
    274274      ! 
    275275   END SUBROUTINE bdy_dyn3d_orlanski 
    … …  
    319319      END DO 
    320320      ! 
    321       CALL lbc_lnk_multi( ua, 'U', -1.,  va, 'V', -1. )   ! Boundary points should be updated 
     321      CALL lbc_lnk_multi( 'bdydyn3d', ua, 'U', -1.,  va, 'V', -1. )   ! Boundary points should be updated 
    322322      ! 
    323323      IF( ln_timing )   CALL timing_stop('bdy_dyn3d_dmp') 
    … …  
    351351      CALL bdy_nmn( idx, igrd, va ) 
    352352      ! 
    353       CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy )    ! Boundary points should be updated 
    354       CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy ) 
     353      CALL lbc_bdy_lnk( 'bdydyn3d', ua, 'U', -1., ib_bdy )    ! Boundary points should be updated 
     354      CALL lbc_bdy_lnk( 'bdydyn3d', va, 'V', -1., ib_bdy ) 
    355355      ! 
    356356   END SUBROUTINE bdy_dyn3d_nmn 
Note: See TracChangeset for help on using the changeset viewer.