Changeset 15 for trunk/NEMO/OPA_SRC/par_EEL_R2.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_R2.h90
r3 r15 3 3 !! Ocean Domain : 2 km resolution Channel (EEL_R2 configuration) 4 4 !!--------------------------------------------------------------------- 5 CHARACTER (len=16), PARAMETER :: & 6 cp_cfg = "eel" ! name of the configuration7 INTEGER, PARAMETER :: & 8 jp_cfg = 2 , & ! resolution of the configuration (km)5 CHARACTER (len=16), PARAMETER :: & !: 6 cp_cfg = "eel" !: name of the configuration 7 INTEGER, PARAMETER :: & !: 8 jp_cfg = 2 , & !: resolution of the configuration (km) 9 9 10 10 ! data size !!! * size of all the input files * 11 jpidta = 83, & ! 1st horizontal dimension ( >= jpi )12 jpjdta = 242, & ! 2nd " " ( >= jpj )13 jpkdta = 30, & ! number of levels ( >= jpk )11 jpidta = 83, & !: 1st horizontal dimension ( >= jpi ) 12 jpjdta = 242, & !: 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 ! 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 = 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 30 REAL(wp), PARAMETER :: & !: 31 pp_not_used = 999999._wp , & !: ??? 32 pp_to_be_computed = 0._wp !: ??? 32 33 !! 33 34 !! Coefficients associated with the horizontal coordinate system (jphgr_msh /= 0 ) 34 35 !! 35 INTEGER,PARAMETER :: & ! 36 jphgr_msh = 3 ! type of horizontal mesh36 INTEGER,PARAMETER :: & !: 37 jphgr_msh = 3 !: type of horizontal mesh 37 38 ! ! = 0 curvilinear coordinate on the sphere 38 39 ! ! read in coordinate.nc file … … 47 48 ! The mercator grid starts only approximately at gphi0 because 48 49 ! of the constraint that the equator be a T point. 49 REAL(wp) ,PARAMETER :: & ! 50 ppglam0 = 0.0_wp, & ! longitude of first raw and column T-point (jphgr_msh = 1)51 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) 52 53 ! ! latitude for the Coriolis or Beta parameter (jphgr_msh = 2 or 3) 53 ppe1_deg = pp_not_used , & ! zonal grid-spacing (degrees)54 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) 55 56 ! 56 ppe1_m = 2000.0_wp, & ! zonal grid-spacing (meters )57 ppe2_m = 2000.0_wp ! meridional grid-spacing (meters )57 ppe1_m = 2000.0_wp, & !: zonal grid-spacing (meters ) 58 ppe2_m = 2000.0_wp !: meridional grid-spacing (meters ) 58 59 !! 59 60 !! Coefficients associated with the vertical coordinate system 60 61 !! 61 62 62 REAL(wp), PARAMETER :: & 63 & ppsur = -2033.194295283385_wp , & ! Computed in domzgr64 & ppa0 = 155.8325369664153_wp , & ! 65 & ppa1 = 146.3615918601890_wp , & ! 63 REAL(wp), PARAMETER :: & !: 64 & ppsur = -2033.194295283385_wp , & !: Computed in domzgr 65 & ppa0 = 155.8325369664153_wp , & !: 66 & ppa1 = 146.3615918601890_wp , & !: 66 67 ! 67 & ppkth = 17.28520372419791_wp , & ! (non dimensional): gives the approximate68 & ppkth = 17.28520372419791_wp , & !: (non dimensional): gives the approximate 68 69 ! ! layer number above which stretching will 69 70 ! ! be maximum. Usually of order jpk/2. 70 & ppacr = 5.000000000000000_wp ! (non dimensional): stretching factor71 & ppacr = 5.000000000000000_wp !: (non dimensional): stretching factor 71 72 ! ! for the grid. The highest zacr, the smallest 72 73 ! ! the stretching. … … 76 77 !! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 77 78 !! 78 REAL(wp), PARAMETER :: & 79 & ppdzmin = pp_not_used , & ! (meters): depth of the top (first) model layer79 REAL(wp), PARAMETER :: & !: 80 & ppdzmin = pp_not_used , & !: (meters): depth of the top (first) model layer 80 81 ! ! depth of second "w" level 81 & pphmax = pp_not_used ! (meters): maximum depth of the ocean82 & pphmax = pp_not_used !: (meters): maximum depth of the ocean 82 83 ! ! depth of the last "w" level 83 84
Note: See TracChangeset
for help on using the changeset viewer.