3

Fortran/SUB_UNITHYDRO.f90

@@ -19,7 +19,7 @@
     integer :: m,n
     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 :: 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
     real :: Wg,Tg,Qmg
     real :: Pa                              !前期影响雨量
@@ -105,7 +105,7 @@
     
     !计算总的洪水过程线*********************************
     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 subroutine