Changeset 12414 for utils/tools/DOMAINcfg/src/par_oce.f90
- Timestamp:
- 2020-02-19T21:13:15+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/DOMAINcfg/src/par_oce.f90
r9598 r12414 13 13 PUBLIC 14 14 15 CHARACTER(lc) :: cp_cfg !: name of the configuration 16 CHARACTER(lc) :: cp_cfz !: name of the zoom of configuration 17 INTEGER :: jp_cfg !: resolution of the configuration 18 19 ! data size !!! * size of all input files * 20 INTEGER :: jpidta !: 1st lateral dimension ( >= jpi ) 21 INTEGER :: jpjdta !: 2nd " " ( >= jpj ) 22 INTEGER :: jpkdta !: number of levels ( >= jpk ) 23 LOGICAL :: ln_e3_dep ! e3. definition flag 24 REAL(wp) :: pp_not_used = 999999._wp !: vertical grid parameter 25 REAL(wp) :: pp_to_be_computed = 999999._wp !: - - - 26 !!---------------------------------------------------------------------- 27 !! namcfg namelist parameters 28 !!---------------------------------------------------------------------- 29 LOGICAL :: ln_read_cfg !: (=T) read the domain configuration file or (=F) not 30 CHARACTER(lc) :: cn_domcfg !: filename the configuration file to be read 31 LOGICAL :: ln_write_cfg !: (=T) create the domain configuration file 32 CHARACTER(lc) :: cn_domcfg_out !: filename the configuration file to be read 33 ! 34 LOGICAL :: ln_use_jattr !: input file read offset 35 ! ! Use file global attribute: open_ocean_jstart to determine start j-row 36 ! ! when reading input from those netcdf files that have the 37 ! ! attribute defined. This is designed to enable input files associated 38 ! ! with the extended grids used in the under ice shelf configurations to 39 ! ! be used without redundant rows when the ice shelves are not in use. 40 ! 41 42 !!--------------------------------------------------------------------- 43 !! Domain Matrix size 44 !!--------------------------------------------------------------------- 45 ! configuration name & resolution (required only in ORCA family case) 46 CHARACTER(lc) :: cn_cfg !: name of the configuration 47 INTEGER :: nn_cfg !: resolution of the configuration 48 49 ! global domain size !!! * total computational domain * 50 INTEGER :: jpiglo !: 1st dimension of global domain --> i-direction 51 INTEGER :: jpjglo !: 2nd - - --> j-direction 52 INTEGER :: jpkglo !: 3nd - - --> k levels 53 54 ! global domain size for AGRIF !!! * total AGRIF computational domain * 55 INTEGER, PUBLIC :: nbug_in_agrif_conv_do_not_remove_or_modify = 1 - 1 56 INTEGER, PUBLIC, PARAMETER :: nbghostcells = 3 !: number of ghost cells 57 INTEGER, PUBLIC :: nbcellsx ! = jpiglo - 2 - 2*nbghostcells !: number of cells in i-direction 58 INTEGER, PUBLIC :: nbcellsy ! = jpjglo - 2 - 2*nbghostcells !: number of cells in j-direction 59 60 ! local domain size !!! * local computational domain * 61 INTEGER, PUBLIC :: jpi ! !: first dimension 62 INTEGER, PUBLIC :: jpj ! !: second dimension 63 INTEGER, PUBLIC :: jpk ! = jpkglo !: third dimension 64 INTEGER, PUBLIC :: jpim1 ! = jpi-1 !: inner domain indices 65 INTEGER, PUBLIC :: jpjm1 ! = jpj-1 !: - - - 66 INTEGER, PUBLIC :: jpkm1 ! = jpk-1 !: - - - 67 INTEGER, PUBLIC :: jpij ! = jpi*jpj !: jpi x jpj 68 INTEGER, PUBLIC :: jpimax! = ( jpiglo-2*nn_hls + (jpni-1) ) / jpni + 2*nn_hls !: maximum jpi 69 INTEGER, PUBLIC :: jpjmax! = ( jpjglo-2*nn_hls + (jpnj-1) ) / jpnj + 2*nn_hls !: maximum jpj 70 71 !!--------------------------------------------------------------------- 72 !! Active tracer parameters 73 !!--------------------------------------------------------------------- 74 INTEGER, PUBLIC, PARAMETER :: jpts = 2 !: Number of active tracers (=2, i.e. T & S ) 75 INTEGER, PUBLIC, PARAMETER :: jp_tem = 1 !: indice for temperature 76 INTEGER, PUBLIC, PARAMETER :: jp_sal = 2 !: indice for salinity 77 15 78 !!---------------------------------------------------------------------- 16 79 !! Domain decomposition … … 22 85 INTEGER, PUBLIC, PARAMETER :: jpr2di = 0 !: number of columns for extra outer halo 23 86 INTEGER, PUBLIC, PARAMETER :: jpr2dj = 0 !: number of rows for extra outer halo 24 INTEGER, PUBLIC, PARAMETER :: jpreci = 1 !: number of columns for overlap 25 INTEGER, PUBLIC, PARAMETER :: jprecj = 1 !: number of rows for overlap 26 27 !!---------------------------------------------------------------------- 28 !! namcfg namelist parameters 29 !!---------------------------------------------------------------------- 30 ! 31 LOGICAL :: ln_e3_dep ! e3. definition flag 32 ! 33 CHARACTER(lc) :: cp_cfg !: name of the configuration 34 CHARACTER(lc) :: cp_cfz !: name of the zoom of configuration 35 INTEGER :: jp_cfg !: resolution of the configuration 36 37 ! data size !!! * size of all input files * 38 INTEGER :: jpidta !: 1st lateral dimension ( >= jpi ) 39 INTEGER :: jpjdta !: 2nd " " ( >= jpj ) 40 INTEGER :: jpkdta !: number of levels ( >= jpk ) 41 42 ! global or zoom domain size !!! * computational domain * 43 INTEGER :: jpiglo !: 1st dimension of global domain --> i 44 INTEGER :: jpjglo !: 2nd - - --> j 45 46 ! zoom starting position 47 INTEGER :: jpizoom !: left bottom (i,j) indices of the zoom 48 INTEGER :: jpjzoom !: in data domain indices 49 50 ! Domain characteristics 51 INTEGER :: jperio !: lateral cond. type (between 0 and 6) 52 ! ! = 0 closed ; = 1 cyclic East-West 53 ! ! = 2 equatorial symmetric ; = 3 North fold T-point pivot 54 ! ! = 4 cyclic East-West AND North fold T-point pivot 55 ! ! = 5 North fold F-point pivot 56 ! ! = 6 cyclic East-West AND North fold F-point pivot 57 58 ! Input file read offset 59 LOGICAL :: ln_use_jattr !: Use file global attribute: open_ocean_jstart to determine start j-row 60 ! when reading input from those netcdf files that have the 61 ! attribute defined. This is designed to enable input files associated 62 ! with the extended grids used in the under ice shelf configurations to 63 ! be used without redundant rows when the ice shelves are not in use. 64 65 !! Values set to pp_not_used indicates that this parameter is not used in THIS config. 66 !! Values set to pp_to_be_computed indicates that variables will be computed in domzgr 67 REAL(wp) :: pp_not_used = 999999._wp !: vertical grid parameter 68 REAL(wp) :: pp_to_be_computed = 999999._wp !: - - - 69 70 71 72 73 !!--------------------------------------------------------------------- 74 !! Active tracer parameters 75 !!--------------------------------------------------------------------- 76 INTEGER, PUBLIC, PARAMETER :: jpts = 2 !: Number of active tracers (=2, i.e. T & S ) 77 INTEGER, PUBLIC, PARAMETER :: jp_tem = 1 !: indice for temperature 78 INTEGER, PUBLIC, PARAMETER :: jp_sal = 2 !: indice for salinity 79 80 !!--------------------------------------------------------------------- 81 !! Domain Matrix size (if AGRIF, they are not all parameters) 82 !!--------------------------------------------------------------------- 83 84 85 86 87 88 89 INTEGER, PUBLIC :: jpi ! = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci !: first dimension 90 INTEGER, PUBLIC :: jpj ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj !: second dimension 91 INTEGER, PUBLIC :: jpk ! = jpkdta 92 INTEGER, PUBLIC :: jpim1 ! = jpi-1 !: inner domain indices 93 INTEGER, PUBLIC :: jpjm1 ! = jpj-1 !: - - - 94 INTEGER, PUBLIC :: jpkm1 ! = jpk-1 !: - - - 95 INTEGER, PUBLIC :: jpij ! = jpi*jpj !: jpi x jpj 87 INTEGER, PUBLIC, PARAMETER :: nn_hls = 1 !: halo width (applies to both rows and columns) 96 88 97 89 !!---------------------------------------------------------------------- 98 90 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 99 !! $Id: par_oce.F90 5836 2015-10-26 14:49:40Z cetlod$100 !! Software governed by the CeCILL licen ce (./LICENSE)91 !! $Id: par_oce.F90 10068 2018-08-28 14:09:04Z nicolasmartin $ 92 !! Software governed by the CeCILL license (see ./LICENSE) 101 93 !!====================================================================== 102 94 END MODULE par_oce
Note: See TracChangeset
for help on using the changeset viewer.