- Timestamp:
- 2020-12-02T16:32:24+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/OCE/par_oce.F90
r13286 r14017 22 22 ! 23 23 LOGICAL :: ln_use_jattr !: input file read offset 24 ! ! Use file global attribute: open_ocean_jstart to determine start j-row 25 ! ! when reading input from those netcdf files that have the 26 ! ! attribute defined. This is designed to enable input files associated 27 ! ! with the extended grids used in the under ice shelf configurations to 24 ! ! Use file global attribute: open_ocean_jstart to determine start j-row 25 ! ! when reading input from those netcdf files that have the 26 ! ! attribute defined. This is designed to enable input files associated 27 ! ! with the extended grids used in the under ice shelf configurations to 28 28 ! ! be used without redundant rows when the ice shelves are not in use. 29 29 LOGICAL :: ln_closea !: (=T) special treatment of closed sea 30 ! 30 ! 31 31 32 32 !!--------------------------------------------------------------------- 33 !! Domain Matrix size 33 !! Domain Matrix size 34 34 !!--------------------------------------------------------------------- 35 35 ! configuration name & resolution (required only in ORCA family case) 36 36 CHARACTER(lc) :: cn_cfg !: name of the configuration 37 INTEGER :: nn_cfg !: resolution of the configuration 37 INTEGER :: nn_cfg !: resolution of the configuration 38 38 39 39 ! time dimension … … 65 65 INTEGER, PUBLIC :: jpjmax! = ( Nj0glo + jpnj-1 ) / jpnj + 2*nn_hls !: maximum jpj 66 66 67 ! Domain tiling 68 INTEGER, PUBLIC :: nijtile !: number of tiles in total 69 INTEGER, PUBLIC :: ntile !: current tile number 70 INTEGER, PUBLIC :: ntsi !: start of internal part of tile domain 71 INTEGER, PUBLIC :: ntsj ! 72 INTEGER, PUBLIC :: ntei !: end of internal part of tile domain 73 INTEGER, PUBLIC :: ntej ! 74 67 75 !!--------------------------------------------------------------------- 68 76 !! Active tracer parameters … … 76 84 !!---------------------------------------------------------------------- 77 85 !! if we dont use massively parallel computer (parameters jpni=jpnj=1) so jpiglo=jpi and jpjglo=jpj 78 INTEGER, PUBLIC :: jpni !: number of processors following i 86 INTEGER, PUBLIC :: jpni !: number of processors following i 79 87 INTEGER, PUBLIC :: jpnj !: number of processors following j 80 88 INTEGER, PUBLIC :: jpnij !: nb of local domain = nb of processors ( <= jpni x jpnj ) 81 INTEGER, PUBLIC, PARAMETER :: jpr2di = 0 !: number of columns for extra outer halo 82 INTEGER, PUBLIC, PARAMETER :: jpr2dj = 0 !: number of rows for extra outer halo 89 INTEGER, PUBLIC, PARAMETER :: jpr2di = 0 !: number of columns for extra outer halo 90 INTEGER, PUBLIC, PARAMETER :: jpr2dj = 0 !: number of rows for extra outer halo 83 91 84 92 ! halo with and starting/inding DO-loop indices … … 93 101 !!---------------------------------------------------------------------- 94 102 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 95 !! $Id$ 103 !! $Id$ 96 104 !! Software governed by the CeCILL license (see ./LICENSE) 97 105 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.