Changeset 13899 for NEMO/branches/2020/tickets_icb_1900/src/OCE/par_oce.F90
- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/par_oce.F90
r13216 r13899 47 47 ! global domain size for AGRIF !!! * total AGRIF computational domain * 48 48 INTEGER, PUBLIC :: nbug_in_agrif_conv_do_not_remove_or_modify = 1 - 1 49 INTEGER, PUBLIC, PARAMETER :: nbghostcells = 3 !: number of ghost cells: default value50 INTEGER, PUBLIC :: nbghostcells_x !: number of ghost cells in i-direction49 INTEGER, PUBLIC, PARAMETER :: nbghostcells = 3 !: number of ghost cells: default value 50 INTEGER, PUBLIC :: nbghostcells_x !: number of ghost cells in i-direction 51 51 INTEGER, PUBLIC :: nbghostcells_y_s !: number of ghost cells in j-direction at south 52 INTEGER, PUBLIC :: nbghostcells_y_n !: number of ghost cells in j-direction at north !: number of ghost cells53 INTEGER, PUBLIC :: nbcellsx ! = jpiglo - 2 - 2*nbghostcells_x!: number of cells in i-direction54 INTEGER, PUBLIC :: nbcellsy ! = jpjglo - 2 - 2*nbghostcells-y!: number of cells in j-direction52 INTEGER, PUBLIC :: nbghostcells_y_n !: number of ghost cells in j-direction at north 53 INTEGER, PUBLIC :: nbcellsx !: number of cells in i-direction 54 INTEGER, PUBLIC :: nbcellsy !: number of cells in j-direction 55 55 56 56 ! local domain size !!! * local computational domain * … … 62 62 INTEGER, PUBLIC :: jpkm1 ! = jpk-1 !: - - - 63 63 INTEGER, PUBLIC :: jpij ! = jpi*jpj !: jpi x jpj 64 INTEGER, PUBLIC :: jpimax! = ( jpiglo-2*nn_hls + (jpni-1) ) / jpni + 2*nn_hls!: maximum jpi65 INTEGER, PUBLIC :: jpjmax! = ( jpjglo-2*nn_hls + (jpnj-1) ) / jpnj + 2*nn_hls!: maximum jpj64 INTEGER, PUBLIC :: jpimax! = ( Ni0glo + jpni-1 ) / jpni + 2*nn_hls !: maximum jpi 65 INTEGER, PUBLIC :: jpjmax! = ( Nj0glo + jpnj-1 ) / jpnj + 2*nn_hls !: maximum jpj 66 66 67 67 !!--------------------------------------------------------------------- … … 81 81 INTEGER, PUBLIC, PARAMETER :: jpr2di = 0 !: number of columns for extra outer halo 82 82 INTEGER, PUBLIC, PARAMETER :: jpr2dj = 0 !: number of rows for extra outer halo 83 INTEGER, PUBLIC, PARAMETER :: nn_hls = 1 !: halo width (applies to both rows and columns) 83 84 ! halo with and starting/inding DO-loop indices 85 INTEGER, PUBLIC :: nn_hls !: halo width (applies to both rows and columns) 86 INTEGER, PUBLIC :: Nis0, Nis1, Nis1nxt2, Nis2 !: start I-index (_0: without halo, _1 or _2: with 1 or 2 halos) 87 INTEGER, PUBLIC :: Nie0, Nie1, Nie1nxt2, Nie2 !: end I-index (_0: without halo, _1 or _2: with 1 or 2 halos) 88 INTEGER, PUBLIC :: Njs0, Njs1, Njs1nxt2, Njs2 !: start J-index (_0: without halo, _1 or _2: with 1 or 2 halos) 89 INTEGER, PUBLIC :: Nje0, Nje1, Nje1nxt2, Nje2 !: end J-index (_0: without halo, _1 or _2: with 1 or 2 halos) 90 INTEGER, PUBLIC :: Ni_0, Nj_0, Ni_1, Nj_1, Ni_2, Nj_2 !: domain size (_0: without halo, _1 or _2: with 1 or 2 halos) 91 INTEGER, PUBLIC :: Ni0glo, Nj0glo 84 92 85 93 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.