- Timestamp:
- 2017-12-14T10:15:58+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/SAS_BIPER/MY_SRC/par_oce.F90
r9019 r9027 54 54 55 55 ! local domain size !!! * local computational domain * 56 INTEGER, PUBLIC :: jpi ! = ( jpiglo-2* jpreci + (jpni-1) ) / jpni + 2*jpreci!: first dimension57 INTEGER, PUBLIC :: jpj ! = ( jpjglo-2* jprecj + (jpnj-1) ) / jpnj + 2*jprecj!: second dimension56 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 58 58 INTEGER, PUBLIC :: jpk ! = jpkglo 59 59 INTEGER, PUBLIC :: jpim1 ! = jpi-1 !: inner domain indices … … 61 61 INTEGER, PUBLIC :: jpkm1 ! = jpk-1 !: - - - 62 62 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 63 65 64 66 !!--------------------------------------------------------------------- … … 78 80 INTEGER, PUBLIC, PARAMETER :: jpr2di = 0 !: number of columns for extra outer halo 79 81 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) 82 83 83 84 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.