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

更新 Fortran/XAJMX.f90

Browse Source
This commit is contained in:
zzx 2025-05-09 13:36:55 +08:00
parent c60d8290ab
commit 7835711048
1 changed files with 34 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
Fortran/XAJMX.f90
View File

@ -11,30 +11,31 @@ subroutine XAJMX( N ,&
S ,& S ,&
QRSS0 ,& QRSS0 ,&
QRG0 ,& QRG0 ,&
QR ) QR )&
BIND(C, NAME="XAJMX")
!DEC$ ATTRIBUTES DLLEXPORT::XAJMX !DEC$ ATTRIBUTES DLLEXPORT::XAJMX
IMPLICIT NONE IMPLICIT NONE
INTEGER::N ! 单元出流数组大小 INTEGER::N ! 单元出流数组大小
INTEGER::M ! 无因次单位数组大小 INTEGER::M ! 无因次单位数组大小
REAL::PAR(13) ! 1.上层张力水容量wum 2.下层张力水容量wl 3.深层张力水容量wdm REAL::PAR(13) ! 1.上层张力水容量wum 2.下层张力水容量wl 3.深层张力水容量wdm
! 4.蒸发能力折算系数kc 5.深层蒸发系数c 6.张力水蓄水容量系数b ! 4.蒸发能力折算系数kc 5.深层蒸发系数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::AREA ! 单元面积 REAL::AREA ! 单元面积
REAL::UH(M) ! 无因次单位线 REAL::UH(M) ! 无因次单位线
REAL::DT ! 时段步长 REAL::DT ! 时段步长
REAL::P(N) ! 降雨系列 REAL::P(N) ! 降雨系列
REAL::EP(N) ! 蒸发皿蒸发能力 REAL::EP(N) ! 蒸发皿蒸发能力
REAL::QR(N) ! 单元出流 REAL::QR(N) ! 单元出流
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 ! 初始地下水径流量
INTEGER::I INTEGER::I
INTEGER::YEAR1 INTEGER::YEAR1
@ -45,19 +46,19 @@ subroutine XAJMX( N ,&
INTEGER::ED INTEGER::ED
INTEGER::EH INTEGER::EH
CALL SUB_XAJMX( N ,& ! 单元出流数组大小 //输入变量 CALL SUB_XAJMX( N ,& ! 单元出流数组大小 //输入变量
M ,& ! 无因次单位数组大小 //输入变量 M ,& ! 无因次单位数组大小 //输入变量
PAR ,& ! //输入变量 PAR ,& ! //输入变量
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 ,& ! 初始地下水径流量 //输入变量
QR ) ! 单元出流 //输出变量 QR ) ! 单元出流 //输出变量
end subroutine XAJMX end subroutine XAJMX