Ignore:
Timestamp:
2019-10-18T12:52:29+02:00 (13 months ago)
Author:
francesca
Message:

add extra halo support- ticket #2009

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/par_oce.F90

    r10068 r11719  
    5757   INTEGER, PUBLIC ::   jpimax! = ( jpiglo-2*nn_hls + (jpni-1) ) / jpni + 2*nn_hls !: maximum jpi 
    5858   INTEGER, PUBLIC ::   jpjmax! = ( jpjglo-2*nn_hls + (jpnj-1) ) / jpnj + 2*nn_hls !: maximum jpj 
     59   INTEGER, PUBLIC ::   jplbi 
     60   INTEGER, PUBLIC ::   jplbj 
    5961 
    6062   !!--------------------------------------------------------------------- 
     
    7476   INTEGER, PUBLIC, PARAMETER ::   jpr2di = 0   !: number of columns for extra outer halo  
    7577   INTEGER, PUBLIC, PARAMETER ::   jpr2dj = 0   !: number of rows    for extra outer halo  
    76    INTEGER, PUBLIC, PARAMETER ::   nn_hls = 1   !: halo width (applies to both rows and columns) 
     78   INTEGER, PUBLIC            ::   nn_hls       !: halo width (applies to both rows and columns) 
    7779 
    7880   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.