FVCOM_SED.doc
上传人:sy****28 上传时间:2024-09-13 格式:DOC 页数:2 大小:25KB 金币:14 举报 版权申诉
预览加载中,请您耐心等待几秒...

在线预览结束,喜欢就下载吧,查找使用更方便

14 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

Frommod_sed.F!sname=>sedimentname(silt,clay,etc)!stype=>sedimenttype:'cohesive'/'non-cohesive'!Sd50=>sedimentmeandiameter()!Wset=>meansedimentsettlingvelocity!tau_ce=>criticalshearstressforerosion!tau_cd=>criticalshearstressfordeposition!Srho=>sedimentdensity!Spor=>sedimentporosity!erate=>surfaceerosionmassflux[kgm^-2s^-1]!conc=>sedconcentrationinwatercolumn[kgm^-3]!cnew=>sedconcentrationduringupdate[kgm^-3]!mass=>sedimentmassinbedlayers[kgm^-2]!frac=>sedimentfractioninbedlayers[-]!bflx=>bedloadsedimentflux(kg/m^2)(+outofbed)!eflx=>suspendedsedimenterosiveflux(+outofbed)!dflx=>suspendedseddepositionalflux(+intobed)!cdis=>concentrationatriversource!cflx=>storeadvectivefluxatopenbndry!cobc=>userspecdopenbndryconcentration!depm=>storedepositedmass!arraysize=>spatialsizeofsedimentarrays!GlobalModelParameters!sedfile:sedimentinputparametercontrolfile!nsed:numberofsedimentclasses!nbed:numberoflayersinsedimentbed!min_Srho:minimumSedimentdensity!inf_bed:trueifbedhasinfinitesedimentsupply!bedload:trueifbedloadistobeconsidered!susload:trueifsuspendedloadistobeconsidered!DTsed:sedimentmodeltimestep(seconds)!T_model:modeltime(seconds)!taub:arraytoholdbottomshearstress!rho0:meandensityparameterusedtoconverttau/rhototau!tau_max:maxbottomstress(N-m^-2)!tau_min:minbottomstress(N-m^-2)!thck_cr:criticalthicknessforinitiatingnewsurfacelayer(m)!n_report:iterationintervalforstatisticsprinting!sed_start:startintervalforsedmodel!sed_its:sedimentmodeliterationcounter!sed_nudge:flagforactiviatingsedimentnudgingonobc!sed_alpha:sedimentnudgingrelaxationfactor!sed_ramp:numberofiterationsoverwhichtorampsednudging!sed_source:flagforactiviatingsedimentpointsources!Bottom(ExposedSedimentLayer)!data-->bed(0:mt,n_bot_vars)!!withproptype=:!isd50=>meangraindiameter!idens=>meangraindensity(notcurrentlyused)!iwset=>meansettlingvelocity(notcurrentlyused)!itauc=>meancriticalerosionstress!iactv=>activelayerthickness!nthck=>newtotalthicknessofsediment