Changeset 10425 for NEMO/trunk/src/OCE/SBC/sbcwave.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcwave.F90
r10068 r10425 215 215 ENDIF 216 216 217 CALL lbc_lnk_multi( usd, 'U', -1., vsd, 'V', -1. )217 CALL lbc_lnk_multi( 'sbcwave', usd, 'U', -1., vsd, 'V', -1. ) 218 218 219 219 ! … … 240 240 #endif 241 241 ! 242 CALL lbc_lnk( ze3divh, 'T', 1. )242 CALL lbc_lnk( 'sbcwave', ze3divh, 'T', 1. ) 243 243 ! 244 244 IF( ln_linssh ) THEN ; ik = 1 ! none zero velocity through the sea surface … … 301 301 END DO 302 302 END DO 303 CALL lbc_lnk_multi( utau(:,:), 'U', -1. , vtau(:,:), 'V', -1. , taum(:,:) , 'T', -1. )303 CALL lbc_lnk_multi( 'sbcwave', utau(:,:), 'U', -1. , vtau(:,:), 'V', -1. , taum(:,:) , 'T', -1. ) 304 304 ENDIF 305 305 !
Note: See TracChangeset
for help on using the changeset viewer.