zzx/MSJGMX
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

更新 Fortran/MSJGMX.f90

Browse Source
This commit is contained in:
zzx 2025-06-12 15:12:01 +08:00
parent b7ec29ddd1
commit 29d624d6e4
1 changed files with 97 additions and 99 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

196
Fortran/MSJGMX.f90
View File

@ -1,38 +1,38 @@
subroutine MSJGMX( FILELEN ,&
NODE ,& ! 单元出流数组大小 //输入变量
M ,& ! 无因次单位数组大小 //输入变量
WUM ,& ! 上层张力水容量wum //输入变量
W1 ,& ! 下层张力水容量wl //输入变量
WDM ,& ! 深层张力水容量wdm //输入变量
KC ,& !蒸发能力折算系数KC //输入变量
C ,& !深层蒸发系数c //输入变量
B ,& !张力水蓄水容量系数b //输入变量
IMP1 ,& !不透水面积比率imp1 //输入变量
SM ,& !自由水蓄水容量sm //输入变量
EX ,& !自由水蓄水容量指数ex //输入变量
KG ,& !地下水出流系数kg //输入变量
KSS ,& !壤中流出流系数kss //输入变量
KKG ,& !地下水出流系数kkg //输入变量
KKSS ,& !壤中流出流系数kkss //输入变量
NAREA ,& ! 单元面积个数 //输入变量
AREA ,& ! 单元面积 //输入变量
UH ,& ! 无因次单位线 //输入变量
DT ,& ! 时段步长 //输入变量
P ,& ! 降雨系列 //输入变量
EP ,& ! 蒸发皿蒸发能力 //输入变量
W ,& ! 土壤含水层 1.上层 2.下层 3.深层 //输入变量
FR ,& ! 初始产流面积 //输入变量
S ,& ! 初始自由水深 //输入变量
QRSS0 ,& ! 初始壤中流流量 //输入变量
QRG0 ,& ! 初始地下水径流量 //输入变量
Q20 ,& ! 出流流量初始值 浮点数 //输入
X ,& ! 流量比重因子 浮点数 //输入参数
K ,& ! 流量模数 浮点数 //输入参数
DETAT ,& ! 时间步长 （小时） 浮点数 //输入参数
C0 ,& ! 系数 浮点数 //输出参数
C1 ,& ! 浮点数 //输出参数
C2 ,& ! 浮点数 //输出参数
QOUT )& ! 出流流量 浮点数 //输出
NODE ,& ! 单元出流数组大小 //输入变量
M ,& ! 无因次单位数组大小 //输入变量
WUM ,& ! 上层张力水容量wum //输入变量
W1 ,& ! 下层张力水容量wl //输入变量
WDM ,& ! 深层张力水容量wdm //输入变量
KC ,& !蒸发能力折算系数KC //输入变量
C ,& !深层蒸发系数c //输入变量
B ,& !张力水蓄水容量系数b //输入变量
IMP1 ,& !不透水面积比率imp1 //输入变量
SM ,& !自由水蓄水容量sm //输入变量
EX ,& !自由水蓄水容量指数ex //输入变量
KG ,& !地下水出流系数kg //输入变量
KSS ,& !壤中流出流系数kss //输入变量
KKG ,& !地下水出流系数kkg //输入变量
KKSS ,& !壤中流出流系数kkss //输入变量
NAREA ,& ! 单元面积个数 //输入变量
AREA ,& ! 单元面积 //输入变量
UH ,& ! 无因次单位线 //输入变量
DT ,& ! 时段步长 //输入变量
P ,& ! 降雨系列 //输入变量
EP ,& ! 蒸发皿蒸发能力 //输入变量
W ,& ! 土壤含水层 1.上层 2.下层 3.深层 //输入变量
FR ,& ! 初始产流面积 //输入变量
S ,& ! 初始自由水深 //输入变量
QRSS0 ,& ! 初始壤中流流量 //输入变量
QRG0 ,& ! 初始地下水径流量 //输入变量
Q20 ,& ! 出流流量初始值 浮点数 //输入
X ,& ! 流量比重因子 浮点数 //输入参数
K ,& ! 流量模数 浮点数 //输入参数
DETAT ,& ! 时间步长 （小时） 浮点数 //输入参数
C0 ,& ! 系数 浮点数 //输出参数
C1 ,& ! 浮点数 //输出参数
C2 ,& ! 浮点数 //输出参数
QOUT )& ! 出流流量 浮点数 //输出
BIND(C, NAME="MSJGMX")
! Expose subroutine MSJGMX to users of this DLL
@ -48,81 +48,79 @@ subroutine MSJGMX( FILELEN ,&
REAL::C1
REAL::C2
REAL::Q2(1000)
INTEGER::NFILENAME
CHARACTER(LEN = 10)::FILENAME
INTEGER:: FILELEN
INTEGER::NODE !
INTEGER::M , I !
REAL::PAR(13) ! 1.上层张力水容量wum 2.下层张力水容量wl 3.深层张力水容量wdm
! 4.蒸发能力折算系数KC.深层蒸发系数c 6.张力水蓄水容量系数b
! 7.不透水面积比率imp1 8.自由水蓄水容量sm 9.自由水蓄水容量指数ex
!10.地下水出流系数kg 11.壤中流出流系数kss 12.地下水出流系数kkg
!13.壤中流出流系数kkss
REAL::PAR(13) ! 1.上层张力水容量wum 2.下层张力水容量wl 3.深层张力水容量wdm
! 4.蒸发能力折算系数KC.深层蒸发系数c 6.张力水蓄水容量系数b
! 7.不透水面积比率imp1 8.自由水蓄水容量sm 9.自由水蓄水容量指数ex
!10.地下水出流系数kg 11.壤中流出流系数kss 12.地下水出流系数kkg
!13.壤中流出流系数kkss
REAL::WUM !上层张力水容量wum
REAL::W1 !下层张力水容量wl
REAL::WDM ! 深层张力水容量wdm
REAL::KC ! 蒸发能力折算系数
REAL::C ! 深层蒸发系数
REAL::B ! 张力水蓄水容量系数
REAL::IMP1 ! 不透水面积比率
REAL::SM ! 自由水蓄水容量
REAL::EX ! 自由水蓄水容量指数
REAL::KG ! 地下水出流系数
REAL::KSS ! 壤中流出流系数
REAL::KKG ! 地下水出流系数
REAL::KKSS ! 壤中流出流系数
REAL::WUM !上层张力水容量wum
REAL::W1 !下层张力水容量wl
REAL::WDM ! 深层张力水容量wdm
REAL::KC ! 蒸发能力折算系数
REAL::C ! 深层蒸发系数
REAL::B ! 张力水蓄水容量系数
REAL::IMP1 ! 不透水面积比率
REAL::SM ! 自由水蓄水容量
REAL::EX ! 自由水蓄水容量指数
REAL::KG ! 地下水出流系数
REAL::KSS ! 壤中流出流系数
REAL::KKG ! 地下水出流系数
REAL::KKSS ! 壤中流出流系数
INTEGER::NAREA ! 单元面积个数
REAL::AREA(NAREA) ! 单元面积
REAL::UH(M) ! 无因次单位线
REAL::DT ! 时段步长
REAL::P(NAREA,NODE) ! 降雨系列
REAL::EP(NAREA,NODE) ! 蒸发皿蒸发能力
REAL::W(3) ! 土壤含水层 1.上层 2.下层 3.深层
REAL::FR ! 初始产流面积
REAL::S ! 初始自由水深
REAL::QRSS0 ! 初始壤中流流量
REAL::QRG0 ! 初始地下水径流量
INTEGER::NAREA ! 单元面积个数
REAL::AREA(NAREA) ! 单元面积
REAL::UH(M) ! 无因次单位线
REAL::DT ! 时段步长
REAL::P(NAREA,NODE) ! 降雨系列
REAL::EP(NAREA,NODE) ! 蒸发皿蒸发能力
REAL::W(3) ! 土壤含水层 1.上层 2.下层 3.深层
REAL::FR ! 初始产流面积
REAL::S ! 初始自由水深
REAL::QRSS0 ! 初始壤中流流量
REAL::QRG0 ! 初始地下水径流量
REAL::Q20(NAREA)
REAL::QOUT(NODE)
CALL XAJ( FILELEN ,&
NODE ,& ! 单元出流数组大小 //输入变量
M ,& ! 无因次单位数组大小 //输入变量
WUM ,& ! 上层张力水容量wum //输入变量
W1 ,& ! 下层张力水容量wl //输入变量
WDM ,& ! 深层张力水容量wdm //输入变量
KC ,& !蒸发能力折算系数KC //输入变量
C ,& !深层蒸发系数c //输入变量
B ,& !张力水蓄水容量系数b //输入变量
IMP1 ,& !不透水面积比率imp1 //输入变量
SM ,& !自由水蓄水容量sm //输入变量
EX ,& !自由水蓄水容量指数ex //输入变量
KG ,& !地下水出流系数kg //输入变量
KSS ,& !壤中流出流系数kss //输入变量
KKG ,& !地下水出流系数kkg //输入变量
KKSS ,& !壤中流出流系数kkss //输入变量
NAREA ,& ! 单元面积个数 //输入变量
AREA ,& ! 单元面积 //输入变量
UH ,& ! 无因次单位线 //输入变量
DT ,& ! 时段步长 //输入变量
P ,& ! 降雨系列 //输入变量
EP ,& ! 蒸发皿蒸发能力 //输入变量
W ,& ! 土壤含水层 1.上层 2.下层 3.深层 //输入变量
FR ,& ! 初始产流面积 //输入变量
S ,& ! 初始自由水深 //输入变量
QRSS0 ,& ! 初始壤中流流量 //输入变量
QRG0 ,& ! 初始地下水径流量 //输入变量
Q20 ,& ! 出流流量初始值 浮点数 //输入
X ,& ! 流量比重因子 浮点数 //输入参数
K ,& ! 流量模数 浮点数 //输入参数
DETAT ,& ! 时间步长 （小时） 浮点数 //输入参数
C0 ,& ! 系数 浮点数 //输出参数
C1 ,& ! 浮点数 //输出参数
C2 ,& ! 浮点数 //输出参数
QOUT ) ! 出流流量 浮点数 //输出
NODE ,& ! 单元出流数组大小 //输入变量
M ,& ! 无因次单位数组大小 //输入变量
WUM ,& ! 上层张力水容量wum //输入变量
W1 ,& ! 下层张力水容量wl //输入变量
WDM ,& ! 深层张力水容量wdm //输入变量
KC ,& !蒸发能力折算系数KC //输入变量
C ,& !深层蒸发系数c //输入变量
B ,& !张力水蓄水容量系数b //输入变量
IMP1 ,& !不透水面积比率imp1 //输入变量
SM ,& !自由水蓄水容量sm //输入变量
EX ,& !自由水蓄水容量指数ex //输入变量
KG ,& !地下水出流系数kg //输入变量
KSS ,& !壤中流出流系数kss //输入变量
KKG ,& !地下水出流系数kkg //输入变量
KKSS ,& !壤中流出流系数kkss //输入变量
NAREA ,& ! 单元面积个数 //输入变量
AREA ,& ! 单元面积 //输入变量
UH ,& ! 无因次单位线 //输入变量
DT ,& ! 时段步长 //输入变量
P ,& ! 降雨系列 //输入变量
EP ,& ! 蒸发皿蒸发能力 //输入变量
W ,& ! 土壤含水层 1.上层 2.下层 3.深层 //输入变量
FR ,& ! 初始产流面积 //输入变量
S ,& ! 初始自由水深 //输入变量
QRSS0 ,& ! 初始壤中流流量 //输入变量
QRG0 ,& ! 初始地下水径流量 //输入变量
Q20 ,& ! 出流流量初始值 浮点数 //输入
X ,& ! 流量比重因子 浮点数 //输入参数
K ,& ! 流量模数 浮点数 //输入参数
DETAT ,& ! 时间步长 （小时） 浮点数 //输入参数
C0 ,& ! 系数 浮点数 //输出参数
C1 ,& ! 浮点数 //输出参数
C2 ,& ! 浮点数 //输出参数
QOUT ) ! 出流流量 浮点数 //输出
end subroutine MSJGMX