- Timestamp:
- 2013-10-28T14:50:08+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3987_UKMO6_C1D/NEMOGCM/NEMO/OPA_SRC/par_EEL_R5.h90
r2715 r4144 8 8 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 9 9 !!---------------------------------------------------------------------- 10 CHARACTER (len=16) &10 CHARACTER (len=16) & 11 11 #if !defined key_agrif 12 , PARAMETER &12 , PARAMETER & 13 13 #endif 14 :: &15 cp_cfg = "eel" !: name of the configuration16 INTEGER &14 :: & 15 cp_cfg = "eel" !: Name of the configuration 16 INTEGER & 17 17 #if !defined key_agrif 18 , PARAMETER &18 , PARAMETER & 19 19 #endif 20 :: &21 jp_cfg = 5 , & !: resolution of the configuration (km)20 :: & 21 jp_cfg = 5 , & !: Resolution of the configuration (km) 22 22 23 ! data size !!! * size of all the input files24 jpidta = 66 , & !: first horizontal dimension > or = to jpi25 jpjdta = 66 , & !: second > or = to jpj26 jpkdta = 31 , & !: number of levels > or = to jpk23 ! Data domain size !!! * Size of all input files * 24 jpidta = 66 , & !: 1st lateral dimension ( >= jpiglo ) 25 jpjdta = 66 , & !: 2nd lateral dimension ( >= jpjglo ) 26 jpkdta = 31 , & !: Number of levels ( >= jpk ) 27 27 28 ! total domain size !!! * full domain * 29 jpiglo = jpidta, & !: first dimension of global domain --> i30 jp jglo = jpjdta, & !: second dimension of global domain --> j31 ! zoom starting position32 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom33 jp jzoom = 1 , & !: in data indices28 #if defined key_c1d 29 ! Zoom domain size !!! * C1D zoom * 30 jpiglo = 3 , & !: 1st dimension of global domain --> i 31 jpjglo = 3 , & !: 2nd dimension of global domain --> j 32 ! Domain characteristics 33 jperio = 0 !: Lateral cond. type (between 0 and 6) 34 34 35 INTEGER & 36 :: & 37 ! Starting position of the zoom 38 jpizoom = 1 , & !: Left bottom (i,j) indices of the zoom 39 jpjzoom = 1 !: in data domain indices 40 #else 41 ! Global domain size !!! * Global domain * 42 jpiglo = jpidta, & !: 1st dimension of global domain --> i 43 jpjglo = jpjdta, & !: 2nd dimension of global domain --> j 44 ! Starting position of the zoom 45 jpizoom = 1 , & !: Left bottom (i,j) indices of the zoom 46 jpjzoom = 1 , & !: in data domain indices 35 47 ! Domain characteristics 36 jperio = 1 !: lateral cond. type (between 0 and 6) 48 jperio = 1 !: Lateral cond. type (between 0 and 6) 49 #endif 50 37 51 38 52 !! Values set to pp_not_used indicates that this parameter is not used in THIS config. 39 53 !! Values set to pp_to_be_computed indicates that variables will be computed in domzgr 40 REAL(wp), PARAMETER :: & !:41 pp_not_used = 999999._wp , & !:42 pp_to_be_computed = 0._wp !:43 54 44 !! Coefficients associated with the horizontal coordinate system (jphgr_msh /= 0 ) 55 REAL(wp), PARAMETER :: & 56 pp_not_used = 999999._wp , & !: 57 pp_to_be_computed = 0._wp !: 45 58 46 INTEGER,PARAMETER :: & !: 47 jphgr_msh = 2 !: type of horizontal mesh 48 ! ! = 0 curvilinear coordinate on the sphere 49 ! ! read in coordinate.nc file 50 ! ! = 1 geographical mesh on the sphere 51 ! ! with regular grid-spacing 52 ! ! = 2 f-plane with regular grid-spacing 53 ! ! = 3 beta-plane with regular grid-spacing 54 ! ! = 4 Mercator grid with T/U point at the equator with 55 ! ! isotropic resolution (e1_deg) 59 60 !! Coefficients associated with the horizontal coordinate system 61 62 INTEGER, PARAMETER :: & 63 jphgr_msh = 2 !: type of horizontal mesh 64 ! !: = 0 curvilinear coordinate on the sphere 65 ! !: read in coordinate.nc file 66 ! !: = 1 geographical mesh on the sphere 67 ! !: with regular grid-spacing 68 ! !: = 2 f-plane with regular grid-spacing 69 ! !: = 3 beta-plane with regular grid-spacing 70 ! !: = 4 Mercator grid with T/U point at the equator with 71 ! !: isotropic resolution (e1_deg) 56 72 57 73 ! ppglam0 , ppgphi0: coordinates of the lower leftmost T point of the grid. 58 74 ! The mercator grid starts only approximately at gphi0 because 59 75 ! of the constraint that the equator be a T point. 60 REAL(wp) & 76 77 REAL(wp) & 61 78 #if !defined key_agrif 62 , PARAMETER &79 , PARAMETER & 63 80 #endif 64 :: & !:65 ppglam0 = 0.0_wp, & !: longitude of first raw and column T-point(jphgr_msh = 1)66 ppgphi0 = 43.436430714_wp, & !: latitude of first raw and column T-point(jphgr_msh = 1)67 ! !latitude for the Coriolis or Beta parameter (jphgr_msh = 2 or 3)68 ppe1_deg = pp_not_used ,& !: zonal grid-spacing (degrees)69 ppe2_deg = pp_not_used ,& !: meridional grid-spacing (degrees)81 :: & 82 ppglam0 = 0.0_wp , & !: longitude of first raw and column T-point (jphgr_msh = 1) 83 ppgphi0 = 43.436430714_wp, & !: latitude of first raw and column T-point (jphgr_msh = 1) 84 ! !: latitude for the Coriolis or Beta parameter (jphgr_msh = 2 or 3) 85 ppe1_deg = pp_not_used , & !: zonal grid-spacing (degrees) 86 ppe2_deg = pp_not_used , & !: meridional grid-spacing (degrees) 70 87 ! 71 ppe1_m = 8000.0_wp, & !: zonal grid-spacing (meters) 72 ppe2_m = 8000.0_wp !: meridional grid-spacing (meters) 73 !! 88 ppe1_m = 8000.0_wp , & !: zonal grid-spacing (meters ) 89 ppe2_m = 8000.0_wp !: meridional grid-spacing (meters ) 90 91 74 92 !! Coefficients associated with the vertical coordinate system 75 !! 76 REAL(wp), PARAMETER :: & !:77 & ppsur = -4762.96143546300_wp, & !: Computed in domzgr, set ppdzmin, pphmax below93 94 REAL(wp), PARAMETER :: & 95 & ppsur = -4762.96143546300_wp , & !: Computed in domzgr, set ppdzmin, pphmax below 78 96 & ppa0 = 255.58049070440_wp , & !: 79 97 & ppa1 = 245.58132232490_wp , & !: 80 ! 81 & ppkth = 21.43336197938_wp , & !: (non dimensional): gives the approximate 98 & ppkth = 21.43336197938_wp , & !: (non dimensional): gives the approximate 82 99 ! !: layer number above which stretching will 83 100 ! !: be maximum. Usually of order jpk/2. 84 & ppacr = 3.00000000000_wp!: (non dimensional): stretching factor85 ! !: for the grid. The highe st zacr, the smallest101 & ppacr = 3.00000000000_wp !: (non dimensional): stretching factor 102 ! !: for the grid. The higher zacr, the smaller 86 103 ! !: the stretching. 87 104 88 !! 89 !! If both ppa0 ppa1 and ppsur are specified to 0, then 90 !! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 91 !! 92 REAL(wp), PARAMETER :: & !: 105 ! If both ppa0 ppa1 and ppsur are specified to pp_to_be_computed, then 106 ! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 107 108 REAL(wp), PARAMETER :: & 93 109 & ppdzmin = pp_not_used , & !: (meters) vertical thickness of the top layer 94 110 & pphmax = pp_not_used !: (meters) Maximum depth of the ocean gdepw(jpk) 95 LOGICAL, PARAMETER :: &111 LOGICAL, PARAMETER :: & 96 112 & ldbletanh = .FALSE. !: Use/do not use double tanf function for vertical coordinates 97 REAL(wp), PARAMETER :: &113 REAL(wp), PARAMETER :: & 98 114 & ppa2 = pp_not_used , & !: Double tanh function parameters 99 115 & ppkth2 = pp_not_used , & !:
Note: See TracChangeset
for help on using the changeset viewer.