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

Changeset 9026


Ignore:
Timestamp:
2017-12-13T21:54:36+01:00 (6 years ago)
Author:
acc
Message:

Branch 2017/dev_CNRS_2017. Fix out of date par_oce.F90 in TEST_CASES/SAS_BIPER/MY_SRC

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_CNRS_2017/NEMOGCM/CONFIG/TEST_CASES/SAS_BIPER/MY_SRC/par_oce.F90

    r8882 r9026  
    5454 
    5555   ! local domain size                !!! * local computational domain * 
    56    INTEGER, PUBLIC ::   jpi   ! = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci   !: first  dimension 
    57    INTEGER, PUBLIC ::   jpj   ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj   !: second dimension 
     56   INTEGER, PUBLIC ::   jpi   ! = ( jpiglo-2*nn_hls + (jpni-1) ) / jpni + 2*nn_hls   !: first  dimension 
     57   INTEGER, PUBLIC ::   jpj   ! = ( jpjglo-2*nn_hls + (jpnj-1) ) / jpnj + 2*nn_hls   !: second dimension 
    5858   INTEGER, PUBLIC ::   jpk   ! = jpkglo 
    5959   INTEGER, PUBLIC ::   jpim1 ! = jpi-1                                            !: inner domain indices 
     
    6161   INTEGER, PUBLIC ::   jpkm1 ! = jpk-1                                            !:   -     -      - 
    6262   INTEGER, PUBLIC ::   jpij  ! = jpi*jpj                                          !:  jpi x jpj 
     63   INTEGER, PUBLIC ::   jpimax! = maximum jpi across all areas  
     64   INTEGER, PUBLIC ::   jpjmax! = maximum jpj across all areas 
    6365 
    6466   !!--------------------------------------------------------------------- 
     
    7880   INTEGER, PUBLIC, PARAMETER ::   jpr2di = 0   !: number of columns for extra outer halo  
    7981   INTEGER, PUBLIC, PARAMETER ::   jpr2dj = 0   !: number of rows    for extra outer halo  
    80    INTEGER, PUBLIC, PARAMETER ::   jpreci = 1   !: number of columns for overlap  
    81    INTEGER, PUBLIC, PARAMETER ::   jprecj = 1   !: number of rows    for overlap  
     82   INTEGER, PUBLIC, PARAMETER ::   nn_hls = 1   !: halo width (applies to both rows and columns) 
    8283 
    8384   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.