- Timestamp:
- 2017-12-15T18:26:58+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_fct.F90
r9019 r9094 211 211 END DO 212 212 END DO 213 CALL lbc_lnk ( zltu, 'T', 1. ) ; CALL lbc_lnk(zltv, 'T', 1. ) ! Lateral boundary cond. (unchanged sgn)213 CALL lbc_lnk_multi( zltu, 'T', 1. , zltv, 'T', 1. ) ! Lateral boundary cond. (unchanged sgn) 214 214 ! 215 215 DO jk = 1, jpkm1 ! Horizontal advective fluxes … … 236 236 END DO 237 237 END DO 238 CALL lbc_lnk ( ztu, 'U', -1. ) ; CALL lbc_lnk(ztv, 'V', -1. ) ! Lateral boundary cond. (unchanged sgn)238 CALL lbc_lnk_multi( ztu, 'U', -1. , ztv, 'V', -1. ) ! Lateral boundary cond. (unchanged sgn) 239 239 ! 240 240 DO jk = 1, jpkm1 ! Horizontal advective fluxes … … 282 282 ENDIF 283 283 ! 284 CALL lbc_lnk( zwx, 'U', -1. ) ; CALL lbc_lnk( zwy, 'V', -1. ) ! Lateral bondary conditions 285 CALL lbc_lnk( zwz, 'W', 1. ) 284 CALL lbc_lnk_multi( zwx, 'U', -1. , zwy, 'V', -1., zwz, 'W', 1. ) 286 285 ! 287 286 ! !== monotonicity algorithm ==! … … 402 401 END DO 403 402 END DO 404 CALL lbc_lnk ( zbetup, 'T', 1. ) ; CALL lbc_lnk(zbetdo, 'T', 1. ) ! lateral boundary cond. (unchanged sign)403 CALL lbc_lnk_multi( zbetup, 'T', 1. , zbetdo, 'T', 1. ) ! lateral boundary cond. (unchanged sign) 405 404 406 405 ! 3. monotonic flux in the i & j direction (paa & pbb) … … 428 427 END DO 429 428 END DO 430 CALL lbc_lnk ( paa, 'U', -1. ) ; CALL lbc_lnk(pbb, 'V', -1. ) ! lateral boundary condition (changed sign)429 CALL lbc_lnk_multi( paa, 'U', -1. , pbb, 'V', -1. ) ! lateral boundary condition (changed sign) 431 430 ! 432 431 IF( ln_timing ) CALL timing_stop('nonosc')
Note: See TracChangeset
for help on using the changeset viewer.