- 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/DYN/wet_dry.F90
r10069 r10170 241 241 END DO 242 242 END DO 243 CALL lbc_lnk_multi( zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. )243 CALL lbc_lnk_multi( 'wet_dry', zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 244 244 ! 245 245 IF( lk_mpp ) CALL mpp_max(jflag) !max over the global domain … … 257 257 ! 258 258 !!gm TO BE SUPPRESSED ? these lbc_lnk are useless since zwdlmtu and zwdlmtv are defined everywhere ! 259 CALL lbc_lnk_multi( un , 'U', -1., vn , 'V', -1. )260 CALL lbc_lnk_multi( un_b, 'U', -1., vn_b, 'V', -1. )259 CALL lbc_lnk_multi( 'wet_dry', un , 'U', -1., vn , 'V', -1. ) 260 CALL lbc_lnk_multi( 'wet_dry', un_b, 'U', -1., vn_b, 'V', -1. ) 261 261 !!gm 262 262 ! … … 370 370 END DO ! jj loop 371 371 ! 372 CALL lbc_lnk_multi( zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. )372 CALL lbc_lnk_multi( 'wet_dry', zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 373 373 ! 374 374 IF(lk_mpp) CALL mpp_max(jflag) !max over the global domain … … 382 382 ! 383 383 !!gm THIS lbc_lnk is useless since it is already done at the end of the jk1-loop 384 CALL lbc_lnk_multi( zflxu, 'U', -1., zflxv, 'V', -1. )384 CALL lbc_lnk_multi( 'wet_dry', zflxu, 'U', -1., zflxv, 'V', -1. ) 385 385 !!gm end 386 386 !
Note: See TracChangeset
for help on using the changeset viewer.