- Timestamp:
- 2013-07-12T13:54:28+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/par_oce.F90
r3294 r3973 25 25 INTEGER, PUBLIC, PARAMETER :: jprecj = 1 !: number of rows for overlap 26 26 27 !! Ocean Domain sizes 28 !! ------------------ 29 !! data domain (jpidta,jpjdta) 30 !! global or zoom domain (jpiglo,jpjglo) 31 !! local domain ( jpi , jpj ) 32 33 #if defined key_orca_r4 34 !!--------------------------------------------------------------------- 35 !! 'key_orca_r4' : global ocean : ORCA R4 36 !!--------------------------------------------------------------------- 37 # include "par_ORCA_R4.h90" 38 #elif defined key_orca_r2 39 !!--------------------------------------------------------------------- 40 !! 'key_orca_r2' : global ocean : ORCA R4 41 !!--------------------------------------------------------------------- 42 # include "par_ORCA_R2.h90" 43 #elif defined key_orca_r1 44 !!--------------------------------------------------------------------- 45 !! 'key_orca_r1' : global ocean : ORCA R1 46 !!--------------------------------------------------------------------- 47 # include "par_ORCA_R1.h90" 48 #elif defined key_orca_r05 49 !!--------------------------------------------------------------------- 50 !! 'key_orca_r05' : global ocean : ORCA R05 51 !!--------------------------------------------------------------------- 52 # include "par_ORCA_R05.h90" 53 #elif defined key_orca_r025 54 !!--------------------------------------------------------------------- 55 !! 'key_orca_r025' : global ocean : ORCA R025 56 !!--------------------------------------------------------------------- 57 # include "par_ORCA_R025.h90" 58 #elif defined key_eel_r2 59 !!--------------------------------------------------------------------- 60 !! 'key_eel_r2' : channel : EEL R2 61 !!--------------------------------------------------------------------- 62 # include "par_EEL_R2.h90" 63 #elif defined key_eel_r5 64 !!--------------------------------------------------------------------- 65 !! 'key_eel_r5' : channel : EEL R5 66 !!--------------------------------------------------------------------- 67 # include "par_EEL_R5.h90" 68 #elif defined key_eel_r6 69 !!--------------------------------------------------------------------- 70 !! 'key_eel_r6' : channel : EEL R6 71 !!--------------------------------------------------------------------- 72 # include "par_EEL_R6.h90" 73 #elif defined key_gyre 74 !!--------------------------------------------------------------------- 75 !! 'key_gyre' : mid-latitude basin : GYRE 76 !!--------------------------------------------------------------------- 77 # include "par_GYRE.h90" 78 #elif defined key_pomme_r025 79 !!--------------------------------------------------------------------- 80 !! 'key_pomme_r025': regional basin : POMME025 81 !!--------------------------------------------------------------------- 82 # include "par_POMME_R025.h90" 83 #elif defined key_amm_12km 84 !!--------------------------------------------------------------------- 85 !! 'key_amm_12km': Atlantic Margin Model : AMM12km 86 !!--------------------------------------------------------------------- 87 # include "par_AMM_12km.h90" 88 #else 89 !!--------------------------------------------------------------------- 90 !! default option : small closed basin 91 !!--------------------------------------------------------------------- 92 CHARACTER(len=16), PUBLIC, PARAMETER :: cp_cfg = "default" !: name of the configuration 93 INTEGER , PUBLIC, PARAMETER :: jp_cfg = 0 !: resolution of the configuration 27 !!---------------------------------------------------------------------- 28 !! namcfg namelist parameters 29 !!---------------------------------------------------------------------- 30 CHARACTER(lc) :: cp_cfg !: name of the configuration 31 INTEGER :: jp_cfg !: resolution of the configuration 94 32 95 33 ! data size !!! * size of all input files * 96 INTEGER , PUBLIC, PARAMETER :: jpidta = 10!: 1st lateral dimension ( >= jpi )97 INTEGER , PUBLIC, PARAMETER :: jpjdta = 12!: 2nd " " ( >= jpj )98 INTEGER , PUBLIC, PARAMETER :: jpkdta = 31!: number of levels ( >= jpk )34 INTEGER :: jpidta !: 1st lateral dimension ( >= jpi ) 35 INTEGER :: jpjdta !: 2nd " " ( >= jpj ) 36 INTEGER :: jpkdta !: number of levels ( >= jpk ) 99 37 100 38 ! global or zoom domain size !!! * computational domain * 101 INTEGER , PUBLIC, PARAMETER :: jpiglo = jpidta!: 1st dimension of global domain --> i102 INTEGER , PUBLIC, PARAMETER :: jpjglo = jpjdta!: 2nd - - --> j39 INTEGER :: jpiglo !: 1st dimension of global domain --> i 40 INTEGER :: jpjglo !: 2nd - - --> j 103 41 104 42 ! zoom starting position 105 INTEGER , PUBLIC, PARAMETER :: jpizoom = 1!: left bottom (i,j) indices of the zoom106 INTEGER , PUBLIC, PARAMETER :: jpjzoom = 1!: in data domain indices43 INTEGER :: jpizoom !: left bottom (i,j) indices of the zoom 44 INTEGER :: jpjzoom !: in data domain indices 107 45 108 46 ! Domain characteristics 109 INTEGER , PUBLIC, PARAMETER :: jperio = 0!: lateral cond. type (between 0 and 6)110 ! 111 ! 112 ! 113 ! 114 ! 47 INTEGER :: jperio !: lateral cond. type (between 0 and 6) 48 ! ! = 0 closed ; = 1 cyclic East-West 49 ! ! = 2 equatorial symmetric ; = 3 North fold T-point pivot 50 ! ! = 4 cyclic East-West AND North fold T-point pivot 51 ! ! = 5 North fold F-point pivot 52 ! ! = 6 cyclic East-West AND North fold F-point pivot 115 53 116 54 !! Values set to pp_not_used indicates that this parameter is not used in THIS config. 117 55 !! Values set to pp_to_be_computed indicates that variables will be computed in domzgr 118 REAL(wp) , PUBLIC, PARAMETER:: pp_not_used = 999999._wp !: vertical grid parameter119 REAL(wp) , PUBLIC, PARAMETER :: pp_to_be_computed = 999999._wp !: - - -56 REAL(wp) :: pp_not_used = 999999._wp !: vertical grid parameter 57 REAL(wp) :: pp_to_be_computed = 999998._wp !: - - - 120 58 121 59 122 60 !! Horizontal grid parameters for domhgr 123 61 !! ===================================== 124 INTEGER , PUBLIC, PARAMETER :: jphgr_msh = 0!: type of horizontal mesh125 ! 126 ! 127 ! 128 ! 129 ! 62 INTEGER :: jphgr_msh !: type of horizontal mesh 63 ! ! = 0 curvilinear coordinate on the sphere read in coordinate.nc 64 ! ! = 1 geographical mesh on the sphere with regular grid-spacing 65 ! ! = 2 f-plane with regular grid-spacing 66 ! ! = 3 beta-plane with regular grid-spacing 67 ! ! = 4 Mercator grid with T/U point at the equator 130 68 131 REAL(wp) , PUBLIC, PARAMETER :: ppglam0 = 0.0_wp!: longitude of first raw and column T-point (jphgr_msh = 1)132 REAL(wp) , PUBLIC, PARAMETER :: ppgphi0 = -35.0_wp!: latitude of first raw and column T-point (jphgr_msh = 1)69 REAL(wp) :: ppglam0 !: longitude of first raw and column T-point (jphgr_msh = 1) 70 REAL(wp) :: ppgphi0 !: latitude of first raw and column T-point (jphgr_msh = 1) 133 71 ! ! used for Coriolis & Beta parameters (jphgr_msh = 2 or 3) 134 REAL(wp) , PUBLIC, PARAMETER :: ppe1_deg = 1.0_wp!: zonal grid-spacing (degrees)135 REAL(wp) , PUBLIC, PARAMETER :: ppe2_deg = 0.5_wp!: meridional grid-spacing (degrees)136 REAL(wp) , PUBLIC, PARAMETER :: ppe1_m = 5000.0_wp!: zonal grid-spacing (degrees)137 REAL(wp) , PUBLIC, PARAMETER :: ppe2_m = 5000.0_wp!: meridional grid-spacing (degrees)72 REAL(wp) :: ppe1_deg !: zonal grid-spacing (degrees) 73 REAL(wp) :: ppe2_deg !: meridional grid-spacing (degrees) 74 REAL(wp) :: ppe1_m !: zonal grid-spacing (degrees) 75 REAL(wp) :: ppe2_m !: meridional grid-spacing (degrees) 138 76 139 77 !! Vertical grid parameter for domzgr 140 78 !! ================================== 141 REAL(wp) , PUBLIC, PARAMETER :: ppsur = -4762.96143546300_wp!: ORCA r4, r2 and r05 coefficients142 REAL(wp) , PUBLIC, PARAMETER :: ppa0 = 255.58049070440_wp!: (default coefficients)143 REAL(wp) , PUBLIC, PARAMETER :: ppa1 = 245.58132232490_wp!:144 REAL(wp) , PUBLIC, PARAMETER :: ppkth = 21.43336197938_wp!:145 REAL(wp) , PUBLIC, PARAMETER :: ppacr = 3.00000000000_wp!:79 REAL(wp) :: ppsur !: ORCA r4, r2 and r05 coefficients 80 REAL(wp) :: ppa0 !: (default coefficients) 81 REAL(wp) :: ppa1 !: 82 REAL(wp) :: ppkth !: 83 REAL(wp) :: ppacr !: 146 84 ! 147 85 ! If both ppa0 ppa1 and ppsur are specified to 0, then 148 86 ! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 149 REAL(wp) , PUBLIC, PARAMETER :: ppdzmin = 10._wp!: Minimum vertical spacing150 REAL(wp) , PUBLIC, PARAMETER :: pphmax = 5000._wp!: Maximum depth87 REAL(wp) :: ppdzmin !: Minimum vertical spacing 88 REAL(wp) :: pphmax !: Maximum depth 151 89 ! 152 LOGICAL , PUBLIC, PARAMETER :: ldbletanh = .TRUE. !: Use/do not use double tanf function for vertical coordinates 153 REAL(wp), PUBLIC, PARAMETER :: ppa2 = 100.760928500000_wp !: Double tanh function parameters 154 REAL(wp), PUBLIC, PARAMETER :: ppkth2= 48.029893720000_wp !: 155 REAL(wp), PUBLIC, PARAMETER :: ppacr2= 13.000000000000_wp !: 156 ! 157 #endif 158 90 LOGICAL :: ldbletanh !: Use/do not use double tanf function for vertical coordinates 91 REAL(wp) :: ppa2 !: Double tanh function parameters 92 REAL(wp) :: ppkth2 !: 93 REAL(wp) :: ppacr2 !: 159 94 160 95 !!---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.