Changeset 9092
- Timestamp:
- 2017-12-15T18:20:09+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/wet_dry.F90
r9090 r9092 259 259 END DO ! jj loop 260 260 261 CALL lbc_lnk( zwdlmtu, 'U', 1. ) 262 CALL lbc_lnk( zwdlmtv, 'V', 1. ) 261 CALL lbc_lnk_multi( zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 263 262 264 263 IF(lk_mpp) CALL mpp_max(jflag) !max over the global domain … … 273 272 END DO 274 273 275 CALL lbc_lnk( un, 'U', -1. ) 276 CALL lbc_lnk( vn, 'V', -1. ) 274 CALL lbc_lnk_multi( un, 'U', -1., vn, 'V', -1. ) 277 275 ! 278 276 un_b(:,:) = un_b(:,:) * zwdlmtu(:, :) 279 277 vn_b(:,:) = vn_b(:,:) * zwdlmtv(:, :) 280 CALL lbc_lnk( un_b, 'U', -1. ) 281 CALL lbc_lnk( vn_b, 'V', -1. ) 278 CALL lbc_lnk_multi( un_b, 'U', -1., vn_b, 'V', -1. ) 282 279 283 280 IF(jflag == 1 .AND. lwp) WRITE(numout,*) 'Need more iterations in wad_lmt!!!' … … 403 400 END DO ! jj loop 404 401 405 CALL lbc_lnk( zwdlmtu, 'U', 1. ) 406 CALL lbc_lnk( zwdlmtu, 'U', 1. ) 407 CALL lbc_lnk( zwdlmtv, 'V', 1. ) 402 CALL lbc_lnk_multi( zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 408 403 409 404 IF(lk_mpp) CALL mpp_max(jflag) !max over the global domain … … 416 411 zflxv(:,:) = zflxv(:,:) * zwdlmtv(:, :) 417 412 418 CALL lbc_lnk( zflxu, 'U', -1. ) 419 CALL lbc_lnk( zflxv, 'V', -1. ) 413 CALL lbc_lnk_multi( zflxu, 'U', -1., zflxv, 'V', -1. ) 420 414 421 415 IF(jflag == 1 .AND. lwp) WRITE(numout,*) 'Need more iterations in wad_lmt_bt!!!'
Note: See TracChangeset
for help on using the changeset viewer.