Changeset 12992
- Timestamp:
- 2020-05-29T16:25:02+02:00 (5 years ago)
- Location:
- NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/lbc_nfd_nogather_generic.h90
r12989 r12992 116 116 ! 117 117 IF ( .NOT. l_fast_exchanges ) THEN 118 IF( nimpp >= Ni0glo/2+ 1+1) THEN118 IF( nimpp >= Ni0glo/2+2 ) THEN 119 119 startloop = 1 120 ELSEIF( nimpp+jpi-1 >= Ni0glo/2+ 1+1 .AND. nimpp < Ni0glo/2+1+1) THEN121 startloop = Ni0glo/2+ 1+1- nimpp + nn_hls120 ELSEIF( nimpp+jpi-1 >= Ni0glo/2+2 .AND. nimpp < Ni0glo/2+2 ) THEN 121 startloop = Ni0glo/2+2 - nimpp + nn_hls 122 122 ELSE 123 123 startloop = jpi + 1 … … 335 335 336 336 IF ( .NOT. l_fast_exchanges ) THEN 337 IF( nimpp >= (Ni0glo/2+1)+1) THEN337 IF( nimpp >= Ni0glo/2+2 ) THEN 338 338 startloop = 1 339 ELSEIF( nimpp+jpi-1 >= (Ni0glo/2+1)+1 .AND. nimpp < (Ni0glo/2+1)+1) THEN340 startloop = (Ni0glo/2+1)+1- nimpp + nn_hls339 ELSEIF( nimpp+jpi-1 >= Ni0glo/2+2 .AND. nimpp < Ni0glo/2+2 ) THEN 340 startloop = Ni0glo/2+2 - nimpp + nn_hls 341 341 ELSE 342 342 startloop = jpi + 1 … … 385 385 endloop = jpi - nn_hls 386 386 ENDIF 387 IF( nimpp >= (Ni0glo/2+1)+1) THEN387 IF( nimpp >= Ni0glo/2+2 ) THEN 388 388 startloop = 1 389 ELSEIF( nimpp+jpi-1 >= (Ni0glo/2+1)+1 .AND. nimpp < (Ni0glo/2+1)+1) THEN390 startloop = (Ni0glo/2+1)+1- nimpp + nn_hls389 ELSEIF( nimpp+jpi-1 >= Ni0glo/2+2 .AND. nimpp < Ni0glo/2+2 ) THEN 390 startloop = Ni0glo/2+2 - nimpp + nn_hls 391 391 ELSE 392 392 startloop = endloop + 1 -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/mpp_nfd_generic.h90
r12989 r12992 179 179 iis0 = nis0all(iproc+1) 180 180 iie0 = nie0all(iproc+1) 181 IF( iilb == 1 ) iis0 = nn_hls! e-w boundary already done -> force to take 1st column182 IF( iilb + ijpi - 1 == jpiglo ) iie0 = Nie0+1! e-w boundary already done -> force to take last column181 IF( iilb == 1 ) iis0 = 1 ! e-w boundary already done -> force to take 1st column 182 IF( iilb + ijpi - 1 == jpiglo ) iie0 = ijpi ! e-w boundary already done -> force to take last column 183 183 iilb = nfiimpp(isendto(jr),jpnj) - nfiimpp(isendto(1),jpnj) 184 184 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.