zzx/SUB_SHUILIANGJISUAN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

更新 Fortran/SUB_SECT.f90

Browse Source
This commit is contained in:
zzx 2025-05-09 17:54:33 +08:00
parent c8bef7928e
commit 09b57710b8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Fortran/SUB_SECT.f90
View File

@ -1,5 +1,5 @@
! ================================================================================== ! ==================================================================================
! 计算断面几何要素的子程序 ! 计算断面几何要素的子程序
! ================================================================================== ! ==================================================================================
subroutine sub_sect( NRIVER ,& subroutine sub_sect( NRIVER ,&
NSECT ,& NSECT ,&
@ -27,12 +27,13 @@
integer River integer River
! section ! section
REAL::ds(mriver,nriver),bd(nsect,nriver),zd(nsect,nriver),sm(nsect,nriver), rough(nsect,nriver) REAL::ds(mriver,nriver),bd(nsect,nriver),zd(nsect,nriver),&
sm(nsect,nriver), rough(nsect,nriver)
! BARC ! BARC
REAL::Bs,As,Rs,Cs REAL::Bs,As,Rs,Cs
! ---------------------------------------------------------------------------------- ! ----------------------------------------------------------------------------------
! Bs、As、Rs、Cs——相应于水位Zs的断面要素（梯形断面） ! Bs、As、Rs、Cs——相应于水位Zs的断面要素（梯形断面）
! ---------------------------------------------------------------------------------- ! ----------------------------------------------------------------------------------
h=Zs-zd(Is,river) h=Zs-zd(Is,river)
Bs=bd(Is,river)+2.0*sm(Is,river)*h Bs=bd(Is,river)+2.0*sm(Is,river)*h