Changeset 15 for trunk/NEMO/OPA_SRC/par_EEL_R5.h90
- Timestamp:
- 2004-02-17T08:25:44+01:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/par_EEL_R5.h90
r3 r15 3 3 !! Ocean Domain : 5 km resolution Channel (EEL_R5 configuration) 4 4 !!--------------------------------------------------------------------- 5 CHARACTER (len=16), PARAMETER :: & 6 cp_cfg = "eel" ! name of the configuration7 INTEGER, PARAMETER :: & 8 jp_cfg = 5 , & ! resolution of the configuration (km)5 CHARACTER (len=16), PARAMETER :: & !: 6 cp_cfg = "eel" !: name of the configuration 7 INTEGER, PARAMETER :: & !: 8 jp_cfg = 5 , & !: resolution of the configuration (km) 9 9 10 10 ! data size !!! * size of all the input files 11 jpidta = 202 , & ! first horizontal dimension > or = to jpi12 jpjdta = 104 , & ! second > or = to jpj13 jpkdta = 40 , & ! number of levels > or = to jpk11 jpidta = 202 , & !: first horizontal dimension > or = to jpi 12 jpjdta = 104 , & !: second > or = to jpj 13 jpkdta = 40 , & !: number of levels > or = to jpk 14 14 15 15 ! total domain size !!! * full domain * 16 jpiglo = jpidta, & ! first dimension of global domain --> i17 jpjglo = jpjdta, & ! second dimension of global domain --> j18 jpk = jpkdta, & ! number of vertical levels16 jpiglo = jpidta, & !: first dimension of global domain --> i 17 jpjglo = jpjdta, & !: second dimension of global domain --> j 18 jpk = jpkdta, & !: number of vertical levels 19 19 ! zoom starting position 20 jpizoom = 1 , & ! left bottom (i,j) indices of the zoom21 jpjzoom = 1 , & ! in data indices20 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom 21 jpjzoom = 1 , & !: in data indices 22 22 23 23 ! Domain characteristics 24 jperio = 0 , & ! lateral cond. type (between 0 and 6)25 jpisl = 1 , & ! number of islands26 jpnisl = jpiglo ! maximum number of points per island24 jperio = 0 , & !: lateral cond. type (between 0 and 6) 25 jpisl = 1 , & !: number of islands 26 jpnisl = jpiglo !: maximum number of points per island 27 27 28 28 !! Values set to pp_not_used indicates that this parameter is not used in THIS config. 29 29 !! Values set to pp_to_be_computed indicates that variables will be computed in domzgr 30 REAL(wp), PARAMETER :: & 30 REAL(wp), PARAMETER :: & !: 31 31 pp_not_used = 999999._wp , & !: 32 32 pp_to_be_computed = 0._wp !: … … 34 34 !! Coefficients associated with the horizontal coordinate system (jphgr_msh /= 0 ) 35 35 36 INTEGER,PARAMETER :: & ! 37 jphgr_msh = 2 ! type of horizontal mesh36 INTEGER,PARAMETER :: & !: 37 jphgr_msh = 2 !: type of horizontal mesh 38 38 ! ! = 0 curvilinear coordinate on the sphere 39 39 ! ! read in coordinate.nc file … … 48 48 ! The mercator grid starts only approximately at gphi0 because 49 49 ! of the constraint that the equator be a T point. 50 REAL(wp) ,PARAMETER :: & ! 51 ppglam0 = 0.0_wp, & ! longitude of first raw and column T-point (jphgr_msh = 1)52 ppgphi0 = -35.0_wp, & ! latitude of first raw and column T-point (jphgr_msh = 1)50 REAL(wp) ,PARAMETER :: & !: 51 ppglam0 = 0.0_wp, & !: longitude of first raw and column T-point (jphgr_msh = 1) 52 ppgphi0 = -35.0_wp, & !: latitude of first raw and column T-point (jphgr_msh = 1) 53 53 ! ! latitude for the Coriolis or Beta parameter (jphgr_msh = 2 or 3) 54 ppe1_deg = pp_not_used, & ! zonal grid-spacing (degrees)55 ppe2_deg = pp_not_used, & ! meridional grid-spacing (degrees)54 ppe1_deg = pp_not_used, & !: zonal grid-spacing (degrees) 55 ppe2_deg = pp_not_used, & !: meridional grid-spacing (degrees) 56 56 ! 57 ppe1_m = 5000.0_wp, & ! zonal grid-spacing (meters)58 ppe2_m = 5000.0_wp ! meridional grid-spacing (meters)57 ppe1_m = 5000.0_wp, & !: zonal grid-spacing (meters) 58 ppe2_m = 5000.0_wp !: meridional grid-spacing (meters) 59 59 !! 60 60 !! Coefficients associated with the vertical coordinate system 61 61 !! 62 REAL(wp), PARAMETER :: & 63 & ppsur = pp_to_be_computed , & ! Computed in domzgr, set ppdzmin, pphmax below64 & ppa0 = pp_to_be_computed , & ! 65 & ppa1 = pp_to_be_computed , & ! 62 REAL(wp), PARAMETER :: & !: 63 & ppsur = pp_to_be_computed , & !: Computed in domzgr, set ppdzmin, pphmax below 64 & ppa0 = pp_to_be_computed , & !: 65 & ppa1 = pp_to_be_computed , & !: 66 66 ! 67 & ppkth = 20._wp , & ! (non dimensional): gives the approximate67 & ppkth = 20._wp , & !: (non dimensional): gives the approximate 68 68 ! ! layer number above which stretching will 69 69 ! ! be maximum. Usually of order jpk/2. 70 & ppacr = 16.00000000000_wp ! (non dimensional): stretching factor70 & ppacr = 16.00000000000_wp !: (non dimensional): stretching factor 71 71 ! ! for the grid. The highest zacr, the smallest 72 72 ! ! the stretching. … … 76 76 !! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 77 77 !! 78 REAL(wp), PARAMETER :: & 79 & ppdzmin = 120._wp , & ! (meters): depth of the top (first) model layer78 REAL(wp), PARAMETER :: & !: 79 & ppdzmin = 120._wp , & !: (meters): depth of the top (first) model layer 80 80 ! ! depth of second "w" level 81 & pphmax = 4000._wp ! (meters): maximum depth of the ocean81 & pphmax = 4000._wp !: (meters): maximum depth of the ocean 82 82 ! ! depth of the last "w" level 83 83 !!---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.