Changeset 32 for trunk/NEMOGCM/NEMO/OPA_SRC/par_BB12.h90
- Timestamp:
- 03/14/12 11:41:39 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/par_BB12.h90
r17 r32 1 !!--------------------------------------------------------------------- 2 !! *** par_BB12.h90 *** 3 !! Ocean Domain : 0.12 degrees resolution bay of bengal 4 !! (BB12 configuration) 5 !!--------------------------------------------------------------------- 6 !!---------------------------------------------------------------------- 7 !! OPA 9.0 , LOCEAN-IPSL (2005) 8 !! $Id$ 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 !!---------------------------------------------------------------------- 11 CHARACTER (len=16) & 1 !!--------------------------------------------------------------------- 2 !! *** par_BB12.h90 *** 3 !! Ocean Domain : 1/12 degrees resolution bay of bengal 4 !! (BB12 configuration) 5 !!--------------------------------------------------------------------- 6 !!---------------------------------------------------------------------- 7 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 8 !! $Id$ 9 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 10 !!---------------------------------------------------------------------- 11 12 !! Values set to pp_not_used indicates that this parameter is not used in THIS config. 13 !! Values set to pp_to_be_computed indicates that variables will be computed in domzgr 14 REAL,PARAMETER :: pp_not_used = 999999_wp , & 15 & pp_to_be_computed = 0._wp 16 17 !!--------------------------------------------------------------------- 18 !! Vertical Domain 19 !!--------------------------------------------------------------------- 20 # include "par_depth.h90" 21 22 !!--------------------------------------------------------------------- 23 !! Horizontal Domain 24 !!--------------------------------------------------------------------- 25 CHARACTER (len=16) & 12 26 #if !defined key_agrif 13 , PARAMETER &27 , PARAMETER & 14 28 #endif 15 :: &16 cp_cfg = "bengal"!: name of the configuration17 INTEGER &29 :: & 30 cp_cfg = "bengal" !: name of the configuration 31 INTEGER & 18 32 #if !defined key_agrif 19 , PARAMETER &33 , PARAMETER & 20 34 #endif 21 :: & 22 jp_cfg = 12 , & !: resolution of the configuration (degrees) 23 ! Original data size 24 jpidta = 281, & !: first horizontal dimension > or = to jpi 25 jpjdta = 256, & !: second > or = to jpj 26 jpkdta = 50 , & !: number of levels > or = to jpk 27 ! total domain matrix size 28 jpiglo = jpidta, & !: first dimension of global domain --> i 29 jpjglo = jpjdta, & !: second dimension of global domain --> j 30 ! starting position of the zoom 31 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom 32 jpjzoom = 1 , & !: in data indices 33 ! Domain characteristics 34 jperio = 0 , & !: lateral cond. type (between 0 and 6) 35 jpisl = 150 , & !: number of islands 36 jpnisl = 3000 !: maximum number of points per island 35 :: & 36 jp_cfg = 12 , & !: resolution of the configuration (degrees) 37 ! 38 jpidta = 281, & 39 jpjdta = 256 37 40 38 !! Values set to pp_not_used indicates that this parameter is not used in THIS config. 39 !! Values set to pp_to_be_computed indicates that variables will be computed in domzgr 40 REAL,PARAMETER :: pp_not_used = 999999_wp , & 41 & pp_to_be_computed = 0._wp 42 !! 43 !! Coefficients associated with the horizontal coordinate system (jphgr_msh /= 0 ) 44 !! 45 INTEGER, PARAMETER :: & ! 46 jphgr_msh = 0 !: type of horizontal mesh 47 ! ! = 0 curvilinear coordinate on the sphere 48 ! ! read in coordinate.nc file 49 ! ! = 1 geographical mesh on the sphere 50 ! ! with regular grid-spacing 51 ! ! = 2 f-plane with regular grid-spacing 52 ! ! = 3 beta-plane with regular grid-spacing 53 ! ! = 4 Mercator grid with T/U point at the equator with 54 ! ! isotropic resolution (e1_deg) 41 INTEGER & 42 #if !defined key_agrif 43 , PARAMETER & 44 #endif 45 :: & 46 ! total domain matrix size 47 jpiglo = jpidta, & !: first dimension of global domain --> i 48 jpjglo = jpjdta, & !: second dimension of global domain --> j 49 ! starting position of the zoom 50 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom 51 jpjzoom = 1 , & !: in data indices 52 ! Domain characteristics 53 jperio = 0 !: lateral cond. type (between 0 and 6) 54 ! ! = 0 closed ; = 1 cyclic East-West 55 ! ! = 2 equatorial symmetric ; = 3 North fold T-point pivot 56 ! ! = 4 cyclic East-West AND North fold T-point pivot 57 ! ! = 5 North fold F-point pivot 58 ! ! = 6 cyclic East-West AND North fold F-point pivot 55 59 56 ! ppglam0 , ppgphi0: coordinates of the lower leftmost T point of the grid. 57 ! The mercator grid starts only approximately at gphi0 because 58 ! of the constraint that the equator be a T point. 59 REAL(wp), PARAMETER :: & ! 60 ppglam0 = pp_not_used, & !: longitude of first raw and column T-point (jphgr_msh = 1) 61 ppgphi0 = pp_not_used, & !: latitude of first raw and column T-point (jphgr_msh = 1) 62 ! ! latitude for the Coriolis or Beta parameter (jphgr_msh = 2 or 3) 63 ppe1_deg = pp_not_used, & !: zonal grid-spacing (degrees) 64 ppe2_deg = pp_not_used, & !: meridional grid-spacing (degrees) 65 ! 66 ppe1_m = pp_not_used, & !: zonal grid-spacing (meters ) 67 ppe2_m = pp_not_used !: meridional grid-spacing (meters ) 60 !! 61 !! Coefficients associated with the horizontal coordinate system (jphgr_msh /= 0 ) 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) 68 73 69 !! Coefficients associated with the vertical coordinate system 70 REAL(wp), PARAMETER :: & 71 #ifdef key_zrefsurf 72 & ppsur = -8494.48_wp , & !: vertical grid Mercator 73 & ppa0 = 257.609_wp , & !: (default coefficients refine in surface) 74 & ppa1 = 256.819_wp , & !: 75 & ppkth = 40_wp , & !: (non dimensional): gives the approximate 76 ! !: layer number above which stretching will 77 ! !: be maximum. Usually of order jpk/2. 78 & ppacr = 10.00000000000_wp , & !: (non dimensional): stretching factor 79 ! !: for the grid. The highest zacr, the smallest 80 ! !: the stretching. 81 & ppa2 = 100.760928500000_wp , & ! IDC, 26/6/09 82 & ppacr2 = 13.000000000000_wp , & ! IDC, 26/6/09 83 & ppkth2 = 48.029893720000_wp ! IDC, 26/6/09 84 #else 85 & ppsur = pp_to_be_computed , & !: Computed in domzgr, set ppdzmin and pphmax below 86 & ppa0 = pp_to_be_computed , & !: " " 87 & ppa1 = pp_to_be_computed , & !: " " 88 ! 89 & ppkth = 23.563_wp , & !: (non dimensional): gives the approximate 90 ! !: layer number above which stretching will 91 ! !: be maximum. Usually of order jpk/2. 92 & ppacr = 7.0000000000000_wp , & !: (non dimensional): stretching factor 93 ! !: for the grid. The highest zacr, the smallest 94 ! !: the stretching. 95 & ppa2 = 100.760928500000_wp , & ! IDC, 26/6/09 96 & ppacr2 = 13.000000000000_wp , & ! IDC, 26/6/09 97 & ppkth2 = 48.029893720000_wp ! IDC, 26/6/09 98 #endif 99 !! 100 !! If both ppa0 ppa1 and ppsur are specified to 0, then 101 !! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 102 !! 103 REAL(wp), PARAMETER :: & 104 & ppdzmin = 6._wp , & !: (meters) vertical thickness of the top layer 105 & pphmax = 5750._wp !: (meters) Maximum depth of the ocean gdepw(jpk) 106 LOGICAL , PUBLIC, PARAMETER :: ldbletanh = .false. !: Use/do not use double tanf function for vertical coordinates 107 !!--------------------------------------------------------------------- 74 ! ppglam0 , ppgphi0: coordinates of the lower leftmost T point of the grid. 75 ! The mercator grid starts only approximately at gphi0 because 76 ! of the constraint that the equator be a T point. 77 REAL(wp), PARAMETER :: & ! 78 ppglam0 = pp_not_used, & !: longitude of first raw and column T-point (jphgr_msh = 1) 79 ppgphi0 = pp_not_used, & !: latitude of first raw and column T-point (jphgr_msh = 1) 80 ! ! latitude for the Coriolis or Beta parameter (jphgr_msh = 2 or 3) 81 ppe1_deg = pp_not_used, & !: zonal grid-spacing (degrees) 82 ppe2_deg = pp_not_used, & !: meridional grid-spacing (degrees) 83 ! 84 ppe1_m = pp_not_used, & !: zonal grid-spacing (meters ) 85 ppe2_m = pp_not_used !: meridional grid-spacing (meters ) 86 87 !!---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.