103 lines
4.3 KiB
Fortran
103 lines
4.3 KiB
Fortran
subroutine XAJMX( N ,& ! 单元出流数组大小 //输入变量
|
|
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 //输入变量
|
|
AREA ,& ! 单元面积 //输入变量
|
|
UH ,& ! 无因次单位线 //输入变量
|
|
DT ,& ! 时段步长 //输入变量
|
|
P ,& ! 降雨系列 //输入变量
|
|
EP ,& ! 蒸发皿蒸发能力 //输入变量
|
|
W ,& ! 土壤含水层 1.上层 2.下层 3.深层 //输入变量
|
|
FR ,& ! 初始产流面积 //输入变量
|
|
S ,& ! 初始自由水深 //输入变量
|
|
QRSS0 ,& ! 初始壤中流流量 //输入变量
|
|
QRG0 ,& ! 初始地下水径流量 //输入变量
|
|
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 ! 初始地下水径流量
|
|
|
|
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::I
|
|
INTEGER::YEAR1
|
|
INTEGER::IM
|
|
INTEGER::ID
|
|
INTEGER::IH
|
|
INTEGER::EM1
|
|
INTEGER::ED
|
|
INTEGER::EH
|
|
|
|
CALL SUB_XAJMX( N ,& ! 单元出流数组大小 //输入变量
|
|
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 //输入变量
|
|
AREA ,& ! 单元面积 //输入变量
|
|
UH ,& ! 无因次单位线 //输入变量
|
|
DT ,& ! 时段步长 //输入变量
|
|
P ,& ! 降雨系列 //输入变量
|
|
EP ,& ! 蒸发皿蒸发能力 //输入变量
|
|
W ,& ! 土壤含水层 1.上层 2.下层 3.深层 //输入变量
|
|
FR ,& ! 初始产流面积 //输入变量
|
|
S ,& ! 初始自由水深 //输入变量
|
|
QRSS0 ,& ! 初始壤中流流量 //输入变量
|
|
QRG0 ,& ! 初始地下水径流量 //输入变量
|
|
QR ) ! 单元出流 //输出变量
|
|
|
|
end subroutine XAJMX
|