Changeset 10425 for NEMO/trunk/src/OCE/BDY/bdydyn2d.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/BDY/bdydyn2d.F90
r10068 r10425 109 109 pva2d(ii,ij) = ( pva2d(ii,ij) + zwgt * ( dta%v2d(jb) - pva2d(ii,ij) ) ) * vmask(ii,ij,1) 110 110 END DO 111 CALL lbc_bdy_lnk( pua2d, 'U', -1., ib_bdy )112 CALL lbc_bdy_lnk( pva2d, 'V', -1., ib_bdy) ! Boundary points should be updated111 CALL lbc_bdy_lnk( 'bdydyn2d', pua2d, 'U', -1., ib_bdy ) 112 CALL lbc_bdy_lnk( 'bdydyn2d', pva2d, 'V', -1., ib_bdy) ! Boundary points should be updated 113 113 ! 114 114 END SUBROUTINE bdy_dyn2d_frs … … 169 169 END DO 170 170 171 CALL lbc_bdy_lnk( spgu(:,:), 'T', 1., ib_bdy )171 CALL lbc_bdy_lnk( 'bdydyn2d', spgu(:,:), 'T', 1., ib_bdy ) 172 172 ! 173 173 igrd = 2 ! Flather bc on u-velocity; … … 207 207 pva2d(ii,ij) = zforc + (1._wp - z1_2*zflag) * zcorr * vmask(ii,ij,1) 208 208 END DO 209 CALL lbc_bdy_lnk( pua2d, 'U', -1., ib_bdy ) ! Boundary points should be updated210 CALL lbc_bdy_lnk( pva2d, 'V', -1., ib_bdy ) !209 CALL lbc_bdy_lnk( 'bdydyn2d', pua2d, 'U', -1., ib_bdy ) ! Boundary points should be updated 210 CALL lbc_bdy_lnk( 'bdydyn2d', pva2d, 'V', -1., ib_bdy ) ! 211 211 ! 212 212 END SUBROUTINE bdy_dyn2d_fla … … 243 243 CALL bdy_orlanski_2d( idx, igrd, pvb2d, pva2d, dta%v2d, ll_npo ) 244 244 ! 245 CALL lbc_bdy_lnk( pua2d, 'U', -1., ib_bdy ) ! Boundary points should be updated246 CALL lbc_bdy_lnk( pva2d, 'V', -1., ib_bdy ) !245 CALL lbc_bdy_lnk( 'bdydyn2d', pua2d, 'U', -1., ib_bdy ) ! Boundary points should be updated 246 CALL lbc_bdy_lnk( 'bdydyn2d', pva2d, 'V', -1., ib_bdy ) ! 247 247 ! 248 248 END SUBROUTINE bdy_dyn2d_orlanski … … 291 291 292 292 ! Boundary points should be updated 293 CALL lbc_bdy_lnk( zssh(:,:), 'T', 1., ib_bdy )293 CALL lbc_bdy_lnk( 'bdydyn2d', zssh(:,:), 'T', 1., ib_bdy ) 294 294 END DO 295 295
Note: See TracChangeset
for help on using the changeset viewer.