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

更新 Fortran/SUB_SHUILIANGJISUAN.f90

Browse Source
This commit is contained in:
zzx 2025-05-12 09:34:36 +08:00
parent 76b4c54955
commit 229026c453
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Fortran/SUB_SHUILIANGJISUAN.f90
View File

@ -253,15 +253,13 @@ INTEGER::FHD
!DO i=1,nriver !DO i=1,nriver
! if(DB2(i).eq.1)then ! 下游外部 ! if(DB2(i).eq.1)then ! 下游外部
! if(DB1(i).eq.3)then ! 如果是闸下潮位过程 ! if(DB1(i).eq.3)then ! 如果是闸下潮位过程
! read(1,*)II,II,II,(DBV(j,i),j=1,ndata),& ! read(1,*)II,II,II,(DBV(j,i),j=1,ndata),(Gate(j,i),j=1,4) ! 读入 Gate(1,i) = 闸净宽；Gate(2,i) = 最大过流量；Gate(3,i) = 流量公式C1；Gate(4,i) = 流量公式C2 （流量公式Q=C1*B*e*dZ^C2中的C1和C2）
(Gate(j,i),j=1,4) ! 读入 Gate(1,i) = 闸净宽；Gate(2,i) = 最大过流量；Gate(3,i) = 流量公式C1；Gate(4,i) = 流量公式C2 （流量公式Q=C1*B*e*dZ^C2中的C1和C2）
! ELSE ! ELSE
! read(1,*)II,II,II,(DBV(j,i),j=1,ndata) ! 读入下游外边界断面处的水位，或流量，或闸下潮位过程 ! read(1,*)II,II,II,(DBV(j,i),j=1,ndata) ! 读入下游外边界断面处的水位，或流量，或闸下潮位过程
! end if ! end if
! elseif(DB2(i).eq.2)then ! 下游内部 ! elseif(DB2(i).eq.2)then ! 下游内部
! if(DB1(i).eq.2)then ! if(DB1(i).eq.2)then
! read(1,*)II,II,II,(NDB(j,i),j=1,2),& ! read(1,*)II,II,II,(NDB(j,i),j=1,2),(Aphi(j,i),j=1,2) ! 下游流量内边界（管涵）的过流断面面积、流速系数 下游内边界一般用水位，如果用流量，一般是管涵，需要提供过流面积和流速系数
(Aphi(j,i),j=1,2) ! 下游流量内边界（管涵）的过流断面面积、流速系数 下游内边界一般用水位，如果用流量，一般是管涵，需要提供过流面积和流速系数
! ELSE ! ELSE
! read(1,*)II,II,II,(NDB(j,i),j=1,2) ! 读入下游内边界断面所连接的河道编号、微段编号 ! read(1,*)II,II,II,(NDB(j,i),j=1,2) ! 读入下游内边界断面所连接的河道编号、微段编号
! end if ! end if