- 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_ORCA_R4.h90
r2715 r4144 1 1 !!--------------------------------------------------------------------- 2 !! *** par_ORCA_R4.h90 *** 2 !! *** par_ORCA_R4.h90 *** 3 3 !! Ocean Domain : 4 degrees resolution global ocean 4 4 !! (0RCA_R4 configuration) … … 9 9 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 10 10 !!---------------------------------------------------------------------- 11 CHARACTER (len=16) &11 CHARACTER (len=16) & 12 12 #if !defined key_agrif 13 , PARAMETER &13 , PARAMETER & 14 14 #endif 15 ::&16 cp_cfg = "orca" !: name of the configuration17 INTEGER &15 :: & 16 cp_cfg = "orca" !: Name of the configuration 17 INTEGER & 18 18 #if !defined key_agrif 19 , PARAMETER &19 , PARAMETER & 20 20 #endif 21 :: &22 jp_cfg = 4 , & !: resolution of the configuration (degrees)23 ! Original data size 24 jpidta = 92 , & !: first horizontal dimension > or = to jpi25 jp jdta = 76 , & !: second > or = to jpj26 jp kdta = 31 , & !: number of levels > or = to jpk27 ! global domain matrix size28 jpiglo = jpidta, & !: first dimension of global domain --> i 29 jpjglo = jpjdta, & !: second dimension of global domain --> j 30 ! starting position of the zoom31 jpi zoom = 1 , & !: left bottom (i,j) indices of the zoom32 jpj zoom = 1 , & !: in data indices21 :: & 22 jp_cfg = 4 , & !: Resolution of the configuration (degrees) 23 24 ! Data domain size !!! * Size of all input files * 25 jpidta = 92 , & !: 1st lateral dimension ( >= jpiglo ) 26 jpjdta = 76 , & !: 2nd lateral dimension ( >= jpjglo ) 27 jpkdta = 31 , & !: Number of levels ( >= jpk ) 28 29 #if defined key_c1d 30 ! Zoom domain size !!! * C1D zoom * 31 jpiglo = 3 , & !: 1st dimension of global domain --> i 32 jpjglo = 3 , & !: 2nd dimension of global domain --> j 33 33 ! Domain characteristics 34 jperio = 4 !: lateral cond. type (between 0 and 6) 34 jperio = 0 !: Lateral cond. type (between 0 and 6) 35 36 INTEGER & 37 :: & 38 ! Starting position of the zoom 39 jpizoom = 1 , & !: Left bottom (i,j) indices of the zoom 40 jpjzoom = 1 !: in data domain indices 41 #else 42 ! Global domain size !!! * Global domain * 43 jpiglo = jpidta, & !: 1st dimension of global domain --> i 44 jpjglo = jpjdta, & !: 2nd dimension of global domain --> j 45 ! Starting position of the zoom 46 jpizoom = 1 , & !: Left bottom (i,j) indices of the zoom 47 jpjzoom = 1 , & !: in data domain indices 48 ! Domain characteristics 49 jperio = 4 !: Lateral cond. type (between 0 and 6) 50 #endif 51 35 52 36 53 !! Values set to pp_not_used indicates that this parameter is not used in THIS config. 37 54 !! Values set to pp_to_be_computed indicates that variables will be computed in domzgr 38 REAL(wp), PARAMETER :: &39 pp_not_used = 999999_wp , & !:40 pp_to_be_computed = 0._wp !:41 55 42 !! Coefficients associated with the horizontal coordinate system (jphgr_msh /= 0 ) 43 INTEGER, PARAMETER :: & ! 44 jphgr_msh = 0 !: type of horizontal mesh 45 ! ! = 0 curvilinear coordinate on the sphere 46 ! ! read in coordinate.nc file 47 ! ! = 1 geographical mesh on the sphere 48 ! ! with regular grid-spacing 49 ! ! = 2 f-plane with regular grid-spacing 50 ! ! = 3 beta-plane with regular grid-spacing 51 ! ! = 4 Mercator grid with T/U point at the equator with 52 ! ! isotropic resolution (e1_deg) 56 REAL(wp), PARAMETER :: & 57 pp_not_used = 999999._wp , & !: 58 pp_to_be_computed = 0._wp !: 59 60 61 !! Coefficients associated with the horizontal coordinate system 62 63 INTEGER, PARAMETER :: & 64 jphgr_msh = 0 !: type of horizontal mesh 65 ! !: = 0 curvilinear coordinate on the sphere 66 ! !: read in coordinate.nc file 67 ! !: = 1 geographical mesh on the sphere 68 ! !: with regular grid-spacing 69 ! !: = 2 f-plane with regular grid-spacing 70 ! !: = 3 beta-plane with regular grid-spacing 71 ! !: = 4 Mercator grid with T/U point at the equator with 72 ! !: isotropic resolution (e1_deg) 53 73 54 74 ! ppglam0 , ppgphi0: coordinates of the lower leftmost T point of the grid. 55 75 ! The mercator grid starts only approximately at gphi0 because 56 76 ! of the constraint that the equator be a T point. 57 REAL(wp) , PARAMETER :: & ! 58 ppglam0 = pp_not_used, & !: longitude of first raw and column T-point (jphgr_msh = 1) 59 ppgphi0 = pp_not_used, & !: latitude of first raw and column T-point (jphgr_msh = 1) 60 ! ! latitude for the Coriolis or Beta parameter (jphgr_msh = 2 or 3) 61 ppe1_deg = pp_not_used, & !: zonal grid-spacing (degrees) 62 ppe2_deg = pp_not_used, & !: meridional grid-spacing (degrees) 77 78 REAL(wp), PARAMETER :: & 79 ppglam0 = pp_not_used, & !: longitude of first raw and column T-point (jphgr_msh = 1) 80 ppgphi0 = pp_not_used, & !: latitude of first raw and column T-point (jphgr_msh = 1) 81 ! !: latitude for the Coriolis or Beta parameter (jphgr_msh = 2 or 3) 82 ppe1_deg = pp_not_used, & !: zonal grid-spacing (degrees) 83 ppe2_deg = pp_not_used, & !: meridional grid-spacing (degrees) 63 84 ! 64 ppe1_m = pp_not_used, 65 ppe2_m = pp_not_used 85 ppe1_m = pp_not_used, & !: zonal grid-spacing (meters ) 86 ppe2_m = pp_not_used !: meridional grid-spacing (meters ) 66 87 67 88 68 !! Vertical grid parameter for domzgr 69 !! ================================== 89 !! Coefficients associated with the vertical coordinate system 70 90 71 REAL(wp), PARAMETER :: &72 & ppsur = -4762.96143546300_wp, & !: ORCA r4, r2 and r05 coefficients91 REAL(wp), PARAMETER :: & 92 & ppsur = -4762.96143546300_wp , & !: ORCA r4, r2 and r05 coefficients 73 93 & ppa0 = 255.58049070440_wp , & !: (default coefficients) 74 94 & ppa1 = 245.58132232490_wp , & !: 75 & ppkth = 21.43336197938_wp, & !: (non dimensional): gives the approximate95 & ppkth = 21.43336197938_wp , & !: (non dimensional): gives the approximate 76 96 ! !: layer number above which stretching will 77 97 ! !: be maximum. Usually of order jpk/2. 78 & ppacr = 3.00000000000_wp!: (non dimensional): stretching factor79 ! !: for the grid. The highe st zacr, the smallest98 & ppacr = 3.00000000000_wp !: (non dimensional): stretching factor 99 ! !: for the grid. The higher zacr, the smaller 80 100 ! !: the stretching. 81 101 82 !! If both ppa0 ppa1 and ppsur are specified to 0, then83 !! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr102 ! If both ppa0 ppa1 and ppsur are specified to pp_to_be_computed, then 103 ! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 84 104 85 REAL(wp), PARAMETER :: &105 REAL(wp), PARAMETER :: & 86 106 & ppdzmin = pp_not_used , & !: (meters) vertical thickness of the top layer 87 107 & pphmax = pp_not_used !: (meters) Maximum depth of the ocean gdepw(jpk) 88 LOGICAL, PARAMETER :: &108 LOGICAL, PARAMETER :: & 89 109 & ldbletanh = .FALSE. !: Use/do not use double tanf function for vertical coordinates 90 REAL(wp), PARAMETER :: &110 REAL(wp), PARAMETER :: & 91 111 & ppa2 = pp_not_used , & !: Double tanh function parameters 92 112 & ppkth2 = pp_not_used , & !:
Note: See TracChangeset
for help on using the changeset viewer.