Changeset 10425 for NEMO/trunk/src/OCE/TRA/traadv_fct.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRA/traadv_fct.F90
r10068 r10425 169 169 END DO 170 170 END DO 171 CALL lbc_lnk( zwi, 'T', 1. ) ! Lateral boundary conditions on zwi (unchanged sign)172 171 ! 173 172 IF( l_trd .OR. l_hst ) THEN ! trend diagnostics (contribution of upstream fluxes) … … 208 207 END DO 209 208 END DO 210 CALL lbc_lnk_multi( zltu, 'T', 1. , zltv, 'T', 1. ) ! Lateral boundary cond. (unchanged sgn)209 CALL lbc_lnk_multi( 'traadv_fct', zltu, 'T', 1. , zltv, 'T', 1. ) ! Lateral boundary cond. (unchanged sgn) 211 210 ! 212 211 DO jk = 1, jpkm1 ! Horizontal advective fluxes … … 233 232 END DO 234 233 END DO 235 CALL lbc_lnk_multi( ztu, 'U', -1. , ztv, 'V', -1. ) ! Lateral boundary cond. (unchanged sgn)234 CALL lbc_lnk_multi( 'traadv_fct', ztu, 'U', -1. , ztv, 'V', -1. ) ! Lateral boundary cond. (unchanged sgn) 236 235 ! 237 236 DO jk = 1, jpkm1 ! Horizontal advective fluxes … … 279 278 ENDIF 280 279 ! 281 CALL lbc_lnk_multi( zwx, 'U', -1. , zwy, 'V', -1., zwz, 'W', 1. )280 CALL lbc_lnk_multi( 'traadv_fct', zwi, 'T', 1., zwx, 'U', -1. , zwy, 'V', -1., zwz, 'W', 1. ) 282 281 ! 283 282 ! !== monotonicity algorithm ==! … … 399 398 END DO 400 399 END DO 401 CALL lbc_lnk_multi( zbetup, 'T', 1. , zbetdo, 'T', 1. ) ! lateral boundary cond. (unchanged sign)400 CALL lbc_lnk_multi( 'traadv_fct', zbetup, 'T', 1. , zbetdo, 'T', 1. ) ! lateral boundary cond. (unchanged sign) 402 401 403 402 ! 3. monotonic flux in the i & j direction (paa & pbb) … … 425 424 END DO 426 425 END DO 427 CALL lbc_lnk_multi( paa, 'U', -1. , pbb, 'V', -1. ) ! lateral boundary condition (changed sign)426 CALL lbc_lnk_multi( 'traadv_fct', paa, 'U', -1. , pbb, 'V', -1. ) ! lateral boundary condition (changed sign) 428 427 ! 429 428 END SUBROUTINE nonosc
Note: See TracChangeset
for help on using the changeset viewer.