New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13252 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/lbc_nfd_generic.h90 – NEMO

Ignore:
Timestamp:
2020-07-06T10:23:31+02:00 (4 years ago)
Author:
smasson
Message:

Extra_Halo: work with ln_nnogather = F, see #2366

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  
    150150                        ARRAY_IN(ii1,ij1,jk,jl,jf) = SGN_IN(jf) * ARRAY_IN(ii2,ij2,jk,jl,jf) 
    151151                     END DO 
    152                      !                            ! points jpiglo - nn_hls + 1 to jpiglo : have been / will done by e-w periodicity  
     152                     !                            ! last nn_hls-1 points: have been / will done by e-w periodicity  
    153153                  END DO 
    154154                  ! 
    … …  
    195195                        ARRAY_IN(ii1,ij1,jk,jl,jf) = SGN_IN(jf) * ARRAY_IN(ii2,ij2,jk,jl,jf) 
    196196                     END DO 
    197                      !                            ! points jpiglo - nn_hls + 1 to jpiglo : have been / will done by e-w periodicity  
     197                     !                            ! last nn_hls-1 points: have been / will done by e-w periodicity  
    198198                  END DO 
    199199                  ! 
    … …  
    392392                        ARRAY_IN(ii1,ij1,jk,jl,jf) = SGN_IN(jf) * ARRAY_IN(ii2,ij2,jk,jl,jf) 
    393393                     END DO 
    394                      !                            ! points jpiglo - nn_hls + 1 to jpiglo : have been / will done by e-w periodicity  
     394                     !                            ! last nn_hls points: have been / will done by e-w periodicity  
    395395                  END DO 
    396396                  ! 
    … …  
    447447                        ARRAY_IN(ii1,ij1,jk,jl,jf) = SGN_IN(jf) * ARRAY_IN(ii2,ij2,jk,jl,jf) 
    448448                     END DO 
    449                      !                            ! points jpiglo - nn_hls + 1 to jpiglo : have been / will done by e-w periodicity  
     449                     !                            ! last nn_hls points: have been / will done by e-w periodicity  
    450450                  END DO 
    451451                  ! 
Note: See TracChangeset for help on using the changeset viewer.