- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/par_oce.F90
r3294 r4147 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 CHARACTER(lc) :: cp_cfz !: name of the zoom of configuration 32 INTEGER :: jp_cfg !: resolution of the configuration 94 33 95 34 ! 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 )35 INTEGER :: jpidta !: 1st lateral dimension ( >= jpi ) 36 INTEGER :: jpjdta !: 2nd " " ( >= jpj ) 37 INTEGER :: jpkdta !: number of levels ( >= jpk ) 99 38 100 39 ! 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 - - --> j40 INTEGER :: jpiglo !: 1st dimension of global domain --> i 41 INTEGER :: jpjglo !: 2nd - - --> j 103 42 104 43 ! 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 indices44 INTEGER :: jpizoom !: left bottom (i,j) indices of the zoom 45 INTEGER :: jpjzoom !: in data domain indices 107 46 108 47 ! Domain characteristics 109 INTEGER , PUBLIC, PARAMETER :: jperio = 0!: lateral cond. type (between 0 and 6)110 ! 111 ! 112 ! 113 ! 114 ! 48 INTEGER :: jperio !: lateral cond. type (between 0 and 6) 49 ! ! = 0 closed ; = 1 cyclic East-West 50 ! ! = 2 equatorial symmetric ; = 3 North fold T-point pivot 51 ! ! = 4 cyclic East-West AND North fold T-point pivot 52 ! ! = 5 North fold F-point pivot 53 ! ! = 6 cyclic East-West AND North fold F-point pivot 115 54 116 55 !! Values set to pp_not_used indicates that this parameter is not used in THIS config. 117 56 !! 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 !: - - -57 REAL(wp) :: pp_not_used = 999999._wp !: vertical grid parameter 58 REAL(wp) :: pp_to_be_computed = 999998._wp !: - - - 120 59 121 60 122 !! Horizontal grid parameters for domhgr123 !! =====================================124 INTEGER, PUBLIC, PARAMETER :: jphgr_msh = 0 !: type of horizontal mesh125 ! ! = 0 curvilinear coordinate on the sphere read in coordinate.nc126 ! ! = 1 geographical mesh on the sphere with regular grid-spacing127 ! ! = 2 f-plane with regular grid-spacing128 ! ! = 3 beta-plane with regular grid-spacing129 ! ! = 4 Mercator grid with T/U point at the equator130 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)133 ! ! 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)138 139 !! Vertical grid parameter for domzgr140 !! ==================================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 !:146 !147 ! If both ppa0 ppa1 and ppsur are specified to 0, then148 ! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr149 REAL(wp), PUBLIC, PARAMETER :: ppdzmin = 10._wp !: Minimum vertical spacing150 REAL(wp), PUBLIC, PARAMETER :: pphmax = 5000._wp !: Maximum depth151 !152 LOGICAL , PUBLIC, PARAMETER :: ldbletanh = .TRUE. !: Use/do not use double tanf function for vertical coordinates153 REAL(wp), PUBLIC, PARAMETER :: ppa2 = 100.760928500000_wp !: Double tanh function parameters154 REAL(wp), PUBLIC, PARAMETER :: ppkth2= 48.029893720000_wp !:155 REAL(wp), PUBLIC, PARAMETER :: ppacr2= 13.000000000000_wp !:156 !157 #endif158 61 159 62
Note: See TracChangeset
for help on using the changeset viewer.