Changeset 13252 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/lbc_nfd_generic.h90
- Timestamp:
- 2020-07-06T10:23:31+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/lbc_nfd_generic.h90
r13247 r13252 150 150 ARRAY_IN(ii1,ij1,jk,jl,jf) = SGN_IN(jf) * ARRAY_IN(ii2,ij2,jk,jl,jf) 151 151 END DO 152 ! ! points jpiglo - nn_hls + 1 to jpiglo: have been / will done by e-w periodicity152 ! ! last nn_hls-1 points: have been / will done by e-w periodicity 153 153 END DO 154 154 ! … … 195 195 ARRAY_IN(ii1,ij1,jk,jl,jf) = SGN_IN(jf) * ARRAY_IN(ii2,ij2,jk,jl,jf) 196 196 END DO 197 ! ! points jpiglo - nn_hls + 1 to jpiglo: have been / will done by e-w periodicity197 ! ! last nn_hls-1 points: have been / will done by e-w periodicity 198 198 END DO 199 199 ! … … 392 392 ARRAY_IN(ii1,ij1,jk,jl,jf) = SGN_IN(jf) * ARRAY_IN(ii2,ij2,jk,jl,jf) 393 393 END DO 394 ! ! points jpiglo - nn_hls + 1 to jpiglo: have been / will done by e-w periodicity394 ! ! last nn_hls points: have been / will done by e-w periodicity 395 395 END DO 396 396 ! … … 447 447 ARRAY_IN(ii1,ij1,jk,jl,jf) = SGN_IN(jf) * ARRAY_IN(ii2,ij2,jk,jl,jf) 448 448 END DO 449 ! ! points jpiglo - nn_hls + 1 to jpiglo: have been / will done by e-w periodicity449 ! ! last nn_hls points: have been / will done by e-w periodicity 450 450 END DO 451 451 !
Note: See TracChangeset
for help on using the changeset viewer.