- Timestamp:
- 2020-11-28T19:03:50+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/src/OCE/stpMLF.F90
r13237 r13906 457 457 #endif 458 458 ! ! local domain boundaries (T-point, unchanged sign) 459 #if defined key_mpi3 460 CALL lbc_lnk_nc_multi( 'finalize_sbc', puu(:,:,:, Kaa), 'U', -1., pvv(:,:,: ,Kaa), 'V', -1. & 461 & , pts(:,:,:,jp_tem,Kaa), 'T', 1., pts(:,:,:,jp_sal,Kaa), 'T', 1. ) !* local domain boundaries 462 #else 459 463 CALL lbc_lnk_multi( 'finalize_sbc', puu(:,:,:, Kaa), 'U', -1., pvv(:,:,: ,Kaa), 'V', -1. & 460 464 & , pts(:,:,:,jp_tem,Kaa), 'T', 1., pts(:,:,:,jp_sal,Kaa), 'T', 1. ) !* local domain boundaries 465 #endif 461 466 ! 462 467 ! !* BDY open boundaries
Note: See TracChangeset
for help on using the changeset viewer.