- 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_R6.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 = 6 , & !: resolution of the configuration (km)20 :: & 21 jp_cfg = 6 , & !: Resolution of the configuration (km) 22 22 23 ! data size !!! * size of all the input files*24 jpidta = 29, & !: 1st lateral dimension ( >= jpi)25 jpjdta = 83, & !: 2nd " " ( >= jpj)26 jpkdta = 30, & !: number of levels ( >= jpk)23 ! Data domain size !!! * Size of all input files * 24 jpidta = 29 , & !: 1st lateral dimension ( >= jpiglo ) 25 jpjdta = 83 , & !: 2nd lateral dimension ( >= jpjglo ) 26 jpkdta = 30 , & !: Number of levels ( >= jpk ) 27 27 28 ! global domain size !!! * full domain * 29 jpiglo = jpidta, & !: 1st dimension of global domain --> i30 jp jglo = jpjdta, & !: 2nd " " --> j31 ! starting position of the zoom32 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom33 jp jzoom = 1 , & !: in data domain 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 = 3 !: 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 = 3 !: 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 = 35.0_wp, & !: latitude of first raw and column T-point(jphgr_msh = 1)67 ! ! 68 ppe1_deg = pp_not_used, 69 ppe2_deg = pp_not_used, 81 :: & 82 ppglam0 = 0.0_wp , & !: longitude of first raw and column T-point (jphgr_msh = 1) 83 ppgphi0 = 35.0_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 = 6000.0_wp ,& !: zonal grid-spacing (meters )88 ppe1_m = 6000.0_wp , & !: zonal grid-spacing (meters ) 72 89 ppe2_m = 6000.0_wp !: meridional grid-spacing (meters ) 90 73 91 74 92 !! Coefficients associated with the vertical coordinate system 75 93 76 REAL(wp), PARAMETER :: & !: 77 & ppsur = -2033.194295283385_wp , & !: Computed in domzgr 78 & ppa0 = 155.8325369664153_wp , & !: 79 & ppa1 = 146.3615918601890_wp , & !: 80 ! 81 & ppkth = 17.28520372419791_wp , & !: (non dimensional): gives the approximate 94 REAL(wp), PARAMETER :: & 95 & ppsur = -2033.194295283385_wp , & !: Computed in domzgr, set ppdzmin, pphmax below 96 & ppa0 = 155.8325369664153_wp , & !: 97 & ppa1 = 146.3615918601890_wp , & !: 98 & ppkth = 17.28520372419791_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 = 5.000000000000000_wp!: (non dimensional): stretching factor85 ! !: for the grid. The highe st zacr, the smallest101 & ppacr = 5.000000000000000_wp !: (non dimensional): stretching factor 102 ! !: for the grid. The higher zacr, the smaller 86 103 ! !: the stretching. 87 104 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 88 107 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 :: & !: 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.
