Ignore:
Timestamp:
2020-04-17T08:53:28+02:00 (8 months ago)
Author:
smasson
Message:

Extra_Halo: update do_loop_substitute for nn_hls=2, see #2366

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/par_oce.F90

    r12719 r12760  
    7878   INTEGER, PUBLIC, PARAMETER ::   jpr2di = 0   !: number of columns for extra outer halo  
    7979   INTEGER, PUBLIC, PARAMETER ::   jpr2dj = 0   !: number of rows    for extra outer halo  
    80    INTEGER, PUBLIC            ::   nn_hls       !: halo width (applies to both rows and columns) 
     80 
     81   ! halo with and starting/inding DO-loop indices 
     82   INTEGER, PUBLIC ::   nn_hls   !: halo width (applies to both rows and columns) 
     83   INTEGER, PUBLIC ::   nIs_0, nIs_1, nIs_1nxt2, nIs_2   !: start I-index (_0: without halo, _1 or _2: with 1 or 2 halos) 
     84   INTEGER, PUBLIC ::   nIe_0, nIe_1, nIe_1nxt2, nIe_2   !: end   I-index (_0: without halo, _1 or _2: with 1 or 2 halos) 
     85   INTEGER, PUBLIC ::   nJs_0, nJs_1, nJs_1nxt2, nJs_2   !: start J-index (_0: without halo, _1 or _2: with 1 or 2 halos) 
     86   INTEGER, PUBLIC ::   nJe_0, nJe_1, nJe_1nxt2, nJe_2   !: end   J-index (_0: without halo, _1 or _2: with 1 or 2 halos) 
    8187 
    8288   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.