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 12992 – NEMO

Changeset 12992


Ignore:
Timestamp:
2020-05-29T16:25:02+02:00 (4 years ago)
Author:
francesca
Message:

Extra_Halo: BENCH test case with halo 2 - verified version - ticket #2366

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  
    116116               ! 
    117117               IF ( .NOT. l_fast_exchanges ) THEN 
    118                   IF( nimpp >= Ni0glo/2+1+1 ) THEN 
     118                  IF( nimpp >= Ni0glo/2+2 ) THEN 
    119119                     startloop = 1 
    120                   ELSEIF( nimpp+jpi-1 >= Ni0glo/2+1+1 .AND. nimpp < Ni0glo/2+1+1 ) THEN 
    121                      startloop = Ni0glo/2+1+1 - nimpp + nn_hls 
     120                  ELSEIF( nimpp+jpi-1 >= Ni0glo/2+2 .AND. nimpp < Ni0glo/2+2 ) THEN 
     121                     startloop = Ni0glo/2+2 - nimpp + nn_hls 
    122122                  ELSE 
    123123                     startloop = jpi + 1 
     
    335335 
    336336               IF ( .NOT. l_fast_exchanges ) THEN 
    337                   IF( nimpp >= (Ni0glo/2+1)+1 ) THEN 
     337                  IF( nimpp >= Ni0glo/2+2 ) THEN 
    338338                     startloop = 1 
    339                   ELSEIF( nimpp+jpi-1 >= (Ni0glo/2+1)+1 .AND. nimpp < (Ni0glo/2+1)+1 ) THEN 
    340                      startloop = (Ni0glo/2+1)+1 - nimpp + nn_hls 
     339                  ELSEIF( nimpp+jpi-1 >= Ni0glo/2+2 .AND. nimpp < Ni0glo/2+2 ) THEN 
     340                     startloop = Ni0glo/2+2 - nimpp + nn_hls 
    341341                  ELSE 
    342342                     startloop = jpi + 1 
     
    385385                     endloop = jpi - nn_hls 
    386386                  ENDIF 
    387                   IF( nimpp >= (Ni0glo/2+1)+1 ) THEN 
     387                  IF( nimpp >= Ni0glo/2+2 ) THEN 
    388388                     startloop = 1  
    389                   ELSEIF( nimpp+jpi-1 >= (Ni0glo/2+1)+1 .AND. nimpp < (Ni0glo/2+1)+1 ) THEN 
    390                      startloop = (Ni0glo/2+1)+1 - nimpp + nn_hls 
     389                  ELSEIF( nimpp+jpi-1 >= Ni0glo/2+2 .AND. nimpp < Ni0glo/2+2 ) THEN 
     390                     startloop = Ni0glo/2+2 - nimpp + nn_hls 
    391391                  ELSE 
    392392                     startloop = endloop + 1 
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/mpp_nfd_generic.h90

    r12989 r12992  
    179179               iis0 = nis0all(iproc+1)  
    180180               iie0 = nie0all(iproc+1) 
    181                IF( iilb            ==      1 )   iis0 = nn_hls   ! e-w boundary already done -> force to take 1st column 
    182                IF( iilb + ijpi - 1 == jpiglo )   iie0 = Nie0+1  ! e-w boundary already done -> force to take last column 
     181               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 
    183183               iilb = nfiimpp(isendto(jr),jpnj) - nfiimpp(isendto(1),jpnj) 
    184184            ENDIF 
Note: See TracChangeset for help on using the changeset viewer.