- 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/zpshde.F90
r9019 r9094 144 144 END DO 145 145 END DO 146 CALL lbc_lnk ( pgtu(:,:,jn), 'U', -1. ) ; CALL lbc_lnk(pgtv(:,:,jn), 'V', -1. ) ! Lateral boundary cond.146 CALL lbc_lnk_multi( pgtu(:,:,jn), 'U', -1. , pgtv(:,:,jn), 'V', -1. ) ! Lateral boundary cond. 147 147 ! 148 148 END DO … … 183 183 END DO 184 184 END DO 185 CALL lbc_lnk ( pgru , 'U', -1. ) ; CALL lbc_lnk(pgrv , 'V', -1. ) ! Lateral boundary conditions185 CALL lbc_lnk_multi( pgru , 'U', -1. , pgrv , 'V', -1. ) ! Lateral boundary conditions 186 186 ! 187 187 END IF … … 305 305 END DO 306 306 END DO 307 CALL lbc_lnk ( pgtu(:,:,jn), 'U', -1. ) ; CALL lbc_lnk(pgtv(:,:,jn), 'V', -1. ) ! Lateral boundary cond.307 CALL lbc_lnk_multi( pgtu(:,:,jn), 'U', -1. , pgtv(:,:,jn), 'V', -1. ) ! Lateral boundary cond. 308 308 ! 309 309 END DO … … 353 353 END DO 354 354 355 CALL lbc_lnk ( pgru , 'U', -1. ) ; CALL lbc_lnk(pgrv , 'V', -1. ) ! Lateral boundary conditions355 CALL lbc_lnk_multi( pgru , 'U', -1. , pgrv , 'V', -1. ) ! Lateral boundary conditions 356 356 ! 357 357 END IF … … 404 404 END DO 405 405 END DO 406 CALL lbc_lnk( pgtui(:,:,jn), 'U', -1. ); CALL lbc_lnk( pgtvi(:,:,jn), 'V', -1. ) ! Lateral boundary cond.407 406 ! 408 407 END DO 408 CALL lbc_lnk_multi( pgtui(:,:,:), 'U', -1. , pgtvi(:,:,:), 'V', -1. ) ! Lateral boundary cond. 409 409 410 410 IF( PRESENT( prd ) ) THEN !== horizontal derivative of density anomalies (rd) ==! (optional part) … … 449 449 END DO 450 450 END DO 451 CALL lbc_lnk ( pgrui , 'U', -1. ); CALL lbc_lnk( pgrvi, 'V', -1. ) ! Lateral boundary conditions451 CALL lbc_lnk_multi( pgrui, 'U', -1. , pgrvi, 'V', -1. ) ! Lateral boundary conditions 452 452 ! 453 453 END IF
Note: See TracChangeset
for help on using the changeset viewer.