- 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_AMM_12km.h90
r3680 r4144 4 4 !! (AMM_12km configuration VN3.3) 5 5 !!--------------------------------------------------------------------- 6 CHARACTER (len=16) &6 CHARACTER (len=16) & 7 7 #if !defined key_agrif 8 , PARAMETER &8 , PARAMETER & 9 9 #endif 10 :: &11 cp_cfg = "amm" !: name of the configuration12 INTEGER &10 :: & 11 cp_cfg = "amm" !: Name of the configuration 12 INTEGER & 13 13 #if !defined key_agrif 14 , PARAMETER &14 , PARAMETER & 15 15 #endif 16 :: &17 jp_cfg = 011 , & !: resolution of the configuration (degrees)18 ! Original data size 19 jpidta = 198, & !: first horizontal dimension > or = to jpi20 jp jdta = 224, & !: second > or = to jpj21 jp kdta = 51, & !: number of levels > or = to jpk22 ! total domain matrix size23 jpiglo = jpidta, & !: first dimension of global domain --> i 24 jpjglo = jpjdta, & !: second dimension of global domain --> j 25 ! starting position of the zoom26 jpi zoom = 1 , & !: left bottom (i,j) indices of the zoom27 jpj zoom = 1 , & !: in data indices16 :: & 17 jp_cfg = 011 , & !: Resolution of the configuration (degrees) 18 19 ! Data domain size !!! * Size of all input files * 20 jpidta = 198 , & !: 1st lateral dimension ( >= jpiglo ) 21 jpjdta = 224 , & !: 2nd lateral dimension ( >= jpjglo ) 22 jpkdta = 51 , & !: Number of levels ( >= jpk ) 23 24 #if defined key_c1d 25 ! Zoom domain size !!! * C1D zoom * 26 jpiglo = 3 , & !: 1st dimension of global domain --> i 27 jpjglo = 3 , & !: 2nd dimension of global domain --> j 28 28 ! Domain characteristics 29 jperio = 0 !: lateral cond. type (between 0 and 6) 29 jperio = 0 !: Lateral cond. type (between 0 and 6) 30 31 INTEGER & 32 :: & 33 ! Starting position of the zoom 34 jpizoom = 1 , & !: Left bottom (i,j) indices of the zoom 35 jpjzoom = 1 !: in data domain indices 36 #else 37 ! Global domain size !!! * Global domain * 38 jpiglo = jpidta, & !: 1st dimension of global domain --> i 39 jpjglo = jpjdta, & !: 2nd dimension of global domain --> j 40 ! Starting position of the zoom 41 jpizoom = 1 , & !: Left bottom (i,j) indices of the zoom 42 jpjzoom = 1 , & !: in data domain indices 43 ! Domain characteristics 44 jperio = 0 !: Lateral cond. type (between 0 and 6) 45 #endif 46 30 47 31 48 !! Values set to pp_not_used indicates that this parameter is not used in THIS config. 32 49 !! Values set to pp_to_be_computed indicates that variables will be computed in domzgr 33 REAL,PARAMETER :: pp_not_used = 999999_wp , & 34 & pp_to_be_computed = 0._wp 35 !! 36 !! Coefficients associated with the horizontal coordinate system (jphgr_msh /= 0 ) 37 !! 38 INTEGER, PARAMETER :: & ! 39 jphgr_msh = 0 !: type of horizontal mesh 40 ! ! = 0 curvilinear coordinate on the sphere 41 ! ! read in coordinate.nc file 42 ! ! = 1 geographical mesh on the sphere 43 ! ! with regular grid-spacing 44 ! ! = 2 f-plane with regular grid-spacing 45 ! ! = 3 beta-plane with regular grid-spacing 46 ! ! = 4 Mercator grid with T/U point at the equator with 47 ! ! isotropic resolution (e1_deg) 50 51 REAL(wp), PARAMETER :: & 52 pp_not_used = 999999._wp , & !: 53 pp_to_be_computed = 0._wp !: 54 55 56 !! Coefficients associated with the horizontal coordinate system 57 58 INTEGER, PARAMETER :: & 59 jphgr_msh = 0 !: type of horizontal mesh 60 ! !: = 0 curvilinear coordinate on the sphere 61 ! !: read in coordinate.nc file 62 ! !: = 1 geographical mesh on the sphere 63 ! !: with regular grid-spacing 64 ! !: = 2 f-plane with regular grid-spacing 65 ! !: = 3 beta-plane with regular grid-spacing 66 ! !: = 4 Mercator grid with T/U point at the equator with 67 ! !: isotropic resolution (e1_deg) 48 68 49 69 ! ppglam0 , ppgphi0: coordinates of the lower leftmost T point of the grid. 50 70 ! The mercator grid starts only approximately at gphi0 because 51 71 ! of the constraint that the equator be a T point. 52 REAL(wp), PARAMETER :: & ! 53 ppglam0 = pp_not_used, & !: longitude of first raw and column T-point (jphgr_msh = 1) 54 ppgphi0 = pp_not_used, & !: latitude of first raw and column T-point (jphgr_msh = 1) 55 ! ! latitude for the Coriolis or Beta parameter (jphgr_msh = 2 or 3) 56 ppe1_deg = pp_not_used, & !: zonal grid-spacing (degrees) 57 ppe2_deg = pp_not_used, & !: meridional grid-spacing (degrees) 72 73 REAL(wp), PARAMETER :: & 74 ppglam0 = pp_not_used, & !: longitude of first raw and column T-point (jphgr_msh = 1) 75 ppgphi0 = pp_not_used, & !: latitude of first raw and column T-point (jphgr_msh = 1) 76 ! !: latitude for the Coriolis or Beta parameter (jphgr_msh = 2 or 3) 77 ppe1_deg = pp_not_used, & !: zonal grid-spacing (degrees) 78 ppe2_deg = pp_not_used, & !: meridional grid-spacing (degrees) 58 79 ! 59 ppe1_m = pp_not_used, 60 ppe2_m = pp_not_used 80 ppe1_m = pp_not_used, & !: zonal grid-spacing (meters ) 81 ppe2_m = pp_not_used !: meridional grid-spacing (meters ) 61 82 62 !!63 !! Vertical grid parameter for domzgr64 !! ==================================65 !!66 REAL(wp), PARAMETER :: &67 & ppsur = pp_to_be_computed , & !: Computed in domzgr, set ppdzmin and pphmax below68 & ppa0 = pp_to_be_computed , & !: " "69 & ppa1 = pp_to_be_computed , & !: " "70 !71 & ppkth = 23.563_wp , & !: (non dimensional): gives the approximate72 ! !: layer number above which stretching will73 ! !: be maximum. Usually of order jpk/2.74 & ppacr = 9.00000000000_wp !: (non dimensional): stretching factor75 ! !: for the grid. The highest zacr, the smallest76 ! !: the stretching.77 83 78 !! 79 !! If both ppa0 ppa1 and ppsur are specified to 0, then 80 !! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 81 !! 82 REAL(wp), PARAMETER :: & 83 & ppdzmin = 6._wp , & !: (meters) vertical thickness of the top layer 84 & pphmax = 5720._wp !: (meters) Maximum depth of the ocean gdepw(jpk) 85 !! 84 !! Coefficients associated with the vertical coordinate system 85 86 REAL(wp), PARAMETER :: & 87 & ppsur = pp_to_be_computed , & !: Computed in domzgr, set ppdzmin and pphmax below 88 & ppa0 = pp_to_be_computed , & !: " " 89 & ppa1 = pp_to_be_computed , & !: " " 90 & ppkth = 23.563_wp , & !: (non dimensional): gives the approximate 91 ! !: layer number above which stretching will 92 ! !: be maximum. Usually of order jpk/2. 93 & ppacr = 9.00000000000_wp !: (non dimensional): stretching factor 94 ! !: for the grid. The higher zacr, the smaller 95 ! !: the stretching. 96 97 ! If both ppa0 ppa1 and ppsur are specified to pp_to_be_computed, then 98 ! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 99 100 REAL(wp), PARAMETER :: & 101 & ppdzmin = 6._wp , & !: (meters) vertical thickness of the top layer 102 & pphmax = 5720._wp !: (meters) Maximum depth of the ocean gdepw(jpk) 86 103 LOGICAL, PARAMETER :: & 87 104 & ldbletanh = .FALSE. !: Use/do not use double tanf function for vertical coordinates … … 90 107 & ppkth2 = pp_not_used , & !: 91 108 & ppacr2 = pp_not_used !: 92 93 109 !!---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.
