| 1 | !!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> |
|---|
| 2 | !! NEMO/OPA : 1D configuration based on Kato-Philipps () exp. |
|---|
| 3 | !!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> |
|---|
| 4 | !----------------------------------------------------------------------- |
|---|
| 5 | &namrun ! parameters of the run |
|---|
| 6 | !----------------------------------------------------------------------- |
|---|
| 7 | cn_exp = "PAPA" ! experience name |
|---|
| 8 | nn_it000 = 1 ! first time step |
|---|
| 9 | nn_itend = 78840 ! last time step |
|---|
| 10 | nn_date0 = 20100615 ! date at nit_0000 (format yyyymmdd) used if ln_rstart=F or (ln_rstart=T and nn_rstctl=0 or 1) |
|---|
| 11 | nn_leapy = 1 ! Leap year calendar (1) or not (0) |
|---|
| 12 | nn_stock = 78840 ! frequency of creation of a restart file (modulo referenced to 1) |
|---|
| 13 | nn_write = 60 ! frequency of write in the output file (modulo referenced to nn_it000) |
|---|
| 14 | / |
|---|
| 15 | !----------------------------------------------------------------------- |
|---|
| 16 | &namcfg ! parameters of the configuration |
|---|
| 17 | !----------------------------------------------------------------------- |
|---|
| 18 | cp_cfg = "papa" ! name of the configuration |
|---|
| 19 | jp_cfg = 1 ! resolution of the configuration |
|---|
| 20 | jpidta = 3 ! 1st lateral dimension ( >= jpi ) = 30*jp_cfg+2 |
|---|
| 21 | jpjdta = 3 ! 2nd " " ( >= jpj ) = 20*jp_cfg+2 |
|---|
| 22 | jpkdta = 75 ! number of levels ( >= jpk ) |
|---|
| 23 | jpiglo = 3 ! 1st dimension of global domain --> i = jpidta |
|---|
| 24 | jpjglo = 3 ! 2nd - - --> j = jpjdta |
|---|
| 25 | jpizoom = 1 ! left bottom (i,j) indices of the zoom |
|---|
| 26 | jpjzoom = 1 ! in data domain indices |
|---|
| 27 | jperio = 0 ! lateral cond. type (between 0 and 6) |
|---|
| 28 | / |
|---|
| 29 | !----------------------------------------------------------------------- |
|---|
| 30 | &namzgr ! vertical coordinate |
|---|
| 31 | !----------------------------------------------------------------------- |
|---|
| 32 | / |
|---|
| 33 | !----------------------------------------------------------------------- |
|---|
| 34 | &namzgr_sco ! s-coordinate or hybrid z-s-coordinate |
|---|
| 35 | !----------------------------------------------------------------------- |
|---|
| 36 | / |
|---|
| 37 | !----------------------------------------------------------------------- |
|---|
| 38 | &namdom ! space and time domain (bathymetry, mesh, timestep) |
|---|
| 39 | !----------------------------------------------------------------------- |
|---|
| 40 | rn_bathy = 4198. ! value of the bathymetry. if (=0) bottom flat at jpkm1 |
|---|
| 41 | nn_msh = 3 ! create (=1) a mesh file or not (=0) |
|---|
| 42 | rn_rdt = 400. ! time step for the dynamics (and tracer if nn_acc=0) |
|---|
| 43 | nn_baro = 60 ! number of barotropic time step ("key_dynspg_ts") |
|---|
| 44 | rn_rdtmin = 360. ! minimum time step on tracers (used if nn_acc=1) |
|---|
| 45 | rn_rdtmax = 360. ! maximum time step on tracers (used if nn_acc=1) |
|---|
| 46 | jphgr_msh = 1 ! type of horizontal mesh |
|---|
| 47 | ppglam0 = -150.0 ! longitude of first raw and column T-point (jphgr_msh = 1) |
|---|
| 48 | ppgphi0 = 50.0 ! latitude of first raw and column T-point (jphgr_msh = 1) |
|---|
| 49 | ppe1_deg = 0.1 ! zonal grid-spacing (degrees) |
|---|
| 50 | ppe2_deg = 0.1 ! meridional grid-spacing (degrees) |
|---|
| 51 | ppe1_m = 999999.0 ! zonal grid-spacing (degrees) |
|---|
| 52 | ppe2_m = 999999.0 ! meridional grid-spacing (degrees) |
|---|
| 53 | ppsur = -3958.951371276829 ! ORCA r4, r2 and r05 coefficients |
|---|
| 54 | ppa0 = 103.9530096000000 ! (default coefficients) |
|---|
| 55 | ppa1 = 2.415951269000000 ! |
|---|
| 56 | ppkth = 15.35101370000000 ! |
|---|
| 57 | ppacr = 7.0 ! |
|---|
| 58 | ppdzmin = 999999.0 ! Minimum vertical spacing |
|---|
| 59 | pphmax = 999999.0 ! Maximum depth |
|---|
| 60 | ldbletanh = .TRUE. ! Use/do not use double tanf function for vertical coordinates |
|---|
| 61 | ppa2 = 100.7609285000000 ! Double tanh function parameters |
|---|
| 62 | ppkth2 = 48.02989372000000 ! |
|---|
| 63 | ppacr2 = 13.00000000000 ! |
|---|
| 64 | / |
|---|
| 65 | !----------------------------------------------------------------------- |
|---|
| 66 | &namcrs ! Grid coarsening for dynamics output and/or |
|---|
| 67 | ! passive tracer coarsened online simulations |
|---|
| 68 | !----------------------------------------------------------------------- |
|---|
| 69 | / |
|---|
| 70 | !----------------------------------------------------------------------- |
|---|
| 71 | &namtsd ! data : Temperature & Salinity |
|---|
| 72 | !----------------------------------------------------------------------- |
|---|
| 73 | ! ! file name ! frequency (hours) ! variable ! time interp. ! clim ! 'yearly'/ ! weights ! rotation ! land/sea mask ! |
|---|
| 74 | ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename ! pairing ! filename ! |
|---|
| 75 | sn_tem = 'init_PAPASTATION', 24 ,'votemper' , .false. , .true., 'daily' , '' , ' ' , '' |
|---|
| 76 | sn_sal = 'init_PAPASTATION', 24 ,'vosaline' , .false. , .true., 'daily' , '' , ' ' , '' |
|---|
| 77 | ! |
|---|
| 78 | cn_dir = './' ! root directory for the location of the runoff files |
|---|
| 79 | ln_tsd_init = .true. ! Initialisation of ocean T & S with T &S input data (T) or not (F) |
|---|
| 80 | ln_tsd_tradmp = .true. ! damping of ocean T & S toward T &S input data (T) or not (F) |
|---|
| 81 | / |
|---|
| 82 | !----------------------------------------------------------------------- |
|---|
| 83 | &namsbc ! Surface Boundary Condition (surface module) |
|---|
| 84 | !----------------------------------------------------------------------- |
|---|
| 85 | nn_fsbc = 1 ! frequency of surface boundary condition computation |
|---|
| 86 | ! (also = the frequency of sea-ice model call) |
|---|
| 87 | nn_ice = 0 ! =0 no ice boundary condition , |
|---|
| 88 | ln_rnf = .false. ! runoffs (T => fill namsbc_rnf) |
|---|
| 89 | ln_ssr = .false. ! Sea Surface Restoring on T and/or S (T => fill namsbc_ssr) |
|---|
| 90 | nn_fwb = 0 ! FreshWater Budget: =0 unchecked |
|---|
| 91 | / |
|---|
| 92 | !----------------------------------------------------------------------- |
|---|
| 93 | &namsbc_ana ! analytical surface boundary condition |
|---|
| 94 | !----------------------------------------------------------------------- |
|---|
| 95 | nn_tau000 = 100 ! gently increase the stress over the first ntau_rst time-steps |
|---|
| 96 | rn_utau0 = 0.1e0 ! uniform value for the i-stress |
|---|
| 97 | / |
|---|
| 98 | !----------------------------------------------------------------------- |
|---|
| 99 | &namsbc_flx ! surface boundary condition : flux formulation |
|---|
| 100 | !----------------------------------------------------------------------- |
|---|
| 101 | / |
|---|
| 102 | !----------------------------------------------------------------------- |
|---|
| 103 | &namsbc_clio ! namsbc_clio CLIO bulk formulae |
|---|
| 104 | !----------------------------------------------------------------------- |
|---|
| 105 | / |
|---|
| 106 | !----------------------------------------------------------------------- |
|---|
| 107 | &namsbc_core ! namsbc_core CORE bulk formulae |
|---|
| 108 | !----------------------------------------------------------------------- |
|---|
| 109 | ! ! file name ! frequency (hours) ! variable ! time interp. ! clim ! 'yearly'/ ! weights ! rotation ! land/sea mask ! |
|---|
| 110 | ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename ! pairing ! filename ! |
|---|
| 111 | sn_wndi = 'forcing_PAPASTATION' , 1 , 'wndwe' , .true. , .false. , 'yearly' , '' , '', '' |
|---|
| 112 | sn_wndj = 'forcing_PAPASTATION' , 1 , 'wndsn' , .true. , .false. , 'yearly' , '' , '', '' |
|---|
| 113 | sn_qsr = 'forcing_PAPASTATION' , 1 , 'qsr' , .false. , .false. , 'yearly' , '' , '', '' |
|---|
| 114 | sn_qlw = 'forcing_PAPASTATION' , 1 , 'qlw' , .false. , .false. , 'yearly' , '' , '', '' |
|---|
| 115 | sn_tair = 'forcing_PAPASTATION' , 1 , 'tair' , .true. , .false. , 'yearly' , '' , '', '' |
|---|
| 116 | sn_humi = 'forcing_PAPASTATION' , 1 , 'humi' , .true. , .false. , 'yearly' , '' , '', '' |
|---|
| 117 | sn_prec = 'forcing_PAPASTATION' , 1 , 'prec' , .false. , .false. , 'yearly' , '' , '', '' |
|---|
| 118 | sn_snow = 'forcing_PAPASTATION' , 1 , 'snow' , .false. , .false. , 'yearly' , '' , '', '' |
|---|
| 119 | ln_2m = .true. ! air temperature and humidity referenced at 2m (T) instead 10m (F) |
|---|
| 120 | / |
|---|
| 121 | !----------------------------------------------------------------------- |
|---|
| 122 | &namsbc_mfs ! namsbc_mfs MFS bulk formulae |
|---|
| 123 | !----------------------------------------------------------------------- |
|---|
| 124 | / |
|---|
| 125 | !----------------------------------------------------------------------- |
|---|
| 126 | &namsbc_cpl ! coupled ocean/atmosphere model ("key_coupled") |
|---|
| 127 | !----------------------------------------------------------------------- |
|---|
| 128 | / |
|---|
| 129 | !----------------------------------------------------------------------- |
|---|
| 130 | &namsbc_sas ! analytical surface boundary condition |
|---|
| 131 | !----------------------------------------------------------------------- |
|---|
| 132 | / |
|---|
| 133 | !----------------------------------------------------------------------- |
|---|
| 134 | &namtra_qsr ! penetrative solar radiation |
|---|
| 135 | !----------------------------------------------------------------------- |
|---|
| 136 | / |
|---|
| 137 | !----------------------------------------------------------------------- |
|---|
| 138 | &namsbc_rnf ! runoffs namelist surface boundary condition |
|---|
| 139 | !----------------------------------------------------------------------- |
|---|
| 140 | ln_rnf_mouth = .false. ! specific treatment at rivers mouths |
|---|
| 141 | / |
|---|
| 142 | !----------------------------------------------------------------------- |
|---|
| 143 | &namsbc_apr ! Atmospheric pressure used as ocean forcing or in bulk |
|---|
| 144 | !----------------------------------------------------------------------- |
|---|
| 145 | / |
|---|
| 146 | !----------------------------------------------------------------------- |
|---|
| 147 | &namsbc_ssr ! surface boundary condition : sea surface restoring |
|---|
| 148 | !----------------------------------------------------------------------- |
|---|
| 149 | nn_sssr = 0 ! add a damping term in the surface freshwater flux (=2) |
|---|
| 150 | rn_deds = -27.7 ! magnitude of the damping on salinity [mm/day] |
|---|
| 151 | ln_sssr_bnd = .false. ! flag to bound erp term (associated with nn_sssr=2) |
|---|
| 152 | / |
|---|
| 153 | !----------------------------------------------------------------------- |
|---|
| 154 | &namsbc_alb ! albedo parameters |
|---|
| 155 | !----------------------------------------------------------------------- |
|---|
| 156 | / |
|---|
| 157 | !----------------------------------------------------------------------- |
|---|
| 158 | &namberg ! iceberg parameters |
|---|
| 159 | !----------------------------------------------------------------------- |
|---|
| 160 | / |
|---|
| 161 | !----------------------------------------------------------------------- |
|---|
| 162 | &namlbc ! lateral momentum boundary condition |
|---|
| 163 | !----------------------------------------------------------------------- |
|---|
| 164 | rn_shlat = 0. ! shlat = 0 ! 0 < shlat < 2 ! shlat = 2 ! 2 < shlat |
|---|
| 165 | / |
|---|
| 166 | !----------------------------------------------------------------------- |
|---|
| 167 | &namcla ! cross land advection |
|---|
| 168 | !----------------------------------------------------------------------- |
|---|
| 169 | / |
|---|
| 170 | !----------------------------------------------------------------------- |
|---|
| 171 | &namobc ! open boundaries parameters ("key_obc") |
|---|
| 172 | !----------------------------------------------------------------------- |
|---|
| 173 | / |
|---|
| 174 | !----------------------------------------------------------------------- |
|---|
| 175 | &namagrif ! AGRIF zoom ("key_agrif") |
|---|
| 176 | !----------------------------------------------------------------------- |
|---|
| 177 | / |
|---|
| 178 | !----------------------------------------------------------------------- |
|---|
| 179 | &nam_tide ! tide parameters (#ifdef key_tide) |
|---|
| 180 | !----------------------------------------------------------------------- |
|---|
| 181 | / |
|---|
| 182 | !----------------------------------------------------------------------- |
|---|
| 183 | &nambdy ! unstructured open boundaries ("key_bdy") |
|---|
| 184 | !----------------------------------------------------------------------- |
|---|
| 185 | / |
|---|
| 186 | !----------------------------------------------------------------------- |
|---|
| 187 | &nambdy_dta ! open boundaries - external data ("key_bdy") |
|---|
| 188 | !----------------------------------------------------------------------- |
|---|
| 189 | / |
|---|
| 190 | !----------------------------------------------------------------------- |
|---|
| 191 | &nambdy_tide ! tidal forcing at open boundaries |
|---|
| 192 | !----------------------------------------------------------------------- |
|---|
| 193 | / |
|---|
| 194 | !----------------------------------------------------------------------- |
|---|
| 195 | &nambfr ! bottom friction |
|---|
| 196 | !----------------------------------------------------------------------- |
|---|
| 197 | nn_bfr = 2 ! type of bottom friction : = 0 : free slip, = 1 : linear friction |
|---|
| 198 | / |
|---|
| 199 | !----------------------------------------------------------------------- |
|---|
| 200 | &nambbc ! bottom temperature boundary condition |
|---|
| 201 | !----------------------------------------------------------------------- |
|---|
| 202 | ln_trabbc = .false. ! Apply a geothermal heating at the ocean bottom |
|---|
| 203 | nn_geoflx = 0 ! geothermal heat flux: = 0 no flux |
|---|
| 204 | / |
|---|
| 205 | !----------------------------------------------------------------------- |
|---|
| 206 | &nambbl ! bottom boundary layer scheme |
|---|
| 207 | !----------------------------------------------------------------------- |
|---|
| 208 | / |
|---|
| 209 | !----------------------------------------------------------------------- |
|---|
| 210 | &nameos ! ocean physical parameters |
|---|
| 211 | !----------------------------------------------------------------------- |
|---|
| 212 | / |
|---|
| 213 | !----------------------------------------------------------------------- |
|---|
| 214 | &namtra_adv ! advection scheme for tracer |
|---|
| 215 | !----------------------------------------------------------------------- |
|---|
| 216 | / |
|---|
| 217 | !---------------------------------------------------------------------------------- |
|---|
| 218 | &namtra_ldf ! lateral diffusion scheme for tracers |
|---|
| 219 | !---------------------------------------------------------------------------------- |
|---|
| 220 | rn_aeiv_0 = 0. ! eddy induced velocity coefficient [m2/s] |
|---|
| 221 | rn_aht_0 = 0. ! horizontal eddy diffusivity for tracers [m2/s] |
|---|
| 222 | / |
|---|
| 223 | !----------------------------------------------------------------------- |
|---|
| 224 | &namtra_dmp ! tracer: T & S newtonian damping |
|---|
| 225 | !----------------------------------------------------------------------- |
|---|
| 226 | ln_tradmp = .false. ! add a damping termn (T) or not (F) |
|---|
| 227 | nn_zdmp = -1 ! vertical shape =0 damping throughout the water column |
|---|
| 228 | nn_file = 1 ! create a damping.coeff NetCDF file (=1) or not (=0) |
|---|
| 229 | / |
|---|
| 230 | !----------------------------------------------------------------------- |
|---|
| 231 | &namdyn_adv ! formulation of the momentum advection |
|---|
| 232 | !----------------------------------------------------------------------- |
|---|
| 233 | / |
|---|
| 234 | !----------------------------------------------------------------------- |
|---|
| 235 | &namdyn_vor ! option of physics/algorithm (not control by CPP keys) |
|---|
| 236 | !----------------------------------------------------------------------- |
|---|
| 237 | / |
|---|
| 238 | !----------------------------------------------------------------------- |
|---|
| 239 | &namdyn_hpg ! Hydrostatic pressure gradient option |
|---|
| 240 | !----------------------------------------------------------------------- |
|---|
| 241 | / |
|---|
| 242 | !----------------------------------------------------------------------- |
|---|
| 243 | !namdyn_spg ! surface pressure gradient (CPP key only) |
|---|
| 244 | !----------------------------------------------------------------------- |
|---|
| 245 | !----------------------------------------------------------------------- |
|---|
| 246 | &namdyn_ldf ! lateral diffusion on momentum |
|---|
| 247 | !----------------------------------------------------------------------- |
|---|
| 248 | ln_dynldf_lap = .false. ! laplacian operator |
|---|
| 249 | / |
|---|
| 250 | !----------------------------------------------------------------------- |
|---|
| 251 | &namzdf ! vertical physics |
|---|
| 252 | !----------------------------------------------------------------------- |
|---|
| 253 | rn_avm0 = 5.0e-6 !rbb 1.2e-4 ! vertical eddy viscosity [m2/s] (background Kz if not "key_zdfcst") |
|---|
| 254 | rn_avt0 = 5.0e-6 !rbb 1.2e-5 ! vertical eddy diffusivity [m2/s] (background Kz if not "key_zdfcst") |
|---|
| 255 | ln_zdfevd = .false. !rbb .true. ! enhanced vertical diffusion (evd) (T) or not (F) |
|---|
| 256 | / |
|---|
| 257 | !----------------------------------------------------------------------- |
|---|
| 258 | &namzdf_ric ! richardson number dependent vertical diffusion ("key_zdfric" ) |
|---|
| 259 | !----------------------------------------------------------------------- |
|---|
| 260 | / |
|---|
| 261 | !----------------------------------------------------------------------- |
|---|
| 262 | &namzdf_tke ! turbulent eddy kinetic dependent vertical diffusion ("key_zdftke") |
|---|
| 263 | !----------------------------------------------------------------------- |
|---|
| 264 | / |
|---|
| 265 | !------------------------------------------------------------------------ |
|---|
| 266 | &namzdf_kpp ! K-Profile Parameterization dependent vertical mixing ("key_zdfkpp", and optionally: |
|---|
| 267 | !------------------------------------------------------------------------ "key_kppcustom" or "key_kpplktb") |
|---|
| 268 | / |
|---|
| 269 | !----------------------------------------------------------------------- |
|---|
| 270 | &namzdf_gls ! GLS vertical diffusion ("key_zdfgls") |
|---|
| 271 | !----------------------------------------------------------------------- |
|---|
| 272 | rn_clim_galp = 0.267 ! galperin limit |
|---|
| 273 | / |
|---|
| 274 | !----------------------------------------------------------------------- |
|---|
| 275 | &namzdf_ddm ! double diffusive mixing parameterization ("key_zdfddm") |
|---|
| 276 | !----------------------------------------------------------------------- |
|---|
| 277 | / |
|---|
| 278 | !----------------------------------------------------------------------- |
|---|
| 279 | &namzdf_tmx ! tidal mixing parameterization ("key_zdftmx") |
|---|
| 280 | !----------------------------------------------------------------------- |
|---|
| 281 | ln_tmx_itf = .false. ! ITF specific parameterisation |
|---|
| 282 | / |
|---|
| 283 | !----------------------------------------------------------------------- |
|---|
| 284 | &namsol ! elliptic solver / island / free surface |
|---|
| 285 | !----------------------------------------------------------------------- |
|---|
| 286 | nn_solv = 2 ! elliptic solver: =1 preconditioned conjugate gradient (pcg) |
|---|
| 287 | nn_nmin = 210 ! minimum of iterations for the SOR solver |
|---|
| 288 | rn_sor = 1.96 ! optimal coefficient for SOR solver (to be adjusted with the domain) |
|---|
| 289 | / |
|---|
| 290 | !----------------------------------------------------------------------- |
|---|
| 291 | &nammpp ! Massively Parallel Processing ("key_mpp_mpi) |
|---|
| 292 | !----------------------------------------------------------------------- |
|---|
| 293 | / |
|---|
| 294 | !----------------------------------------------------------------------- |
|---|
| 295 | &namctl ! Control prints & Benchmark |
|---|
| 296 | !----------------------------------------------------------------------- |
|---|
| 297 | / |
|---|
| 298 | !----------------------------------------------------------------------- |
|---|
| 299 | &namnc4 ! netcdf4 chunking and compression settings ("key_netcdf4") |
|---|
| 300 | !----------------------------------------------------------------------- |
|---|
| 301 | / |
|---|
| 302 | !----------------------------------------------------------------------- |
|---|
| 303 | &namtrd ! diagnostics on dynamics and/or tracer trends ("key_trddyn" and/or "key_trdtra") |
|---|
| 304 | ! ! or mixed-layer trends or barotropic vorticity ("key_trdmld" or "key_trdvor") |
|---|
| 305 | !----------------------------------------------------------------------- |
|---|
| 306 | / |
|---|
| 307 | !----------------------------------------------------------------------- |
|---|
| 308 | &namflo ! float parameters ("key_float") |
|---|
| 309 | !----------------------------------------------------------------------- |
|---|
| 310 | / |
|---|
| 311 | !----------------------------------------------------------------------- |
|---|
| 312 | &namptr ! Poleward Transport Diagnostic |
|---|
| 313 | !----------------------------------------------------------------------- |
|---|
| 314 | / |
|---|
| 315 | !----------------------------------------------------------------------- |
|---|
| 316 | &namhsb ! Heat and salt budgets |
|---|
| 317 | !----------------------------------------------------------------------- |
|---|
| 318 | / |
|---|
| 319 | !----------------------------------------------------------------------- |
|---|
| 320 | &namdct ! transports through sections |
|---|
| 321 | !----------------------------------------------------------------------- |
|---|
| 322 | nn_dct = 60 ! time step frequency for transports computing |
|---|
| 323 | nn_dctwri = 60 ! time step frequency for transports writing |
|---|
| 324 | nn_secdebug = 0 ! 0 : no section to debug |
|---|
| 325 | / |
|---|
| 326 | !----------------------------------------------------------------------- |
|---|
| 327 | &namobs ! observation usage switch ('key_diaobs') |
|---|
| 328 | !----------------------------------------------------------------------- |
|---|
| 329 | / |
|---|
| 330 | !----------------------------------------------------------------------- |
|---|
| 331 | &nam_asminc ! assimilation increments ('key_asminc') |
|---|
| 332 | !----------------------------------------------------------------------- |
|---|
| 333 | / |
|---|
| 334 | !----------------------------------------------------------------------- |
|---|
| 335 | &namsbc_wave ! External fields from wave model |
|---|
| 336 | !----------------------------------------------------------------------- |
|---|
| 337 | / |
|---|
| 338 | !----------------------------------------------------------------------- |
|---|
| 339 | &namdyn_nept ! Neptune effect (simplified: lateral and vertical diffusions removed) |
|---|
| 340 | !----------------------------------------------------------------------- |
|---|
| 341 | ln_neptramp = .false. ! ramp down Neptune velocity in shallow water |
|---|
| 342 | / |
|---|
