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