misaki/SUB_UNITHYDRO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

3

Browse Source
This commit is contained in:
misaki 2025-04-18 11:16:17 +08:00
parent 0389e4002f
commit 6c1632bc33
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Fortran/SUB_UNITHYDRO.f90
View File

@ -19,7 +19,7 @@
integer :: m,n integer :: m,n
real :: S,Qt(m),q(n),Im,fc,Qf,t,a real :: S,Qt(m),q(n),Im,fc,Qf,t,a
real :: Qsum(m),Qj_sum(m),Qj_t(m),Qj_g(m),Qj_u(m) real :: Qsum(m),Qj_sum(m),Qj_t(m),Qj_g(m),Qj_u(m)
real :: runoff_ut(100,100),runoff_u(100),runoff_g(100),W(100) real :: runoff_ut(100,100),runoff_u(100),runoff_g(100),RUNOFF(100)
integer :: x,y integer :: x,y
real :: Wg,Tg,Qmg real :: Wg,Tg,Qmg
real :: Pa !前期影响雨量 real :: Pa !前期影响雨量
@ -105,7 +105,7 @@
!计算总的洪水过程线********************************* !计算总的洪水过程线*********************************
do i=1,y do i=1,y
W(i)=runoff_u(i)+runoff_g(i)+Qf RUNOFF(i)=runoff_u(i)+runoff_g(i)+Qf
end do end do
end subroutine end subroutine