From 76b4c54955749f4b97a63ba3776f7722f3474b24 Mon Sep 17 00:00:00 2001
From: zzx <784670282@qq.com>
Date: Fri, 9 May 2025 17:56:57 +0800
Subject: [PATCH] =?UTF-8?q?=E6=9B=B4=E6=96=B0=20Fortran/SUB=5FBOUND.f90?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Fortran/SUB_BOUND.f90 | 27 +++++++++++++++------------
 1 file changed, 15 insertions(+), 12 deletions(-)

diff --git a/Fortran/SUB_BOUND.f90 b/Fortran/SUB_BOUND.f90
index abc1097..d560bf8 100644
--- a/Fortran/SUB_BOUND.f90
+++ b/Fortran/SUB_BOUND.f90
@@ -1,11 +1,11 @@
 !	==================================================================================
-!	 确定计算时刻河段上下游边界条件值的子程序
+!	 纭畾璁＄畻鏃跺埢娌虫涓婁笅娓歌竟鐣屾潯浠跺�肩殑瀛愮▼搴�
 !	==================================================================================
 !
-!     说明：下游外边界条件都给定一个过程，有ndata个数据点（1小时间隔），水位边界即为水位过程，
-!           流量边界即为流量过程，水位流量关系边界只限挡潮闸情况，给出闸下潮位过程。
-!           河道末端挡潮闸水位流量关系简化成Q=C1*B*e*dZ^C2。Z>Ztide且Z>Zctr时开闸，
-!           否则关闸，Zctr是挡潮闸运行控制水位，保证内河不会过低。
+!     璇存槑锛氫笅娓稿杈圭晫鏉′欢閮界粰瀹氫竴涓繃绋嬶紝鏈塶data涓暟鎹偣锛�1灏忔椂闂撮殧锛夛紝姘翠綅杈圭晫鍗充负姘翠綅杩囩▼锛�
+!           娴侀噺杈圭晫鍗充负娴侀噺杩囩▼锛屾按浣嶆祦閲忓叧绯昏竟鐣屽彧闄愭尅娼椄鎯呭喌锛岀粰鍑洪椄涓嬫疆浣嶈繃绋嬨��
+!           娌抽亾鏈鎸℃疆闂告按浣嶆祦閲忓叧绯荤畝鍖栨垚Q=C1*B*e*dZ^C2銆俍>Ztide涓擹>Zctr鏃跺紑闂革紝
+!           鍚﹀垯鍏抽椄锛孼ctr鏄尅娼椄杩愯鎺у埗姘翠綅锛屼繚璇佸唴娌充笉浼氳繃浣庛��
 !    ----------------------------------------------------------------------------------
 SUBROUTINE SUB_BOUND(	NRIVER				,&
 						NSECT				,&
@@ -57,12 +57,15 @@ SUBROUTINE SUB_BOUND(	NRIVER				,&
     INTEGER::Ns(nriver),Pc(nriver),Nrc(krc,nriver),Lc(krc,nriver)
     REAL::Dric(krc,nriver),Qj(ndata,krc,nriver),Asave(krc,nriver)
     ! boundary
-	INTEGER::UB1(nriver),UB2(nriver),DB1(nriver),DB2(nriver),NUB(2,nriver),NDB(2,nriver)
-    REAL::UBV(ndata,nriver),Aphi(2,nriver),DBV(ndata,nriver),Gate(4,nriver),ql,Zctr
+	INTEGER::UB1(nriver),UB2(nriver),DB1(nriver),DB2(nriver),&
+		NUB(2,nriver),NDB(2,nriver)
+    REAL::UBV(ndata,nriver),Aphi(2,nriver),DBV(ndata,nriver),&
+		Gate(4,nriver),ql,Zctr
     ! calcu
 	REAL::dt,sita,Bsor1,Bsor2
     ! zzqq
-    REAL::Z0(nsect,nriver),Q0(nsect,nriver),Z(nsect,nriver),Q(nsect,nriver),V(nsect,nriver)
+    REAL::Z0(nsect,nriver),Q0(nsect,nriver),Z(nsect,nriver),&
+		Q(nsect,nriver),V(nsect,nriver)
     ! r_bv
 	REAL::condu,condd(3)
     
@@ -72,14 +75,14 @@ SUBROUTINE SUB_BOUND(	NRIVER				,&
 
 	TC=DT*FLOAT(TSTEP)/3600.0
 
-	! 上游边界处理
-	IF(UB2(RIVER).EQ.1)THEN					! 外
+	! 涓婃父杈圭晫澶勭悊
+	IF(UB2(RIVER).EQ.1)THEN					! 澶�
 		DO II=1,NDATA
 			ZQ(II)=UBV(II,RIVER)
 		END DO
 		CALL INT_A(TC,NDATA,ZQ,FC)
 		CONDU=FC
-    ELSEIF(UB2(RIVER).EQ.2)THEN				! 内
+    ELSEIF(UB2(RIVER).EQ.2)THEN				! 鍐�
 		IR=NUB(1,RIVER)
 		IS=NUB(2,RIVER)
 		IF(UB1(RIVER).EQ.1)THEN
@@ -90,7 +93,7 @@ SUBROUTINE SUB_BOUND(	NRIVER				,&
         END IF
 	END IF
 
-	! 下游边界处理
+	! 涓嬫父杈圭晫澶勭悊
 	IF(DB2(RIVER).EQ.1)THEN
 		DO II=1,NDATA
 			ZQ(II)=DBV(II,RIVER)