Changeset 10425 for NEMO/trunk/src/OCE/TRA/traadv_qck.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_qck.F90
r10068 r10425 150 150 END DO 151 151 END DO 152 CALL lbc_lnk_multi( zfc(:,:,:), 'T', 1. , zfd(:,:,:), 'T', 1. ) ! Lateral boundary conditions152 CALL lbc_lnk_multi( 'traadv_qck', zfc(:,:,:), 'T', 1. , zfd(:,:,:), 'T', 1. ) ! Lateral boundary conditions 153 153 154 154 ! … … 176 176 END DO 177 177 !--- Lateral boundary conditions 178 CALL lbc_lnk_multi( zfu(:,:,:), 'T', 1. , zfd(:,:,:), 'T', 1., zfc(:,:,:), 'T', 1., zwx(:,:,:), 'T', 1. )178 CALL lbc_lnk_multi( 'traadv_qck', zfu(:,:,:), 'T', 1. , zfd(:,:,:), 'T', 1., zfc(:,:,:), 'T', 1., zwx(:,:,:), 'T', 1. ) 179 179 180 180 !--- QUICKEST scheme … … 189 189 END DO 190 190 END DO 191 CALL lbc_lnk( zfu(:,:,:), 'T', 1. ) ! Lateral boundary conditions191 CALL lbc_lnk( 'traadv_qck', zfu(:,:,:), 'T', 1. ) ! Lateral boundary conditions 192 192 193 193 ! … … 207 207 END DO 208 208 ! 209 CALL lbc_lnk( zwx(:,:,:), 'T', 1. ) ! Lateral boundary conditions209 CALL lbc_lnk( 'traadv_qck', zwx(:,:,:), 'T', 1. ) ! Lateral boundary conditions 210 210 ! 211 211 ! Computation of the trend … … 265 265 END DO 266 266 END DO 267 CALL lbc_lnk_multi( zfc(:,:,:), 'T', 1. , zfd(:,:,:), 'T', 1. ) ! Lateral boundary conditions267 CALL lbc_lnk_multi( 'traadv_qck', zfc(:,:,:), 'T', 1. , zfd(:,:,:), 'T', 1. ) ! Lateral boundary conditions 268 268 269 269 … … 294 294 295 295 !--- Lateral boundary conditions 296 CALL lbc_lnk_multi( zfu(:,:,:), 'T', 1. , zfd(:,:,:), 'T', 1., zfc(:,:,:), 'T', 1., zwy(:,:,:), 'T', 1. )296 CALL lbc_lnk_multi( 'traadv_qck', zfu(:,:,:), 'T', 1. , zfd(:,:,:), 'T', 1., zfc(:,:,:), 'T', 1., zwy(:,:,:), 'T', 1. ) 297 297 298 298 !--- QUICKEST scheme … … 307 307 END DO 308 308 END DO 309 CALL lbc_lnk( zfu(:,:,:), 'T', 1. ) !--- Lateral boundary conditions309 CALL lbc_lnk( 'traadv_qck', zfu(:,:,:), 'T', 1. ) !--- Lateral boundary conditions 310 310 ! 311 311 ! Tracer flux on the x-direction … … 324 324 END DO 325 325 ! 326 CALL lbc_lnk( zwy(:,:,:), 'T', 1. ) ! Lateral boundary conditions326 CALL lbc_lnk( 'traadv_qck', zwy(:,:,:), 'T', 1. ) ! Lateral boundary conditions 327 327 ! 328 328 ! Computation of the trend
Note: See TracChangeset
for help on using the changeset viewer.