47 lines
1.2 KiB
Fortran
47 lines
1.2 KiB
Fortran
|
! ==================================================================================
|
|||
|
|
! <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>漸<EFBFBD><E6BCB8>Ҫ<EFBFBD>ص<EFBFBD><D8B5>ӳ<EFBFBD><D3B3><EFBFBD>
|
|||
|
|
! ==================================================================================
|
|||
|
|
subroutine sub_sect( NRIVER ,&
|
|||
|
|
NSECT ,&
|
|||
|
|
MRIVER ,&
|
|||
|
|
KRC ,&
|
|||
|
|
NDATA ,&
|
|||
|
|
river ,&
|
|||
|
|
Is ,&
|
|||
|
|
Zs ,&
|
|||
|
|
ds ,&
|
|||
|
|
bd ,&
|
|||
|
|
zd ,&
|
|||
|
|
sm ,&
|
|||
|
|
rough ,&
|
|||
|
|
Bs ,&
|
|||
|
|
As ,&
|
|||
|
|
Rs ,&
|
|||
|
|
Cs )
|
|||
|
|
|
|||
|
|
INTEGER::NRIVER
|
|||
|
|
INTEGER::NSECT
|
|||
|
|
INTEGER::MRIVER
|
|||
|
|
INTEGER::KRC
|
|||
|
|
INTEGER::NDATA
|
|||
|
|
|
|||
|
|
integer River
|
|||
|
|
! section
|
|||
|
|
REAL::ds(mriver,nriver),bd(nsect,nriver),zd(nsect,nriver)
|
|||
|
|
REAL::sm(nsect,nriver), rough(nsect,nriver)
|
|||
|
|
! BARC
|
|||
|
|
REAL::Bs,As,Rs,Cs
|
|||
|
|
|
|||
|
|
! ----------------------------------------------------------------------------------
|
|||
|
|
! Bs<42><73>As<41><73>Rs<52><73>Cs<43><73><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>ˮλZs<5A>Ķ<EFBFBD><C4B6><EFBFBD>Ҫ<EFBFBD>أ<EFBFBD><D8A3><EFBFBD><EFBFBD>ζ<EFBFBD><CEB6>棩
|
|||
|
|
! ----------------------------------------------------------------------------------
|
|||
|
|
h=Zs-zd(Is,river)
|
|||
|
|
Bs=bd(Is,river)+2.0*sm(Is,river)*h
|
|||
|
|
As=(bd(Is,river)+sm(Is,river)*h)*h
|
|||
|
|
Sl=bd(Is,river)+2*h*sqrt(1+sm(Is,river)**2.0)
|
|||
|
|
Rs=As/Sl
|
|||
|
|
Cs=Rs**(1.0/6.0)/rough(Is,river)
|
|||
|
|
return
|
|||
|
|
end
|
|||
|
|
|