- Timestamp:
- 2018-11-15T17:27:18+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/BDY/bdydyn3d.F90
r10170 r10314 97 97 END DO 98 98 END DO 99 CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy ) ! Boundary points should be updated100 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 ) 101 101 ! 102 102 IF( kt == nit000 ) CLOSE( unit = 102 ) … … 144 144 END DO 145 145 END DO 146 CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy ) ! Boundary points should be updated147 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 ) 148 148 ! 149 149 IF( kt == nit000 ) CLOSE( unit = 102 ) … … 187 187 END DO 188 188 ! 189 CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy ) ; CALL lbc_bdy_lnk(va, 'V', -1.,ib_bdy ) ! Boundary points should be updated189 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 190 190 ! 191 191 IF( kt == nit000 ) CLOSE( unit = 102 ) … … 234 234 END DO 235 235 END DO 236 CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy ) ! Boundary points should be updated237 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 ) 238 238 ! 239 239 IF( kt == nit000 ) CLOSE( unit = 102 ) … … 270 270 CALL bdy_orlanski_3d( idx, igrd, vb, va, dta%v3d, ll_npo ) 271 271 ! 272 CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy ) ! Boundary points should be updated273 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 ) 274 274 ! 275 275 END SUBROUTINE bdy_dyn3d_orlanski … … 351 351 CALL bdy_nmn( idx, igrd, va ) 352 352 ! 353 CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy ) ! Boundary points should be updated354 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 ) 355 355 ! 356 356 END SUBROUTINE bdy_dyn3d_nmn
Note: See TracChangeset
for help on using the changeset viewer.