- Timestamp:
- 2013-07-30T11:14:05+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90
r3989 r3993 42 42 INTEGER , PUBLIC :: nn_baro !: number of barotropic time steps (key_dynspg_ts) 43 43 INTEGER , PUBLIC :: nn_closea !: =0 suppress closed sea/lake from the ORCA domain or not (=1) 44 !! Horizontal grid parameters for domhgr 45 !! ===================================== 46 INTEGER :: jphgr_msh !: type of horizontal mesh 47 ! ! = 0 curvilinear coordinate on the sphere read in coordinate.nc 48 ! ! = 1 geographical mesh on the sphere 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 52 53 REAL(wp) :: ppglam0 !: longitude of first raw and column T-point (jphgr_msh = 1) 54 REAL(wp) :: ppgphi0 !: latitude of first raw and column T-point (jphgr_msh = 1) 55 ! ! used for Coriolis & Beta parameters (jphgr_msh = 2 or 3) 56 REAL(wp) :: ppe1_deg !: zonal grid-spacing (degrees) 57 REAL(wp) :: ppe2_deg !: meridional grid-spacing (degrees) 58 REAL(wp) :: ppe1_m !: zonal grid-spacing (degrees) 59 REAL(wp) :: ppe2_m !: meridional grid-spacing (degrees) 60 61 !! Vertical grid parameter for domzgr 62 !! ================================== 63 REAL(wp) :: ppsur !: ORCA r4, r2 and r05 coefficients 64 REAL(wp) :: ppa0 !: (default coefficients) 65 REAL(wp) :: ppa1 !: 66 REAL(wp) :: ppkth !: 67 REAL(wp) :: ppacr !: 68 ! 69 ! If both ppa0 ppa1 and ppsur are specified to 0, then 70 ! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 71 REAL(wp) :: ppdzmin !: Minimum vertical spacing 72 REAL(wp) :: pphmax !: Maximum depth 73 ! 74 LOGICAL :: ldbletanh !: Use/do not use double tanf function for vertical coordinates 75 REAL(wp) :: ppa2 !: Double tanh function parameters 76 REAL(wp) :: ppkth2 !: 77 REAL(wp) :: ppacr2 !: 44 78 45 79 ! !! old non-DOCTOR names still used in the model
Note: See TracChangeset
for help on using the changeset viewer.