Ignore:
Timestamp:
2020-07-05T16:59:00+02:00 (7 months ago)
Author:
smasson
Message:

Extra_Halo: bugfix following merge with trunk@13218, see #2366

Location:
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90

    r13238 r13251  
    8888         kpj = kpj - 2   ! for compatibility with old version (because kerio=7) --> to be removed 
    8989      ELSE                           ! Global Domain size: add nbghostcells + 1 "land" point on each side 
    90          kpi  = nbcellsx + nbghostcells_x   + nbghostcells_x   + 2 
    91          kpj  = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2 
     90         kpi  = nbcellsx + 2 * ( nbghostcells + 1 ) 
     91         kpj  = nbcellsy + 2 * ( nbghostcells + 1 ) 
     92!!$         kpi  = nbcellsx + nbghostcells_x   + nbghostcells_x   + 2 
     93!!$         kpj  = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2 
    9294      ENDIF 
    9395      kpk = 2 
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/VORTEX/MY_SRC/usrdef_nam.F90

    r13238 r13251  
    8585         kpj = NINT( 1800.e3  / rn_dy ) + 3  
    8686      ELSE                          ! Global Domain size: add nbghostcells + 1 "land" point on each side 
    87          kpi  = nbcellsx + nbghostcells_x   + nbghostcells_x   + 2 
    88          kpj  = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2 
     87         kpi  = nbcellsx + 2 * ( nbghostcells + 1 ) 
     88         kpj  = nbcellsy + 2 * ( nbghostcells + 1 ) 
     89!!$         kpi  = nbcellsx + nbghostcells_x   + nbghostcells_x   + 2 
     90!!$         kpj  = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2 
    8991      ENDIF 
    9092      kpk = NINT( 5000._wp / rn_dz ) + 1 
Note: See TracChangeset for help on using the changeset viewer.