Changeset 10425 for NEMO/trunk/src/OCE/DYN/wet_dry.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DYN/wet_dry.F90
r10069 r10425 241 241 END DO 242 242 END DO 243 CALL lbc_lnk_multi( zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. )244 ! 245 IF( lk_mpp ) CALL mpp_max(jflag) !max over the global domain243 CALL lbc_lnk_multi( 'wet_dry', zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 244 ! 245 CALL mpp_max('wet_dry', jflag) !max over the global domain 246 246 ! 247 247 IF( jflag == 0 ) EXIT … … 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. )373 ! 374 IF(lk_mpp) CALL mpp_max(jflag) !max over the global domain372 CALL lbc_lnk_multi( 'wet_dry', zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 373 ! 374 CALL mpp_max('wet_dry', jflag) !max over the global domain 375 375 ! 376 376 IF(jflag == 0) EXIT … … 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.