更新 Fortran/MAIN_UFRN.f90
This commit is contained in:
parent
fdeb585e72
commit
8d1e85068b
@ -1,105 +1,105 @@
|
|||||||
SUBROUTINE MAIN_UFRN(nriver ,& !河道数量
|
SUBROUTINE MAIN_UFRN(nriver ,& !河道数量
|
||||||
nsect ,& !河道计算断面数最大值
|
nsect ,& !河道计算断面数最大值
|
||||||
krc ,& !河道汊点数最大值
|
krc ,& !河道汊点数最大值
|
||||||
ndata ,& !计算时刻数
|
ndata ,& !计算时刻数
|
||||||
Ns ,& !河道断面数
|
Ns ,& !河道断面数
|
||||||
Pc ,& !河道汊点数
|
Pc ,& !河道汊点数
|
||||||
Nrc ,& !河道汊点微段号
|
Nrc ,& !河道汊点微段号
|
||||||
Lc ,& !汊点类型
|
Lc ,& !汊点类型
|
||||||
Dric ,& !流动方向
|
Dric ,& !流动方向
|
||||||
XJ ,& !流量过程
|
XJ ,& !流量过程
|
||||||
Asave ,& !水库面积
|
Asave ,& !水库面积
|
||||||
ds ,& !河道几何数据
|
ds ,& !河道几何数据
|
||||||
bd ,& !梯形断面底宽
|
bd ,& !梯形断面底宽
|
||||||
zd ,& !梯形断面底高程
|
zd ,& !梯形断面底高程
|
||||||
sm ,& !梯形断面边坡系数
|
sm ,& !梯形断面边坡系数
|
||||||
rough ,& !梯形断面糙率
|
rough ,& !梯形断面糙率
|
||||||
ZZ0 ,& !计算区域初始水位
|
ZZ0 ,& !计算区域初始水位
|
||||||
Zctr ,& !河道末端挡潮闸运行控制水位
|
Zctr ,& !河道末端挡潮闸运行控制水位
|
||||||
Qp ,& !计算区域入河流量过程
|
Qp ,& !计算区域入河流量过程
|
||||||
UB1 ,& !上游边界条件类型1（1——水位边界，2——流量边界,3——水位流量关系）
|
UB1 ,& !上游边界条件类型1（1——水位边界，2——流量边界,3——水位流量关系）
|
||||||
UB2 ,& !上游边界条件类型2（1——河网外边界，2——河网内边界）
|
UB2 ,& !上游边界条件类型2（1——河网外边界，2——河网内边界）
|
||||||
DB1 ,& !下游边界条件类型1（1——水位边界，2——流量边界,3——水位流量关系）
|
DB1 ,& !下游边界条件类型1（1——水位边界，2——流量边界,3——水位流量关系）
|
||||||
DB2 ,& !下游边界条件类型2（1——河网外边界，2——河网内边界）
|
DB2 ,& !下游边界条件类型2（1——河网外边界，2——河网内边界）
|
||||||
UBV ,& !上游外边界断面处的水位，或流量过程
|
UBV ,& !上游外边界断面处的水位，或流量过程
|
||||||
NUB ,& !上游内边界断面所连接的河道编号、微段编号
|
NUB ,& !上游内边界断面所连接的河道编号、微段编号
|
||||||
DBV ,& !下游外边界断面处的水位，或流量，或闸下潮位过程
|
DBV ,& !下游外边界断面处的水位，或流量，或闸下潮位过程
|
||||||
Gate ,& !Gate(1,i) = 闸净宽；Gate(2,i) = 最大过流量；Gate(3,i) = 流量公式C1；Gate(4,i) = 流量公式C2 （流量公式Q=C1*B*e*dZ^C2中的C1和C2）
|
Gate ,& !Gate(1,i) = 闸净宽；Gate(2,i) = 最大过流量；Gate(3,i) = 流量公式C1；Gate(4,i) = 流量公式C2 （流量公式Q=C1*B*e*dZ^C2中的C1和C2）
|
||||||
NDB ,& !下游内边界断面所连接的河道编号、微段编号
|
NDB ,& !下游内边界断面所连接的河道编号、微段编号
|
||||||
Aphi ,& !下游流量内边界（管涵）的过流断面面积、流速系数
|
Aphi ,& !下游流量内边界（管涵）的过流断面面积、流速系数
|
||||||
period ,& !计算小时数
|
period ,& !计算小时数
|
||||||
dt ,& !计算时间步长
|
dt ,& !计算时间步长
|
||||||
sita ,& !水量隐格式权系数
|
sita ,& !水量隐格式权系数
|
||||||
sorz ,& !水位迭代松弛因子
|
sorz ,& !水位迭代松弛因子
|
||||||
sorq ,& !流量迭代松弛因子
|
sorq ,& !流量迭代松弛因子
|
||||||
epsz ,& !水位迭代控制精度
|
epsz ,& !水位迭代控制精度
|
||||||
epsq ,& !流量迭代控制精度
|
epsq ,& !流量迭代控制精度
|
||||||
Bsor1 ,& !水闸外边界计算中的松弛因子
|
Bsor1 ,& !水闸外边界计算中的松弛因子
|
||||||
Bsor2 ,& !管涵内边界计算中的松弛因子
|
Bsor2 ,& !管涵内边界计算中的松弛因子
|
||||||
Z ,& !输出河道水位
|
Z ,& !输出河道水位
|
||||||
Q )& !输出河道流量
|
Q )& !输出河道流量
|
||||||
BIND(C, NAME="MAIN_UFRN")
|
BIND(C, NAME="MAIN_UFRN")
|
||||||
|
|
||||||
!DEC$ ATTRIBUTES DLLEXPORT::MAIN_UFRN
|
!DEC$ ATTRIBUTES DLLEXPORT::MAIN_UFRN
|
||||||
|
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
|
|
||||||
INTEGER::nriver ! 河道数量
|
INTEGER::nriver ! 河道数量
|
||||||
INTEGER::nsect ! 河道计算断面数最大值
|
INTEGER::nsect ! 河道计算断面数最大值
|
||||||
INTEGER::krc ! 河道汊点数最大值
|
INTEGER::krc ! 河道汊点数最大值
|
||||||
INTEGER::ndata ! 计算时刻数（时间步数据点数量）
|
INTEGER::ndata ! 计算时刻数（时间步数据点数量）
|
||||||
INTEGER::MRIVER
|
INTEGER::MRIVER
|
||||||
integer River,tstep
|
integer River,tstep
|
||||||
INTEGER::I
|
INTEGER::I
|
||||||
INTEGER::II
|
INTEGER::II
|
||||||
|
|
||||||
! 河道组态数据
|
! 河道组态数据
|
||||||
INTEGER::Ns(nriver) ! 各河道断面数（维度: NRIVER）
|
INTEGER::Ns(nriver) ! 各河道断面数（维度: NRIVER）
|
||||||
INTEGER::Pc(nriver) ! 各河道汊点数（维度: NRIVER）
|
INTEGER::Pc(nriver) ! 各河道汊点数（维度: NRIVER）
|
||||||
INTEGER::Nrc(krc,nriver) ! 汊点类型（1-普通，2-集中入流，3-调蓄水库）（维度: KRC, NRIVER）
|
INTEGER::Nrc(krc,nriver) ! 汊点类型（1-普通，2-集中入流，3-调蓄水库）（维度: KRC, NRIVER）
|
||||||
INTEGER::Lc(krc,nriver) ! 汊点连接的微段编号（维度: KRC, NRIVER）
|
INTEGER::Lc(krc,nriver) ! 汊点连接的微段编号（维度: KRC, NRIVER）
|
||||||
|
|
||||||
!边界条件
|
!边界条件
|
||||||
INTEGER::UB1(nriver) ! 上游边界类型（1-水位，2-流量，3-水位流量关系）（维度: NRIVER）
|
INTEGER::UB1(nriver) ! 上游边界类型（1-水位，2-流量，3-水位流量关系）（维度: NRIVER）
|
||||||
INTEGER::UB2(nriver) ! 上游边界位置（1-外边界，2-内边界）（维度: NRIVER）
|
INTEGER::UB2(nriver) ! 上游边界位置（1-外边界，2-内边界）（维度: NRIVER）
|
||||||
INTEGER::DB1(nriver) ! 下游边界类型（同上）（维度: NRIVER）
|
INTEGER::DB1(nriver) ! 下游边界类型（同上）（维度: NRIVER）
|
||||||
INTEGER::DB2(nriver) ! 下游边界位置（同上）（维度: NRIVER）
|
INTEGER::DB2(nriver) ! 下游边界位置（同上）（维度: NRIVER）
|
||||||
INTEGER::NUB(2,nriver) ! 上游内边界连接的河道和微段（维度: 2, NRIVER）
|
INTEGER::NUB(2,nriver) ! 上游内边界连接的河道和微段（维度: 2, NRIVER）
|
||||||
INTEGER::NDB(2,nriver) ! 下游内边界连接的河道和微段（维度: 2, NRIVER）
|
INTEGER::NDB(2,nriver) ! 下游内边界连接的河道和微段（维度: 2, NRIVER）
|
||||||
|
|
||||||
REAL::ZZ0 ! 计算区域初始水位（m）
|
REAL::ZZ0 ! 计算区域初始水位（m）
|
||||||
REAL::Zctr ! 河道末端挡潮闸控制水位（m）
|
REAL::Zctr ! 河道末端挡潮闸控制水位（m）
|
||||||
REAL::period ! 计算总时长（小时）
|
REAL::period ! 计算总时长（小时）
|
||||||
REAL::dt ! 计算时间步长（秒）
|
REAL::dt ! 计算时间步长（秒）
|
||||||
REAL::sita ! 隐格式权系数（0.5~1.0）
|
REAL::sita ! 隐格式权系数（0.5~1.0）
|
||||||
REAL::sorz ! 水位迭代松弛因子（0~1）
|
REAL::sorz ! 水位迭代松弛因子（0~1）
|
||||||
REAL::sorq ! 流量迭代松弛因子（0~1）
|
REAL::sorq ! 流量迭代松弛因子（0~1）
|
||||||
REAL::epsz ! 水位迭代收敛精度（m）
|
REAL::epsz ! 水位迭代收敛精度（m）
|
||||||
REAL::epsq ! 流量迭代收敛精度（m?/s）
|
REAL::epsq ! 流量迭代收敛精度（m?/s）
|
||||||
REAL::Bsor1 ! 水闸边界松弛因子
|
REAL::Bsor1 ! 水闸边界松弛因子
|
||||||
REAL::Bsor2 ! 管涵边界松弛因子
|
REAL::Bsor2 ! 管涵边界松弛因子
|
||||||
REAL::ql
|
REAL::ql
|
||||||
REAL::condu,condd(3)
|
REAL::condu,condd(3)
|
||||||
REAL::Bs,As,Rs,Cs
|
REAL::Bs,As,Rs,Cs
|
||||||
|
|
||||||
!河道汊点数据
|
!河道汊点数据
|
||||||
REAL::Dric(krc,nriver) ! 汊点流动方向（流入1，流出-1）（维度: KRC, NRIVER）
|
REAL::Dric(krc,nriver) ! 汊点流动方向（流入1，流出-1）（维度: KRC, NRIVER）
|
||||||
REAL::Qj(ndata,krc,nriver) ! 集中入流流量过程（维度: NDATA, KRC, NRIVER）
|
REAL::Qj(ndata,krc,nriver) ! 集中入流流量过程（维度: NDATA, KRC, NRIVER）
|
||||||
REAL::Asave(krc,nriver) ! 调蓄水库面积（m?）（维度: KRC, NRIVER）
|
REAL::Asave(krc,nriver) ! 调蓄水库面积（m?）（维度: KRC, NRIVER）
|
||||||
|
|
||||||
!河道几何数据
|
!河道几何数据
|
||||||
REAL::ds(nsect - 1,nriver) ! 微段长度（m）（维度: nsect - 1, NRIVER）
|
REAL::ds(nsect - 1,nriver) ! 微段长度（m）（维度: nsect - 1, NRIVER）
|
||||||
REAL::bd(nsect,nriver) ! 断面底宽（m）（维度: NSECT, NRIVER）
|
REAL::bd(nsect,nriver) ! 断面底宽（m）（维度: NSECT, NRIVER）
|
||||||
REAL::zd(nsect,nriver) ! 断面底高程（m）（维度: NSECT, NRIVER）
|
REAL::zd(nsect,nriver) ! 断面底高程（m）（维度: NSECT, NRIVER）
|
||||||
REAL::sm(nsect,nriver) ! 边坡系数（-）（维度: NSECT, NRIVER）
|
REAL::sm(nsect,nriver) ! 边坡系数（-）（维度: NSECT, NRIVER）
|
||||||
REAL::rough(nsect,nriver) ! 糙率（曼宁系数）（维度: NSECT, NRIVER）
|
REAL::rough(nsect,nriver) ! 糙率（曼宁系数）（维度: NSECT, NRIVER）
|
||||||
|
|
||||||
!边界过程数据
|
!边界过程数据
|
||||||
REAL::UBV(ndata,nriver) ! 上游外边界水位/流量过程（维度: NDATA, NRIVER）
|
REAL::UBV(ndata,nriver) ! 上游外边界水位/流量过程（维度: NDATA, NRIVER）
|
||||||
REAL::DBV(ndata,nriver) ! 下游外边界水位/流量过程（维度: NDATA, NRIVER）
|
REAL::DBV(ndata,nriver) ! 下游外边界水位/流量过程（维度: NDATA, NRIVER）
|
||||||
REAL::Gate(4,nriver) ! 闸门参数（净宽、最大流量、C1、C2）（维度: 4, NRIVER）
|
REAL::Gate(4,nriver) ! 闸门参数（净宽、最大流量、C1、C2）（维度: 4, NRIVER）
|
||||||
REAL::Aphi(2,nriver) ! 管涵过流参数（面积、流速系数）（维度: 2, NRIVER）
|
REAL::Aphi(2,nriver) ! 管涵过流参数（面积、流速系数）（维度: 2, NRIVER）
|
||||||
REAL::Qp(ndata) ! 计算区域入河总流量过程（m?/s）（维度: NDATA）
|
REAL::Qp(ndata) ! 计算区域入河总流量过程（m?/s）（维度: NDATA）
|
||||||
|
|
||||||
REAL::Z0(nsect,nriver)
|
REAL::Z0(nsect,nriver)
|
||||||
REAL::Q0(nsect,nriver)
|
REAL::Q0(nsect,nriver)
|
||||||
@ -109,7 +109,7 @@ SUBROUTINE MAIN_UFRN(nriver ,& !
|
|||||||
REAL::Zc(nsect,nriver),Qc(nsect,nriver)
|
REAL::Zc(nsect,nriver),Qc(nsect,nriver)
|
||||||
REAL::XJ(ndata,nriver*krc)
|
REAL::XJ(ndata,nriver*krc)
|
||||||
|
|
||||||
REAL::maxtstep
|
INTEGER::maxtstep
|
||||||
REAL::maxiter
|
REAL::maxiter
|
||||||
REAL::ttime
|
REAL::ttime
|
||||||
REAL::fc
|
REAL::fc
|
||||||
@ -129,7 +129,7 @@ SUBROUTINE MAIN_UFRN(nriver ,& !
|
|||||||
|
|
||||||
MRIVER = nsect - 1
|
MRIVER = nsect - 1
|
||||||
|
|
||||||
Scanal = 0.0 ! Scanal——河网所有河道的合计长度，用于计算旁侧入流量ql
|
Scanal = 0.0 ! Scanal——河网所有河道的合计长度，用于计算旁侧入流量ql
|
||||||
|
|
||||||
DO I = 1,ndata
|
DO I = 1,ndata
|
||||||
DO J = 1,KRC
|
DO J = 1,KRC
|
||||||
@ -141,15 +141,15 @@ SUBROUTINE MAIN_UFRN(nriver ,& !
|
|||||||
|
|
||||||
DO J = 1,nriver
|
DO J = 1,nriver
|
||||||
DO I = 1,Ns(j)-1
|
DO I = 1,Ns(j)-1
|
||||||
Scanal = Scanal + ds(i,j) ! 每条河道各微段的长度，普通汊点、集中入流微段及调蓄水库的长度取0，每条河道的首末微段长度必须取一个非零值。
|
Scanal = Scanal + ds(i,j) ! 每条河道各微段的长度，普通汊点、集中入流微段及调蓄水库的长度取0，每条河道的首末微段长度必须取一个非零值。
|
||||||
END DO
|
END DO
|
||||||
END DO
|
END DO
|
||||||
|
|
||||||
! 计算时间步长
|
! 计算时间步长
|
||||||
maxtstep=period*3600/dt
|
maxtstep=period*3600/dt
|
||||||
maxiter=1000 ! 仿真模拟步数
|
maxiter=1000 ! 仿真模拟步数
|
||||||
|
|
||||||
! 给河道水位、流量赋初值
|
! 给河道水位、流量赋初值
|
||||||
DO river=1,nriver
|
DO river=1,nriver
|
||||||
DO Is=1,Ns(river)
|
DO Is=1,Ns(river)
|
||||||
Z0(Is,river)=ZZ0
|
Z0(Is,river)=ZZ0
|
||||||
@ -157,9 +157,9 @@ SUBROUTINE MAIN_UFRN(nriver ,& !
|
|||||||
END DO
|
END DO
|
||||||
END DO
|
END DO
|
||||||
|
|
||||||
DO tstep=1,maxtstep ! 步数累加器
|
DO tstep=1,maxtstep ! 步数累加器
|
||||||
|
|
||||||
ttime=dt*tstep/3600.0 ! 真实时刻
|
ttime=dt*tstep/3600.0 ! 真实时刻
|
||||||
|
|
||||||
iter=0
|
iter=0
|
||||||
DO river=1,nriver
|
DO river=1,nriver
|
||||||
@ -169,11 +169,11 @@ SUBROUTINE MAIN_UFRN(nriver ,& !
|
|||||||
END DO
|
END DO
|
||||||
END DO
|
END DO
|
||||||
|
|
||||||
! 计算当前时刻入河流量大小
|
! 计算当前时刻入河流量大小
|
||||||
call int_a( ttime ,& ! 真实时刻 // 输入参数
|
call int_a( ttime ,& ! 真实时刻 // 输入参数
|
||||||
ndata ,& ! 入河流量变化过程时段数
|
ndata ,& ! 入河流量变化过程时段数
|
||||||
Qp ,& ! 入河流量变化过程线
|
Qp ,& ! 入河流量变化过程线
|
||||||
fc ) ! 当前时刻入河流量大小 // 输出参数
|
fc ) ! 当前时刻入河流量大小 // 输出参数
|
||||||
|
|
||||||
ql=fc/Scanal
|
ql=fc/Scanal
|
||||||
|
|
||||||
@ -187,7 +187,7 @@ SUBROUTINE MAIN_UFRN(nriver ,& !
|
|||||||
END DO
|
END DO
|
||||||
|
|
||||||
DO river=1,nriver
|
DO river=1,nriver
|
||||||
! 确定计算时刻河段上下游边界条件值
|
! 确定计算时刻河段上下游边界条件值
|
||||||
call sub_bound( NRIVER ,&
|
call sub_bound( NRIVER ,&
|
||||||
NSECT ,&
|
NSECT ,&
|
||||||
MRIVER ,&
|
MRIVER ,&
|
||||||
@ -226,7 +226,7 @@ SUBROUTINE MAIN_UFRN(nriver ,& !
|
|||||||
condu ,&
|
condu ,&
|
||||||
condd )
|
condd )
|
||||||
|
|
||||||
! 用四点隐格式计算未知时层水位Z和流量Q
|
! 用四点隐格式计算未知时层水位Z和流量Q
|
||||||
call sub_QZ( NRIVER ,&
|
call sub_QZ( NRIVER ,&
|
||||||
NSECT ,&
|
NSECT ,&
|
||||||
MRIVER ,&
|
MRIVER ,&
|
||||||
@ -315,7 +315,7 @@ SUBROUTINE MAIN_UFRN(nriver ,& !
|
|||||||
|
|
||||||
DO river=1,nriver
|
DO river=1,nriver
|
||||||
DO Is=1,Ns(river)
|
DO Is=1,Ns(river)
|
||||||
! 计算断面几何要素
|
! 计算断面几何要素
|
||||||
call sub_sect(NRIVER ,&
|
call sub_sect(NRIVER ,&
|
||||||
NSECT ,&
|
NSECT ,&
|
||||||
MRIVER ,&
|
MRIVER ,&
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user