- Timestamp:
- 2018-10-03T16:49:50+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ZDF/zdfphy.F90
r10069 r10170 292 292 ! !* Lateral boundary conditions (sign unchanged) 293 293 IF( l_zdfsh2 ) THEN 294 CALL lbc_lnk_multi( avm_k, 'W', 1. , avt_k, 'W', 1., &294 CALL lbc_lnk_multi( 'zdfphy', avm_k, 'W', 1. , avt_k, 'W', 1., & 295 295 & avm , 'W', 1. , avt , 'W', 1. , avs , 'W', 1. ) 296 296 ELSE 297 CALL lbc_lnk_multi( avm , 'W', 1. , avt , 'W', 1. , avs , 'W', 1. )297 CALL lbc_lnk_multi( 'zdfphy', avm , 'W', 1. , avt , 'W', 1. , avs , 'W', 1. ) 298 298 ENDIF 299 299 ! 300 300 IF( l_zdfdrg ) THEN ! drag have been updated (non-linear cases) 301 IF( ln_isfcav ) THEN ; CALL lbc_lnk_multi( rCdU_top, 'T', 1. , rCdU_bot, 'T', 1. ) ! top & bot drag302 ELSE ; CALL lbc_lnk ( rCdU_bot, 'T', 1. ) ! bottom drag only301 IF( ln_isfcav ) THEN ; CALL lbc_lnk_multi( 'zdfphy', rCdU_top, 'T', 1. , rCdU_bot, 'T', 1. ) ! top & bot drag 302 ELSE ; CALL lbc_lnk ( 'zdfphy', rCdU_bot, 'T', 1. ) ! bottom drag only 303 303 ENDIF 304 304 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.