Changeset 7646 for trunk/NEMOGCM/NEMO/OPA_SRC/par_oce.F90
- Timestamp:
- 2017-02-06T10:25:03+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/par_oce.F90
r5836 r7646 14 14 15 15 !!---------------------------------------------------------------------- 16 !! namcfg namelist parameters 17 !!---------------------------------------------------------------------- 18 LOGICAL :: ln_read_cfg !: (=T) read the domain configuration file or (=F) not 19 CHARACTER(lc) :: cn_domcfg !: filename the configuration file to be read 20 LOGICAL :: ln_write_cfg !: (=T) create the domain configuration file 21 CHARACTER(lc) :: cn_domcfg_out !: filename the configuration file to be read 22 ! 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 28 ! ! be used without redundant rows when the ice shelves are not in use. 29 ! 30 31 !!--------------------------------------------------------------------- 32 !! Domain Matrix size 33 !!--------------------------------------------------------------------- 34 ! configuration name & resolution (required only in ORCA family case) 35 CHARACTER(lc) :: cn_cfg !: name of the configuration 36 INTEGER :: nn_cfg !: resolution of the configuration 37 38 ! global domain size !!! * total computational domain * 39 INTEGER :: jpiglo !: 1st dimension of global domain --> i-direction 40 INTEGER :: jpjglo !: 2nd - - --> j-direction 41 INTEGER :: jpkglo !: 3nd - - --> k levels 42 43 #if defined key_agrif 44 45 !!gm BUG ? I'm surprised by the calculation below of nbcellsx and nbcellsy before jpiglo,jpjglo 46 !!gm has been assigned to a value.... 47 !!gm 48 49 ! global domain size for AGRIF !!! * total AGRIF computational domain * 50 INTEGER, PUBLIC, PARAMETER :: nbghostcells = 1 !: number of ghost cells 51 INTEGER, PUBLIC :: nbcellsx = jpiglo - 2 - 2*nbghostcells !: number of cells in i-direction 52 INTEGER, PUBLIC :: nbcellsy = jpjglo - 2 - 2*nbghostcells !: number of cells in j-direction 53 #endif 54 55 ! 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 58 INTEGER, PUBLIC :: jpk ! = jpkglo 59 INTEGER, PUBLIC :: jpim1 ! = jpi-1 !: inner domain indices 60 INTEGER, PUBLIC :: jpjm1 ! = jpj-1 !: - - - 61 INTEGER, PUBLIC :: jpkm1 ! = jpk-1 !: - - - 62 INTEGER, PUBLIC :: jpij ! = jpi*jpj !: jpi x jpj 63 64 !!--------------------------------------------------------------------- 65 !! Active tracer parameters 66 !!--------------------------------------------------------------------- 67 INTEGER, PUBLIC, PARAMETER :: jpts = 2 !: Number of active tracers (=2, i.e. T & S ) 68 INTEGER, PUBLIC, PARAMETER :: jp_tem = 1 !: indice for temperature 69 INTEGER, PUBLIC, PARAMETER :: jp_sal = 2 !: indice for salinity 70 71 !!---------------------------------------------------------------------- 16 72 !! Domain decomposition 17 73 !!---------------------------------------------------------------------- … … 26 82 27 83 !!---------------------------------------------------------------------- 28 !! namcfg namelist parameters 29 !!---------------------------------------------------------------------- 30 CHARACTER(lc) :: cp_cfg !: name of the configuration 31 CHARACTER(lc) :: cp_cfz !: name of the zoom of configuration 32 INTEGER :: jp_cfg !: resolution of the configuration 33 34 ! data size !!! * size of all input files * 35 INTEGER :: jpidta !: 1st lateral dimension ( >= jpi ) 36 INTEGER :: jpjdta !: 2nd " " ( >= jpj ) 37 INTEGER :: jpkdta !: number of levels ( >= jpk ) 38 39 ! global or zoom domain size !!! * computational domain * 40 INTEGER :: jpiglo !: 1st dimension of global domain --> i 41 INTEGER :: jpjglo !: 2nd - - --> j 42 43 ! zoom starting position 44 INTEGER :: jpizoom !: left bottom (i,j) indices of the zoom 45 INTEGER :: jpjzoom !: in data domain indices 46 47 ! Domain characteristics 48 INTEGER :: jperio !: lateral cond. type (between 0 and 6) 49 ! ! = 0 closed ; = 1 cyclic East-West 50 ! ! = 2 equatorial symmetric ; = 3 North fold T-point pivot 51 ! ! = 4 cyclic East-West AND North fold T-point pivot 52 ! ! = 5 North fold F-point pivot 53 ! ! = 6 cyclic East-West AND North fold F-point pivot 54 55 ! Input file read offset 56 LOGICAL :: ln_use_jattr !: Use file global attribute: open_ocean_jstart to determine start j-row 57 ! when reading input from those netcdf files that have the 58 ! attribute defined. This is designed to enable input files associated 59 ! with the extended grids used in the under ice shelf configurations to 60 ! be used without redundant rows when the ice shelves are not in use. 61 62 !! Values set to pp_not_used indicates that this parameter is not used in THIS config. 63 !! Values set to pp_to_be_computed indicates that variables will be computed in domzgr 64 REAL(wp) :: pp_not_used = 999999._wp !: vertical grid parameter 65 REAL(wp) :: pp_to_be_computed = 999999._wp !: - - - 66 67 68 69 70 !!--------------------------------------------------------------------- 71 !! Active tracer parameters 72 !!--------------------------------------------------------------------- 73 INTEGER, PUBLIC, PARAMETER :: jpts = 2 !: Number of active tracers (=2, i.e. T & S ) 74 INTEGER, PUBLIC, PARAMETER :: jp_tem = 1 !: indice for temperature 75 INTEGER, PUBLIC, PARAMETER :: jp_sal = 2 !: indice for salinity 76 77 !!--------------------------------------------------------------------- 78 !! Domain Matrix size (if AGRIF, they are not all parameters) 79 !!--------------------------------------------------------------------- 80 #if defined key_agrif 81 INTEGER, PUBLIC, PARAMETER :: nbghostcells = 1 !: number of ghost cells 82 INTEGER, PUBLIC :: nbcellsx = jpiglo - 2 - 2*nbghostcells !: number of cells in i-direction 83 INTEGER, PUBLIC :: nbcellsy = jpjglo - 2 - 2*nbghostcells !: number of cells in j-direction 84 ! 85 #endif 86 INTEGER, PUBLIC :: jpi ! = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci !: first dimension 87 INTEGER, PUBLIC :: jpj ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj !: second dimension 88 INTEGER, PUBLIC :: jpk ! = jpkdta 89 INTEGER, PUBLIC :: jpim1 ! = jpi-1 !: inner domain indices 90 INTEGER, PUBLIC :: jpjm1 ! = jpj-1 !: - - - 91 INTEGER, PUBLIC :: jpkm1 ! = jpk-1 !: - - - 92 INTEGER, PUBLIC :: jpij ! = jpi*jpj !: jpi x jpj 93 94 !!---------------------------------------------------------------------- 95 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 84 !! NEMO/OPA 4.0 , NEMO Consortium (2016) 96 85 !! $Id$ 97 86 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
Note: See TracChangeset
for help on using the changeset viewer.