- 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/SWE/domvvl.F90
r13553 r13906 520 520 ! ! d - thickness diffusion transport: boundary conditions 521 521 ! (stored for tracer advction and continuity equation) 522 #if defined key_mpi3 523 CALL lbc_lnk_nc_multi( 'domvvl', un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp) 524 #else 522 525 CALL lbc_lnk_multi( 'domvvl', un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp) 526 #endif 523 527 524 528 ! 4 - Time stepping of baroclinic scale factors 525 529 ! --------------------------------------------- 530 #if defined key_mpi3 531 CALL lbc_lnk_nc_multi( 'domvvl', tilde_e3t_a(:,:,:), 'T', 1._wp ) 532 #else 526 533 CALL lbc_lnk( 'domvvl', tilde_e3t_a(:,:,:), 'T', 1._wp ) 534 #endif 527 535 tilde_e3t_a(:,:,:) = tilde_e3t_b(:,:,:) + rDt * tmask(:,:,:) * tilde_e3t_a(:,:,:) 528 536 … … 1016 1024 & + e1e2t(ji+1,jj) * pssh(ji+1,jj) ) * r1_hu_0(ji,jj) * r1_e1e2u(ji,jj) 1017 1025 END_2D 1026 #if defined key_mpi3 1027 CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'U', 1._wp ) 1028 #else 1018 1029 CALL lbc_lnk( 'domvvl', zc3(:,:), 'U', 1._wp ) 1030 #endif 1019 1031 ! 1020 1032 DO jk = 1, jpkm1 … … 1027 1039 & + e1e2t(ji,jj+1) * pssh(ji,jj+1) ) * r1_hv_0(ji,jj) * r1_e1e2v(ji,jj) 1028 1040 END_2D 1041 #if defined key_mpi3 1042 CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'V', 1._wp ) 1043 #else 1029 1044 CALL lbc_lnk( 'domvvl', zc3(:,:), 'V', 1._wp ) 1045 #endif 1030 1046 ! 1031 1047 DO jk = 1, jpkm1 … … 1040 1056 & + e1e2t(ji+1,jj+1) * pssh(ji+1,jj+1) ) * r1_hf_0(ji,jj) * r1_e1e2f(ji,jj) 1041 1057 END_2D 1058 #if defined key_mpi3 1059 CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'F', 1._wp ) 1060 #else 1042 1061 CALL lbc_lnk( 'domvvl', zc3(:,:), 'F', 1._wp ) 1062 #endif 1043 1063 ! 1044 1064 DO jk = 1, jpkm1 ! Horizontal interpolation of e3f from ssh … … 1059 1079 & + e1e2t(ji+1,jj) * pssh(ji+1,jj) ) * r1_hu_0(ji,jj) * r1_e1e2u(ji,jj) 1060 1080 END_2D 1081 #if defined key_mpi3 1082 CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'U', 1._wp ) 1083 #else 1061 1084 CALL lbc_lnk( 'domvvl', zc3(:,:), 'U', 1._wp ) 1085 #endif 1062 1086 ! 1063 1087 DO jk = 1, jpk … … 1070 1094 & + e1e2t(ji,jj+1) * pssh(ji,jj+1) ) * r1_hv_0(ji,jj) * r1_e1e2v(ji,jj) 1071 1095 END_2D 1096 #if defined key_mpi3 1097 CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'V', 1._wp ) 1098 #else 1072 1099 CALL lbc_lnk( 'domvvl', zc3(:,:), 'V', 1._wp ) 1100 #endif 1073 1101 ! 1074 1102 DO jk = 1, jpk
Note: See TracChangeset
for help on using the changeset viewer.