110 lines
3.1 KiB
Fortran
110 lines
3.1 KiB
Fortran
MODULE alipar_module
|
||
!==============================================================================
|
||
! TLUSTY ALI (Accelerated Lambda Iteration) 方法参数模块
|
||
! 原始文件：ALIPAR.FOR
|
||
!
|
||
! 包含加速 Lambda 迭代方法的参数和数组
|
||
!==============================================================================
|
||
|
||
USE impli_module
|
||
USE basics_module
|
||
USE iterat_module
|
||
IMPLICIT NONE
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - FIXALP (固定 ALI 参数)
|
||
!==========================================================================
|
||
|
||
! 吸收、发射、散射数组
|
||
REAL(dp) :: ABSO(MFREQ)
|
||
REAL(dp) :: EMIS(MFREQ)
|
||
REAL(dp) :: SCAT(MFREQ)
|
||
|
||
! 重新发射相关数组（温度相关）
|
||
REAL(dp) :: REIT(MDEPTH)
|
||
REAL(dp) :: REIN(MDEPTH)
|
||
REAL(dp) :: REIM(MDEPTH)
|
||
REAL(dp) :: REIP(MLVEXP,MDEPTH)
|
||
|
||
! 平均重新发射数组
|
||
REAL(dp) :: AREIT(MDEPTH)
|
||
REAL(dp) :: AREIN(MDEPTH)
|
||
REAL(dp) :: AREIM(MDEPTH)
|
||
REAL(dp) :: AREIP(MLVEXP,MDEPTH)
|
||
|
||
! 校正重新发射数组
|
||
REAL(dp) :: CREIT(MDEPTH)
|
||
REAL(dp) :: CREIN(MDEPTH)
|
||
REAL(dp) :: CREIM(MDEPTH)
|
||
REAL(dp) :: CREIP(MLVEXP,MDEPTH)
|
||
|
||
! 交叉重新发射数组
|
||
REAL(dp) :: REIX(MDEPTH)
|
||
REAL(dp) :: CREIX(MDEPTH)
|
||
|
||
! 重新发射导数数组
|
||
REAL(dp) :: REDX(MDEPTH)
|
||
REAL(dp) :: REDT(MDEPTH)
|
||
REAL(dp) :: REDN(MDEPTH)
|
||
REAL(dp) :: REDM(MDEPTH)
|
||
REAL(dp) :: REDP(MLVEXP,MDEPTH)
|
||
|
||
! 重新发射导数负值数组
|
||
REAL(dp) :: REDXM(MDEPTH)
|
||
REAL(dp) :: REDTM(MDEPTH)
|
||
REAL(dp) :: REDNM(MDEPTH)
|
||
REAL(dp) :: REDMM(MDEPTH)
|
||
REAL(dp) :: REDPM(MLVEXP,MDEPTH)
|
||
|
||
! 重新发射导数正值数组
|
||
REAL(dp) :: REDTP(MDEPTH)
|
||
REAL(dp) :: REDNP(MDEPTH)
|
||
REAL(dp) :: REDXP(MDEPTH)
|
||
REAL(dp) :: REDMP(MDEPTH)
|
||
REAL(dp) :: REDPP(MLVEXP,MDEPTH)
|
||
|
||
! He 重新发射数组
|
||
REAL(dp) :: HEIT(MDEPTH)
|
||
REAL(dp) :: HEIN(MDEPTH)
|
||
REAL(dp) :: HEIM(MDEPTH)
|
||
REAL(dp) :: HEIP(MLVEXP,MDEPTH)
|
||
|
||
! He 重新发射负值数组
|
||
REAL(dp) :: HEITM(MDEPTH)
|
||
REAL(dp) :: HEINM(MDEPTH)
|
||
REAL(dp) :: HEIMM(MDEPTH)
|
||
REAL(dp) :: HEIPM(MLVEXP,MDEPTH)
|
||
|
||
! He 重新发射正值数组
|
||
REAL(dp) :: HEITP(MDEPTH)
|
||
REAL(dp) :: HEINP(MDEPTH)
|
||
REAL(dp) :: HEIMP(MDEPTH)
|
||
REAL(dp) :: HEIPP(MLVEXP,MDEPTH)
|
||
|
||
! 能量相关数组
|
||
REAL(dp) :: EHET(MDEPTH)
|
||
REAL(dp) :: EHEN(MDEPTH)
|
||
REAL(dp) :: ERET(MDEPTH)
|
||
REAL(dp) :: EREN(MDEPTH)
|
||
REAL(dp) :: EHEP(MLVEX3,MDEPTH)
|
||
REAL(dp) :: EREP(MLVEX3,MDEPTH)
|
||
|
||
! APT 相关数组
|
||
REAL(dp) :: APT(MLVEXP,MDEPTH)
|
||
REAL(dp) :: APN(MLVEXP,MDEPTH)
|
||
REAL(dp) :: AAPT(MLVEX3,MDEPTH)
|
||
REAL(dp) :: AAPN(MLVEX3,MDEPTH)
|
||
REAL(dp) :: CAPT(MLVEX3,MDEPTH)
|
||
REAL(dp) :: CAPN(MLVEX3,MDEPTH)
|
||
|
||
! APP 相关数组
|
||
REAL(dp) :: APP(MLVEXP,MLVEXP,MDEPTH)
|
||
REAL(dp) :: AAPP(MLVEX3,MLVEX3,MDEPTH)
|
||
REAL(dp) :: CAPP(MLVEX3,MLVEX3,MDEPTH)
|
||
|
||
! ALI 标志和参数
|
||
REAL(dp) :: QTLAS
|
||
INTEGER :: IFALI,IFPOPR,irprec,ifprec,itold1,itold2,itlas
|
||
|
||
END MODULE alipar_module
|