Changeset 14072 for NEMO/trunk/src/OCE/par_oce.F90
- Timestamp:
- 2020-12-04T08:48:38+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/par_oce.F90
r13982 r14072 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 … … 84 84 !!---------------------------------------------------------------------- 85 85 !! if we dont use massively parallel computer (parameters jpni=jpnj=1) so jpiglo=jpi and jpjglo=jpj 86 INTEGER, PUBLIC :: jpni !: number of processors following i 86 INTEGER, PUBLIC :: jpni !: number of processors following i 87 87 INTEGER, PUBLIC :: jpnj !: number of processors following j 88 88 INTEGER, PUBLIC :: jpnij !: nb of local domain = nb of processors ( <= jpni x jpnj ) 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 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 91 91 92 92 ! halo with and starting/inding DO-loop indices … … 101 101 !!---------------------------------------------------------------------- 102 102 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 103 !! $Id$ 103 !! $Id$ 104 104 !! Software governed by the CeCILL license (see ./LICENSE) 105 105 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.