91 lines
4.3 KiB
Fortran
91 lines
4.3 KiB
Fortran
subroutine MSJGMX( FILELEN ,&
|
|
NODE ,& ! 单元出流数组大小 //输入变量
|
|
M ,& ! 无因次单位数组大小 //输入变量
|
|
PAR ,& ! //输入变量
|
|
NAREA ,& ! 单元面积个数 //输入变量
|
|
AREA ,& ! 单元面积 //输入变量
|
|
UH ,& ! 无因次单位线 //输入变量
|
|
DT ,& ! 时段步长 //输入变量
|
|
P ,& ! 降雨系列 //输入变量
|
|
EP ,& ! 蒸发皿蒸发能力 //输入变量
|
|
W ,& ! 土壤含水层 1.上层 2.下层 3.深层 //输入变量
|
|
FR ,& ! 初始产流面积 //输入变量
|
|
S ,& ! 初始自由水深 //输入变量
|
|
QRSS0 ,& ! 初始壤中流流量 //输入变量
|
|
QRG0 ,& ! 初始地下水径流量 //输入变量
|
|
Q20 ,& ! 出流流量初始值 浮点数 //输入
|
|
X ,& ! 流量比重因子 浮点数 //输入参数
|
|
K ,& ! 流量模数 浮点数 //输入参数
|
|
DETAT ,& ! 时间步长 （小时） 浮点数 //输入参数
|
|
C0 ,& ! 系数 浮点数 //输出参数
|
|
C1 ,& ! 浮点数 //输出参数
|
|
C2 ,& ! 浮点数 //输出参数
|
|
QOUT ) ! 出流流量 浮点数 //输出
|
|
|
|
! Expose subroutine MSJGMX to users of this DLL
|
|
|
|
!DEC$ ATTRIBUTES DLLEXPORT::MSJGMX
|
|
|
|
IMPLICIT NONE
|
|
|
|
REAL::X
|
|
REAL::K
|
|
REAL::DETAT
|
|
|
|
REAL::C0
|
|
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
|
|
|
|
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(NAREA)
|
|
|
|
CALL XAJ( FILELEN ,&
|
|
NODE ,& ! 单元出流数组大小 //输入变量
|
|
M ,& ! 无因次单位数组大小 //输入变量
|
|
PAR ,& ! //输入变量
|
|
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
|