From 229026c45396386679a1f453af401e5a50f38b1a Mon Sep 17 00:00:00 2001
From: zzx <784670282@qq.com>
Date: Mon, 12 May 2025 09:34:36 +0800
Subject: [PATCH] =?UTF-8?q?=E6=9B=B4=E6=96=B0=20Fortran/SUB=5FSHUILIANGJIS?=
 =?UTF-8?q?UAN.f90?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Fortran/SUB_SHUILIANGJISUAN.f90 | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/Fortran/SUB_SHUILIANGJISUAN.f90 b/Fortran/SUB_SHUILIANGJISUAN.f90
index 29ce832..ea47645 100644
--- a/Fortran/SUB_SHUILIANGJISUAN.f90
+++ b/Fortran/SUB_SHUILIANGJISUAN.f90
@@ -253,15 +253,13 @@ INTEGER::FHD
 	!DO i=1,nriver					
 	!	if(DB2(i).eq.1)then						! 下游外部
 	!		if(DB1(i).eq.3)then						! 如果是闸下潮位过程
-	!			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）
+	!			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）
  !           ELSE
  !               read(1,*)II,II,II,(DBV(j,i),j=1,ndata)									! 读入下游外边界断面处的水位，或流量，或闸下潮位过程
  !           end if
 	!	elseif(DB2(i).eq.2)then					! 下游内部		
 	!		if(DB1(i).eq.2)then			
-	!			read(1,*)II,II,II,(NDB(j,i),j=1,2),&
-					(Aphi(j,i),j=1,2)		! 下游流量内边界（管涵）的过流断面面积、流速系数       下游内边界一般用水位，如果用流量，一般是管涵，需要提供过流面积和流速系数
+	!			read(1,*)II,II,II,(NDB(j,i),j=1,2),(Aphi(j,i),j=1,2)		! 下游流量内边界（管涵）的过流断面面积、流速系数       下游内边界一般用水位，如果用流量，一般是管涵，需要提供过流面积和流速系数
  !           ELSE
  !               read(1,*)II,II,II,(NDB(j,i),j=1,2)							! 读入下游内边界断面所连接的河道编号、微段编号	
  !           end if