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

---
 Fortran/XAJMX.f90 | 67 ++++++++++++++++++++++++-----------------------
 1 file changed, 34 insertions(+), 33 deletions(-)

diff --git a/Fortran/XAJMX.f90 b/Fortran/XAJMX.f90
index db06dbf..99c429e 100644
--- a/Fortran/XAJMX.f90
+++ b/Fortran/XAJMX.f90
@@ -11,30 +11,31 @@ subroutine XAJMX(   N		,&
                     S		,&		
                     QRSS0	,&		
                     QRG0	,&		
-                    QR		)
+                    QR		)&
+                    BIND(C, NAME="XAJMX")
 
   !DEC$ ATTRIBUTES DLLEXPORT::XAJMX
     
     IMPLICIT NONE
     
-    INTEGER::N					! 单元出流数组大小
-    INTEGER::M					! 无因次单位数组大小
-    REAL::PAR(13)				! 1.上层张力水容量wum	2.下层张力水容量wl	3.深层张力水容量wdm
-    							! 4.蒸发能力折算系数kc	5.深层蒸发系数c		6.张力水蓄水容量系数b
-    							! 7.不透水面积比率imp1	8.自由水蓄水容量sm	9.自由水蓄水容量指数ex
-    							!10.地下水出流系数kg 11.壤中流出流系数kss	12.地下水出流系数kkg
-    							!13.壤中流出流系数kkss
-    REAL::AREA					! 单元面积
-    REAL::UH(M)		! 无因次单位线
-    REAL::DT					! 时段步长
-    REAL::P(N)		! 降雨系列
-    REAL::EP(N)		! 蒸发皿蒸发能力
-    REAL::QR(N)		! 单元出流
-    REAL::W(3)					! 土壤含水层	1.上层	2.下层	3.深层
-    REAL::FR					! 初始产流面积
-    REAL::S						! 初始自由水深
-    REAL::QRSS0					! 初始壤中流流量
-    REAL::QRG0					! 初始地下水径流量
+    INTEGER::N					! 鍗曞厓鍑烘祦鏁扮粍澶у皬
+    INTEGER::M					! 鏃犲洜娆″崟浣嶆暟缁勫ぇ灏�
+    REAL::PAR(13)				! 1.涓婂眰寮犲姏姘村閲弚um	2.涓嬪眰寮犲姏姘村閲弚l	3.娣卞眰寮犲姏姘村閲弚dm
+    							! 4.钂稿彂鑳藉姏鎶樼畻绯绘暟kc	5.娣卞眰钂稿彂绯绘暟c		6.寮犲姏姘磋搫姘村閲忕郴鏁癰
+    							! 7.涓嶉�忔按闈㈢Н姣旂巼imp1	8.鑷敱姘磋搫姘村閲弒m	9.鑷敱姘磋搫姘村閲忔寚鏁癳x
+    							!10.鍦颁笅姘村嚭娴佺郴鏁発g 11.澹や腑娴佸嚭娴佺郴鏁発ss	12.鍦颁笅姘村嚭娴佺郴鏁発kg
+    							!13.澹や腑娴佸嚭娴佺郴鏁発kss
+    REAL::AREA					! 鍗曞厓闈㈢Н
+    REAL::UH(M)		! 鏃犲洜娆″崟浣嶇嚎
+    REAL::DT					! 鏃舵姝ラ暱
+    REAL::P(N)		! 闄嶉洦绯诲垪
+    REAL::EP(N)		! 钂稿彂鐨胯捀鍙戣兘鍔�
+    REAL::QR(N)		! 鍗曞厓鍑烘祦
+    REAL::W(3)					! 鍦熷￥鍚按灞�	1.涓婂眰	2.涓嬪眰	3.娣卞眰
+    REAL::FR					! 鍒濆浜ф祦闈㈢Н
+    REAL::S						! 鍒濆鑷敱姘存繁
+    REAL::QRSS0					! 鍒濆澹や腑娴佹祦閲�
+    REAL::QRG0					! 鍒濆鍦颁笅姘村緞娴侀噺
 
     INTEGER::I
     INTEGER::YEAR1
@@ -45,19 +46,19 @@ subroutine XAJMX(   N		,&
     INTEGER::ED
     INTEGER::EH
     
-    CALL SUB_XAJMX(	N		,&		! 单元出流数组大小								//输入变量
-				    M		,&		! 无因次单位数组大小							//输入变量
-				    PAR		,&		!												//输入变量
-				    AREA	,&		! 单元面积										//输入变量
-				    UH		,&		! 无因次单位线									//输入变量
-				    DT		,&		! 时段步长										//输入变量
-				    P		,&		! 降雨系列										//输入变量
-				    EP		,&		! 蒸发皿蒸发能力								//输入变量
-				    W		,&		! 土壤含水层	1.上层	2.下层	3.深层			//输入变量
-				    FR		,&		! 初始产流面积									//输入变量
-				    S		,&		! 初始自由水深									//输入变量
-				    QRSS0	,&		! 初始壤中流流量								//输入变量
-				    QRG0	,&		! 初始地下水径流量								//输入变量
-				    QR		)		! 单元出流										//输出变量
+    CALL SUB_XAJMX(	N		,&		! 鍗曞厓鍑烘祦鏁扮粍澶у皬								//杈撳叆鍙橀噺
+				    M		,&		! 鏃犲洜娆″崟浣嶆暟缁勫ぇ灏�							//杈撳叆鍙橀噺
+				    PAR		,&		!												//杈撳叆鍙橀噺
+				    AREA	,&		! 鍗曞厓闈㈢Н										//杈撳叆鍙橀噺
+				    UH		,&		! 鏃犲洜娆″崟浣嶇嚎									//杈撳叆鍙橀噺
+				    DT		,&		! 鏃舵姝ラ暱										//杈撳叆鍙橀噺
+				    P		,&		! 闄嶉洦绯诲垪										//杈撳叆鍙橀噺
+				    EP		,&		! 钂稿彂鐨胯捀鍙戣兘鍔�								//杈撳叆鍙橀噺
+				    W		,&		! 鍦熷￥鍚按灞�	1.涓婂眰	2.涓嬪眰	3.娣卞眰			//杈撳叆鍙橀噺
+				    FR		,&		! 鍒濆浜ф祦闈㈢Н									//杈撳叆鍙橀噺
+				    S		,&		! 鍒濆鑷敱姘存繁									//杈撳叆鍙橀噺
+				    QRSS0	,&		! 鍒濆澹や腑娴佹祦閲�								//杈撳叆鍙橀噺
+				    QRG0	,&		! 鍒濆鍦颁笅姘村緞娴侀噺								//杈撳叆鍙橀噺
+				    QR		)		! 鍗曞厓鍑烘祦										//杈撳嚭鍙橀噺
     
 end subroutine XAJMX