Changeset 15 for trunk/NEMO/OPA_SRC/par_EEL_R6.h90
- Timestamp:
- 2004-02-17T08:25:44+01:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/par_EEL_R6.h90
r3 r15 3 3 !! Ocean Domain : 6 km resolution Channel (EEL_R6 configuration) 4 4 !!--------------------------------------------------------------------- 5 CHARACTER (len=16), PARAMETER :: & 6 cp_cfg = "eel" ! name of the configuration7 INTEGER, PARAMETER :: & 8 jp_cfg = 6 , & ! resolution of the configuration (km)5 CHARACTER (len=16), PARAMETER :: & !: 6 cp_cfg = "eel" !: name of the configuration 7 INTEGER, PARAMETER :: & !: 8 jp_cfg = 6 , & !: resolution of the configuration (km) 9 9 10 10 ! data size !!! * size of all the input files * 11 jpidta = 29, & ! 1st lateral dimension ( >= jpi )12 jpjdta = 83, & ! 2nd " " ( >= jpj )13 jpkdta = 30, & ! number of levels ( >= jpk )11 jpidta = 29, & !: 1st lateral dimension ( >= jpi ) 12 jpjdta = 83, & !: 2nd " " ( >= jpj ) 13 jpkdta = 30, & !: number of levels ( >= jpk ) 14 14 15 15 ! global domain size !!! * full domain * 16 jpiglo = jpidta, & ! 1st dimension of global domain --> i17 jpjglo = jpjdta, & ! 2nd " " --> j18 jpk = jpkdta, & ! number of vertical levels16 jpiglo = jpidta, & !: 1st dimension of global domain --> i 17 jpjglo = jpjdta, & !: 2nd " " --> j 18 jpk = jpkdta, & !: number of vertical levels 19 19 ! starting position of the zoom 20 jpizoom = 1 , & ! left bottom (i,j) indices of the zoom21 jpjzoom = 1 , & ! in data domain indices20 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom 21 jpjzoom = 1 , & !: in data domain indices 22 22 23 23 ! Domain characteristics 24 jperio = 1, & ! lateral cond. type (between 0 and 6)25 jpisl = 1, & ! number of islands26 jpnisl = jpiglo ! maximum number of points per island24 jperio = 1, & !: 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 :: pp_not_used = 999999_wp , & 31 & pp_to_be_computed = 0._wp 32 !! 30 REAL(wp), PARAMETER :: & !: 31 pp_not_used = 999999._wp , & !: ??? 32 pp_to_be_computed = 0._wp !: ??? 33 33 34 !! Coefficients associated with the horizontal coordinate system (jphgr_msh /= 0 ) 34 !!35 35 36 INTEGER,PARAMETER :: & ! 37 jphgr_msh = 3 ! type of horizontal mesh36 INTEGER,PARAMETER :: & !: 37 jphgr_msh = 3 !: 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)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)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 ! ! 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) 56 56 ! 57 ppe1_m = 6000.0_wp, & ! zonal grid-spacing (meters )58 ppe2_m = 6000.0_wp ! meridional grid-spacing (meters )59 !! 57 ppe1_m = 6000.0_wp, & !: zonal grid-spacing (meters ) 58 ppe2_m = 6000.0_wp !: meridional grid-spacing (meters ) 59 60 60 !! Coefficients associated with the vertical coordinate system 61 !! 62 REAL(wp), PARAMETER :: & 63 & ppsur = -2033.194295283385_wp , & ! Computed in domzgr64 & ppa0 = 155.8325369664153_wp , & ! 65 & ppa1 = 146.3615918601890_wp , & ! 61 62 REAL(wp), PARAMETER :: & !: 63 & ppsur = -2033.194295283385_wp , & !: Computed in domzgr 64 & ppa0 = 155.8325369664153_wp , & !: 65 & ppa1 = 146.3615918601890_wp , & !: 66 66 ! 67 & ppkth = 17.28520372419791_wp , & ! (non dimensional): gives the approximate68 ! ! layer number above which stretching will69 ! ! be maximum. Usually of order jpk/2.70 & ppacr = 5.000000000000000_wp ! (non dimensional): stretching factor71 ! ! for the grid. The highest zacr, the smallest72 ! ! the stretching.67 & ppkth = 17.28520372419791_wp , & !: (non dimensional): gives the approximate 68 ! ! layer number above which stretching will 69 ! ! be maximum. Usually of order jpk/2. 70 & ppacr = 5.000000000000000_wp !: (non dimensional): stretching factor 71 ! ! for the grid. The highest zacr, the smallest 72 ! ! the stretching. 73 73 74 !! 74 75 75 !! If both ppa0 ppa1 and ppsur are specified to 0, then 76 76 !! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 77 !! 78 REAL(wp), PARAMETER :: & 79 & ppdzmin = pp_not_used , & ! (meters): depth of the top (first) model layer80 ! ! depth of second "w" level81 & pphmax = pp_not_used ! (meters): maximum depth of the ocean82 ! ! depth of the last "w" level77 78 REAL(wp), PARAMETER :: & !: 79 & ppdzmin = pp_not_used , & !: (meters): depth of the top (first) model layer 80 ! ! depth of second "w" level 81 & pphmax = pp_not_used !: (meters): maximum depth of the ocean 82 ! ! depth of the last "w" level 83 83 !!---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.