fmq/TLUSTY
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync: reconcile local changes and modernizations with remote

Browse Source
This commit is contained in:
fmq
2026-07-27 11:12:06 +08:00
parent 4ee085ecde
commit dc659d2e7b
125 changed files with 6338 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
new/tlusty/modules/alipar_module.f90
+109
View File
@@ -0,0 +1,109 @@
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
new/tlusty/modules/array1_module.f90
+191
View File
@@ -0,0 +1,191 @@
MODULE array1_module
!==============================================================================
! TLUSTY 工作数组模块
! 原始文件：ARRAY1.FOR
!
! 包含线性方程组系数矩阵、辐射场数组和导数数组等主要工作数组
!==============================================================================
USE impli_module
USE basics_module
USE iterat_module
USE alipar_module
USE atomic_module
USE modelq_module
USE odfpar_module
IMPLICIT NONE
!==========================================================================
! 公共变量块 - 矩阵数组 (A, B, C, E)
!==========================================================================
REAL(dp) :: A(MTOT,MTOT)
REAL(dp) :: B(MTOT,MTOT)
REAL(dp) :: C(MTOT,MTOT)
REAL(dp) :: E(MTOT,MTOT)
!==========================================================================
! 公共变量块 - 向量数组
!==========================================================================
REAL(dp) :: VECL(MTOT)
REAL(dp) :: Y1(MTOT)
REAL(dp) :: Y2(MTOT)
!==========================================================================
! 公共变量块 - PSI 数组
!==========================================================================
REAL(dp) :: PSI0(MTOT)
REAL(dp) :: PSIM(MTOT)
REAL(dp) :: PSIP(MTOT)
!==========================================================================
! 公共变量块 - 辐射场数组
!==========================================================================
REAL(dp) :: RAD0(MTOT)
REAL(dp) :: RADM(MTOT)
REAL(dp) :: RADP(MTOT)
!==========================================================================
! 公共变量块 - FKM, FK0, FKP
!==========================================================================
REAL(dp) :: FKM(MFREX)
REAL(dp) :: FK0(MFREX)
REAL(dp) :: FKP(MFREX)
!==========================================================================
! 公共变量块 - 吸收系数数组
!==========================================================================
REAL(dp) :: ABSOM(MFREX)
REAL(dp) :: ABSO0(MFREX)
REAL(dp) :: ABSOP(MFREX)
!==========================================================================
! 公共变量块 - 发射系数数组
!==========================================================================
REAL(dp) :: EMISM(MFREX)
REAL(dp) :: EMIS0(MFREX)
REAL(dp) :: EMISP(MFREX)
!==========================================================================
! 公共变量块 - 散射系数数组
!==========================================================================
REAL(dp) :: SCATM(MFREX)
REAL(dp) :: SCAT0(MFREX)
REAL(dp) :: SCATP(MFREX)
!==========================================================================
! 公共变量块 - 吸收导数数组 (温度)
!==========================================================================
REAL(dp) :: DABTM(MFREX)
REAL(dp) :: DABT0(MFREX)
REAL(dp) :: DABTP(MFREX)
!==========================================================================
! 公共变量块 - 发射导数数组 (温度)
!==========================================================================
REAL(dp) :: DEMTM(MFREX)
REAL(dp) :: DEMT0(MFREX)
REAL(dp) :: DEMTP(MFREX)
!==========================================================================
! 公共变量块 - 吸收导数数组 (密度)
!==========================================================================
REAL(dp) :: DABNM(MFREX)
REAL(dp) :: DABN0(MFREX)
REAL(dp) :: DABNP(MFREX)
!==========================================================================
! 公共变量块 - 发射导数数组 (密度)
!==========================================================================
REAL(dp) :: DEMNM(MFREX)
REAL(dp) :: DEMN0(MFREX)
REAL(dp) :: DEMNP(MFREX)
!==========================================================================
! 公共变量块 - 吸收导数数组 (列质量)
!==========================================================================
REAL(dp) :: DABMM(MFREX)
REAL(dp) :: DABM0(MFREX)
REAL(dp) :: DABMP(MFREX)
!==========================================================================
! 公共变量块 - 发射导数数组 (列质量)
!==========================================================================
REAL(dp) :: DEMMM(MFREX)
REAL(dp) :: DEMM0(MFREX)
REAL(dp) :: DEMMP(MFREX)
!==========================================================================
! 公共变量块 - 权重深度数组
!==========================================================================
REAL(dp) :: WDEPM(MFREX)
REAL(dp) :: WDEP0(MFREX)
REAL(dp) :: WDEPP(MFREX)
!==========================================================================
! 公共变量块 - SBF 数组
!==========================================================================
REAL(dp) :: SBFM(MLEVEL)
REAL(dp) :: SBF0(MLEVEL)
REAL(dp) :: SBFP(MLEVEL)
!==========================================================================
! 公共变量块 - HE, RE, REXA 数组
!==========================================================================
REAL(dp) :: HEX(MLEVEL)
REAL(dp) :: REX(MLEVEL)
REAL(dp) :: REXA(MLEVEL)
!==========================================================================
! 公共变量块 - DSBF 数组
!==========================================================================
REAL(dp) :: DSBFM(MLEVEL)
REAL(dp) :: DSBF0(MLEVEL)
REAL(dp) :: DSBFP(MLEVEL)
!==========================================================================
! 公共变量块 - SUMDCH
!==========================================================================
REAL(dp) :: SUMDCH(MLEVEL)
!==========================================================================
! 公共变量块 - DRCH, DRET 数组 (负值)
!==========================================================================
REAL(dp) :: DRCHM(MLEVEL,MFREX)
REAL(dp) :: DRETM(MLEVEL,MFREX)
!==========================================================================
! 公共变量块 - DRCH, DRET 数组 (零阶)
!==========================================================================
REAL(dp) :: DRCH0(MLEVEL,MFREX)
REAL(dp) :: DRET0(MLEVEL,MFREX)
!==========================================================================
! 公共变量块 - DRCH, DRET 数组 (正值)
!==========================================================================
REAL(dp) :: DRCHP(MLEVEL,MFREX)
REAL(dp) :: DRETP(MLEVEL,MFREX)
!==========================================================================
! 公共变量块 - EXPRAD (显式辐射)
!==========================================================================
REAL(dp) :: ABSOEX(MFREX,MDEPTH)
REAL(dp) :: EMISEX(MFREX,MDEPTH)
REAL(dp) :: SCATEX(MFREX,MDEPTH)
REAL(dp) :: DABTEX(MFREX,MDEPTH)
REAL(dp) :: DEMTEX(MFREX,MDEPTH)
REAL(dp) :: DABNEX(MFREX,MDEPTH)
REAL(dp) :: DEMNEX(MFREX,MDEPTH)
REAL(dp) :: DABMEX(MFREX,MDEPTH)
REAL(dp) :: DEMMEX(MFREX,MDEPTH)
REAL(dp) :: DRCHEX(MLVEXP,MFREX,MDEPTH)
REAL(dp) :: DRETEX(MLVEXP,MFREX,MDEPTH)
!==========================================================================
! 公共变量块 - BPOCOM (束缚 - 自由连续谱)
!==========================================================================
REAL(dp) :: ESEMAT(MLEVEL,MLEVEL)
REAL(dp) :: BESE(MLEVEL)
REAL(dp) :: ATT(MLEVEL)
REAL(dp) :: ANN(MLEVEL)
END MODULE array1_module
new/tlusty/modules/atomic_module.f90
+220
View File
@@ -0,0 +1,220 @@
MODULE atomic_module
!==============================================================================
! TLUSTY 原子数据模块
! 原始文件：ATOMIC.FOR
!
! 包含原子、离子、能级和跃迁相关的参数和数据
!==============================================================================
USE impli_module
USE basics_module
IMPLICIT NONE
!==========================================================================
! 辅助参数
!==========================================================================
INTEGER, PARAMETER :: MPAG = MLEVEL/6+1
!==========================================================================
! 字符类型数组
!==========================================================================
CHARACTER*40 :: FIDATA(MION),FIODF1(MION),FIODF2(MION),FIBFCS(MION)
CHARACTER*10 :: TYPLEV(MLEVEL)
CHARACTER*4 :: TYPION(MION)
!==========================================================================
! 公共变量块 - 原子参数 (ATOPAR)
!==========================================================================
REAL(dp) :: AMASS(MATOM)
REAL(dp) :: ABUND(MATOM,MDEPTH)
INTEGER :: NUMAT(MATOM)
INTEGER :: N0A(MATOM)
INTEGER :: NKA(MATOM)
INTEGER :: nref(matom)
INTEGER :: iatex(matom)
INTEGER :: nrefs(matom,mdepth)
INTEGER :: iadop(matom)
INTEGER :: iifix(matom)
INTEGER :: iatref
INTEGER :: modref
!==========================================================================
! 公共变量块 - 原子质量
!==========================================================================
REAL(dp) :: amas(100)
!==========================================================================
! 公共变量块 - 离子参数 (IONPAR)
!==========================================================================
REAL(dp) :: FF(MION)
REAL(dp) :: CHARG2(MION)
INTEGER :: NFIRST(MION)
INTEGER :: NLAST(MION)
INTEGER :: NNEXT(MION)
INTEGER :: IZ(MION)
INTEGER :: IUPSUM(MION)
INTEGER :: ICUP(MION)
INTEGER :: ilte(mion)
INTEGER :: iltion(mion)
!==========================================================================
! 公共变量块 - 能级参数 (LEVPAR)
!==========================================================================
REAL(dp) :: ENION(MLEVEL)
REAL(dp) :: G(MLEVEL)
INTEGER :: NQUANT(MLEVEL)
INTEGER :: IATM(MLEVEL)
INTEGER :: IEL(MLEVEL)
INTEGER :: ILK(MLEVEL)
INTEGER :: ilin(mlevel)
INTEGER :: iltlev(mlevel)
INTEGER :: indlev(mlevel)
INTEGER :: imodl(mlevel)
INTEGER :: iiexp(mlevel)
INTEGER :: iifor(mlevel)
INTEGER :: ipzert(mlevel)
INTEGER :: igzert(mlevel)
INTEGER :: indlgz(mlevel)
INTEGER :: iinonz(mlevel)
INTEGER :: NLVEXP
INTEGER :: NLVFOR
INTEGER :: NLVEXZ
LOGICAL :: LBPFX
!==========================================================================
! 公共变量块 - 跃迁参数 (TRAPAR)
!==========================================================================
REAL(dp) :: FR0(MTRANS)
REAL(dp) :: OSC0(MTRANS)
REAL(dp) :: CPAR(MTRANS)
REAL(dp) :: FRQMX(MTRANS)
REAL(dp) :: FR0PC(MTRANS)
REAL(dp) :: OMECOL(MLEVEL,MLEVEL)
REAL(dp) :: XGRAD
REAL(dp) :: STRL1
REAL(dp) :: STRL2
REAL(dp) :: STRLX
INTEGER :: ILOW(MTRANS)
INTEGER :: IUP(MTRANS)
INTEGER :: INDEXP(MTRANS)
INTEGER :: KFR0(MTRANS)
INTEGER :: KFR1(MTRANS)
INTEGER :: ILUCTR(MTRANS)
INTEGER :: IFC0(MTRANS)
INTEGER :: IFC1(MTRANS)
INTEGER :: IFR0(MTRANS)
INTEGER :: IFR1(MTRANS)
INTEGER :: ITRA(MLEVEL,MLEVEL)
INTEGER :: IPROF(MTRANS)
INTEGER :: ICOL(MTRANS)
INTEGER :: INTMOD(MTRANS)
INTEGER :: ITRCON(MTRANS)
INTEGER :: IDIEL(MTRANS)
INTEGER :: IJTF(MTRANS)
LOGICAL :: LCOMP(MTRANS)
LOGICAL :: LINE(MTRANS)
!==========================================================================
! 公共变量块 - 光子设置 (PHOSET)
!==========================================================================
REAL(dp) :: S0CS(MLEVEL)
REAL(dp) :: ALFCS(MLEVEL)
REAL(dp) :: BETCS(MLEVEL)
REAL(dp) :: GAMCS(MLEVEL)
INTEGER :: IBF(MLEVEL)
!==========================================================================
! 公共变量块 - TOPCS (b-f 截面表)
!==========================================================================
REAL(dp) :: CTOP(MFIT,MCROSS) ! sigma=alog10(sigma/10^-18) of fit point
REAL(dp) :: XTOP(MFIT,MCROSS) ! x = alog10(nu/nu0) of fit point
!==========================================================================
! 公共变量块 - 碰撞率表
!==========================================================================
REAL(dp) :: CTEMP(MXTCOL,MCFIT,MCORAT) ! temperature vs.
REAL(dp) :: CRATE(MXTCOL,MCFIT,MCORAT) ! collisional rates
!==========================================================================
! 公共变量块 - Voigt 参数
!==========================================================================
REAL(dp) :: GAMAR(MVOIGT)
REAL(dp) :: STARK1(MVOIGT)
REAL(dp) :: STARK2(MVOIGT)
REAL(dp) :: STARK3(MVOIGT)
REAL(dp) :: VDWH(MVOIGT)
!==========================================================================
! 公共变量块 - He 碰撞率
!==========================================================================
REAL(dp) :: COLHE1(19,19)
!==========================================================================
! 公共变量块 - 跃迁相关
!==========================================================================
LOGICAL :: LEXP(MTRANS)
LOGICAL :: LALI(MTRANS)
!==========================================================================
! 公共变量块 - 跃迁 ALI
!==========================================================================
INTEGER :: NFFIX
LOGICAL :: IFSUB
LOGICAL :: IFLEV
!==========================================================================
! 公共变量块 - 辅助索引
!==========================================================================
INTEGER :: IATH,IATHE,IELH,IELHM,IELHE1,IELHE2
!==========================================================================
! 公共变量块 - 离子文件
!==========================================================================
CHARACTER*40 :: FIDATA_ARR(MION)
CHARACTER*40 :: FIODF1_ARR(MION)
CHARACTER*40 :: FIODF2_ARR(MION)
CHARACTER*40 :: FIBFCS_ARR(MION)
!==========================================================================
! 公共变量块 - 离子数据
!==========================================================================
INTEGER :: IATI(MION)
INTEGER :: IZI(MION)
INTEGER :: NLEVS(MION)
INTEGER :: NLLIM(MION)
!==========================================================================
! 公共变量块 - 氢振子强度
!==========================================================================
REAL(dp) :: OSH(20,20)
!==========================================================================
! 公共变量块 - 打印参数
!==========================================================================
INTEGER :: NPGPOP
INTEGER :: IIPR(6,MPAG)
!==========================================================================
! 公共变量块 - 表最大值
!==========================================================================
REAL(dp) :: frtabm
!==========================================================================
! 谱线展宽参数
!==========================================================================
INTEGER, PARAMETER :: MTRPRD = 5
!==========================================================================
! 公共变量块 - 展宽参数 (PRDPAR)
!==========================================================================
REAL(dp) :: DOPTR(MTRPRD,MDEPTH)
REAL(dp) :: COHER(MTRPRD,MDEPTH)
REAL(dp) :: PJBAR(MTRPRD,MDEPTH)
REAL(dp) :: RJBAR(MTRPRD,MDEPTH)
REAL(dp) :: XPDIV
INTEGER :: IPRD(MTRANS)
INTEGER :: ITRTOT(MTRPRD)
INTEGER :: NTRPRD
LOGICAL :: IFPRD
END MODULE atomic_module
new/tlusty/modules/basics_module.f90
+206
View File
@@ -0,0 +1,206 @@
MODULE basics_module
!==============================================================================
! TLUSTY 基本参数和常量模块
! 原始文件：BASICS.FOR
!
! 包含数组维度参数、物理常数、数学常数和公共变量块
!==============================================================================
USE impli_module
IMPLICIT NONE
!==========================================================================
! 数组维度参数
!==========================================================================
INTEGER, PARAMETER :: MATOM = 99 ! 最大显式原子数
INTEGER, PARAMETER :: MION = 170 ! 最大显式离子数
INTEGER, PARAMETER :: MLEVEL = 1134 ! 最大显式能级数
INTEGER, PARAMETER :: MLVEXP = 233 ! 最大线性化显式能级数
INTEGER, PARAMETER :: MTRANS = 21000 ! 最大跃迁总数
INTEGER, PARAMETER :: MDEPTH = 100 ! 最大深度点数
INTEGER, PARAMETER :: MFREQ = 135000 ! 最大频率点数
INTEGER, PARAMETER :: MFREQP = 220000 ! 频率工作数组
INTEGER, PARAMETER :: MFREQC = 125000 ! 连续谱最大频率点数
INTEGER, PARAMETER :: MFREX = 54 ! 最大线性化频率数
INTEGER, PARAMETER :: MFREQL = 25798 ! 每条线最大频率数
INTEGER, PARAMETER :: MTOT = 280 ! 最大线性化参数数
INTEGER, PARAMETER :: MMU = 6 ! 最大角度点数
INTEGER, PARAMETER :: MFIT = 357 ! 最大拟合点数 (OP b-f c.s)
INTEGER, PARAMETER :: MITJ = 380 ! 最大重叠跃迁数
INTEGER, PARAMETER :: MMCDW = 26 ! 最大伪连续能级数
INTEGER, PARAMETER :: MMER = 12 ! 最大合并能级数
INTEGER, PARAMETER :: MVOIGT = 8080 ! Voigt 轮廓最大线条数
INTEGER, PARAMETER :: MZZ = 10 ! 占据概率离子最大电荷
INTEGER, PARAMETER :: NLMX = 80 ! 考虑的类氢最高能级
INTEGER, PARAMETER :: MSMX = 1 ! SOLVE 中内存保持的矩阵大小
INTEGER, PARAMETER :: MFREQ1 = MFREQ ! ISPLIN<5 时为 1，否则为 MFREQ
INTEGER, PARAMETER :: MFRTAB = 125000 ! 不透明度表最大频率数
INTEGER, PARAMETER :: MTABT = 21 ! 不透明度表最大温度数
INTEGER, PARAMETER :: MTABR = 19 ! 不透明度表最大密度数
INTEGER, PARAMETER :: MDEPTC = 2 ! 最大深度点数 (Compton)
INTEGER, PARAMETER :: MMUC = 2 ! 最大角度点数 (Compton)
INTEGER, PARAMETER :: MLEVE3 = 1 ! 对角精度为 1，三对角为 MLEVEL
INTEGER, PARAMETER :: MLVEX3 = 1 ! 对角运算为 1，三对角为 MLVEXP
INTEGER, PARAMETER :: MTRAN3 = 1 ! 对角运算为 1，三对角为 MTRANS
INTEGER, PARAMETER :: MCROSS = MLEVEL+5 ! 最大 b-f 截面数
INTEGER, PARAMETER :: MBF = MLEVEL ! 最大 b-f 跃迁数
INTEGER, PARAMETER :: MCFIT = 10 ! 碰撞拟合最大点数
INTEGER, PARAMETER :: MXTCOL = 3 ! 碰撞类型数 (CE, CP, CH)
INTEGER, PARAMETER :: MCORAT = MTRANS ! 最大碰撞激发跃迁数
!==========================================================================
! 物理常数
!==========================================================================
REAL(dp), PARAMETER :: H = 6.6256D-27 ! Planck 常数 h
REAL(dp), PARAMETER :: BOLK = 1.38054D-16 ! Boltzmann 常数 k
REAL(dp), PARAMETER :: HK = 4.79928144D-11 ! h/k
REAL(dp), PARAMETER :: CAS = 2.997925D18 ! 光速 c (A/s)
REAL(dp), PARAMETER :: EH = 2.17853041D-11 ! 氢电离能
REAL(dp), PARAMETER :: BN = 1.4743D-2 ! 2*h/c**3
REAL(dp), PARAMETER :: SIGE = 6.6516D-25 ! Thomson 散射截面
REAL(dp), PARAMETER :: SIG4P = 4.5114062D-6 ! Stefan-Boltzmann 常数/4pi
REAL(dp), PARAMETER :: PI4H = 1.8966D27 ! 4pi/h
REAL(dp), PARAMETER :: PCK = 4.19168946D-10 ! 4pi/c
REAL(dp), PARAMETER :: HMASS = 1.67333D-24 ! 氢原子质量
!==========================================================================
! 数学常数
!==========================================================================
REAL(dp), PARAMETER :: UN = 1.0D0
REAL(dp), PARAMETER :: HALF = 0.5D0
REAL(dp), PARAMETER :: TWO = 2.0D0
!==========================================================================
! 单元编号
!==========================================================================
INTEGER, PARAMETER :: IBUFF = 95
!==========================================================================
! 公共变量块 - 基本数值
!==========================================================================
INTEGER :: NATOM,NION,NLEVEL,NTRANS,ND,NFREQ,NFREQC,NFREQE
INTEGER :: IOPTAB,IDISK,IZSCAL,IDMFIX,IHESO6,IFMOL,IFENTR
INTEGER :: NFREQL,NLEV0,ICOLHN,IOSCOR,ILGDER,IFRYB,IFRSET
INTEGER :: NFREAD,NELSC,NTRANC,IOVER,JALI,IBC,IUBC,INTENS
INTEGER :: IRDER,ILMCOR,IFDIEL,IFALIH,IFTENE,ITNDRE
INTEGER :: ILPSCT,ILASCT,IRTE,IDLTE,IBFINT,INTRPL,ICHANG
INTEGER :: NATOMS,IPSLTE,ISPODF,ITLUCY,NRETC,IFRAYL,IFPRAD
!==========================================================================
! 公共变量块 - 输入参数
!==========================================================================
REAL(dp) :: TEFF,GRAV
REAL(dp) :: YTOT(MDEPTH),WMM(MDEPTH),WMY(MDEPTH)
REAL(dp) :: TMOLIM
REAL(dp) :: xmstar,xmdot,rstar,alpha0,reynum
REAL(dp) :: QGRAV,EDISC,DZETA,RELDST
REAL(dp) :: visc,zeta0,zeta1,dmvisc,fractv
REAL(dp) :: omeg32,wbarm,wbar,alphav,pgas0
REAL(dp) :: bergfc,cutlym,cutbal
INTEGER :: ISPLIN,IRSPLT,ivisc,ibche
LOGICAL :: LTE,LTGREY,LCHC,LRESC
!==========================================================================
! 公共变量块 - 模型关键字
!==========================================================================
INTEGER :: NN,NN0,INHE,INRE,INPC,INSE,INZD,INMP,NDRE,insel
!==========================================================================
! 公共变量块 - 固定密度
!==========================================================================
INTEGER :: IFIXDE
!==========================================================================
! 公共变量块 - 逆积分
!==========================================================================
REAL(dp) :: XI2(NLMX),XI3(NLMX)
!==========================================================================
! 公共变量块 - 运行关键字
!==========================================================================
REAL(dp) :: CHMAX
INTEGER :: ITER,NITER,NITZER,INIT
LOGICAL :: LAC2,LFIN
!==========================================================================
! 公共变量块 - 连续谱关键字
!==========================================================================
REAL(dp) :: HMIX0,crflim
INTEGER :: NCONIT,ICONV,INDL,IPRESS,ITEMP,ICBEG
INTEGER :: itmcor,iconre,ideepc,ndcgap,IDCONZ
!==========================================================================
! 公共变量块 - 不透明度关键字
!==========================================================================
INTEGER :: NCON,IOPHL1,IOPHL2,IPHE2C,IFMOFF
!==========================================================================
! 公共变量块 - 打印开关
!==========================================================================
INTEGER :: IPRINT,IPRING,IPRIND,IPRINP,ICOOLP,ICHCKP
INTEGER :: IPOPAC,IPRINI
!==========================================================================
! 公共变量块 - PSI 限制
!==========================================================================
REAL(dp) :: DPSILG,DPSILT,DPSILN,DPSILD
!==========================================================================
! 公共变量块 - 中心
!==========================================================================
REAL(dp) :: ZND
INTEGER :: IFZ0
!==========================================================================
! 公共变量块 - 附加不透明度参数
!==========================================================================
INTEGER :: IOPADD,IOPHMI,IOPH2P,IOPHEM,IOPCH,IOPOH
INTEGER :: IOPH2M,IOH2H2,IOH2HE,IOH2H,IOHHE
INTEGER :: IOPHLI,IRSCT,IRSCHE,IRSCH2,KEEPOP,IOPOLD
!==========================================================================
! 公共变量块 - 角度
!==========================================================================
REAL(dp) :: AMU(MMU),WTMU(MMU),FMU(MMU)
INTEGER :: NMU
!==========================================================================
! 公共变量块 - Compton 散射
!==========================================================================
REAL(dp) :: amuc(mmuc),wtmuc(mmuc)
REAL(dp) :: amuc1(mmuc),amuc2(mmuc),amuc3(mmuc)
REAL(dp) :: amuj(mmuc),amuk(mmuc),amuh(mmuc),amun(mmuc)
REAL(dp) :: calph(mmuc,mmuc),cbeta(mmuc,mmuc)
REAL(dp) :: cgamm(mmuc,mmuc),RADZER,FRLCOM
REAL(dp) :: SIGEC(MFREQ)
INTEGER :: ijorig(mfreq)
INTEGER :: nmuc
!==========================================================================
! 公共变量块 - Compton 时间
!==========================================================================
INTEGER :: nedd,nsti,islab,ilbc,icompt,icomst,icomde
INTEGER :: icombc,icmdra,knish,itcomp,icomve,icomrt
INTEGER :: ichcoo,icomgr
!==========================================================================
! 公共变量块 - Compton 迭代
!==========================================================================
INTEGER :: ncfor1,ncfor2,nccoup,ncitot,ncfull
!==========================================================================
! 公共变量块 - 平均不透明度系数
!==========================================================================
REAL(dp) :: aconml,bconml,cconml
!==========================================================================
! 公共变量块 - Tau RSS
!==========================================================================
REAL(dp) :: taurs(mdepth)
!==========================================================================
! 公共变量块 - 打印关键字
!==========================================================================
INTEGER :: iprybh,ipelch,ipeldo,ipconf
END MODULE basics_module
new/tlusty/modules/impli_module.f90
+17
View File
@@ -0,0 +1,17 @@
MODULE impli_module
!==============================================================================
! TLUSTY 隐式类型声明模块
! 原始文件：IMPLIC.FOR
!
! 此模块定义双精度类型别名，用于替代原始的 IMPLICIT REAL*8 声明
!==============================================================================
IMPLICIT NONE
! 定义双精度类型别名
INTEGER, PARAMETER :: dp = KIND(1.0D0)
! 定义逻辑类型别名（对应原 LOGICAL*1）
INTEGER, PARAMETER :: log1 = KIND(.TRUE.)
END MODULE impli_module
new/tlusty/modules/iterat_module.f90
+72
View File
@@ -0,0 +1,72 @@
MODULE iterat_module
!==============================================================================
! TLUSTY 迭代控制参数模块
! 原始文件：ITERAT.FOR
!
! 包含迭代相关的参数和公共变量块
!==============================================================================
USE impli_module
IMPLICIT NONE
!==========================================================================
! 迭代参数
!==========================================================================
INTEGER, PARAMETER :: MITER = 200 ! 最大迭代次数
INTEGER, PARAMETER :: MLAMBD = 100 ! Lambda 迭代最大维数
!==========================================================================
! 公共变量块 - Lambda 迭代
!==========================================================================
INTEGER :: NLAMBD
INTEGER :: IFFIX(MITER)
INTEGER :: NETEXP(MITER)
INTEGER :: NETFIX(MITER)
INTEGER :: IETEXP(MITER,MLAMBD)
INTEGER :: IETFIX(MITER,MLAMBD)
INTEGER :: NITLAM(MITER+1)
INTEGER :: IELCOR
!==========================================================================
! 公共变量块 - 矩阵链
!==========================================================================
INTEGER :: INHE0(MITER)
INTEGER :: INRE0(MITER)
INTEGER :: INPC0(MITER)
INTEGER :: INDL0(MITER)
INTEGER :: INSE0(MITER)
INTEGER :: INMP0(MITER)
INTEGER :: NN00(MITER)
INTEGER :: NDRE0(MITER)
LOGICAL :: LCHMAT
LOGICAL :: LIROST
!==========================================================================
! 公共变量块 - 加速参数
!==========================================================================
REAL(dp) :: ORELAX
INTEGER :: ITEK,IACC,IACC0,IACD
INTEGER :: KANT(MITER)
INTEGER :: KSNG
LOGICAL :: LSNG(MTOT)
LOGICAL :: LASO
LOGICAL :: LRES2
!==========================================================================
! 公共变量块 - ALI 加速参数
!==========================================================================
INTEGER :: ILAM,IACPP,IACC0P,IACDP
LOGICAL :: LAC2P
!==========================================================================
! 公共变量块 - Lambda 迭代加速
!==========================================================================
INTEGER :: IACLT,IACLDT
!==========================================================================
! 公共变量块 - 链 AD
!==========================================================================
REAL(dp) :: CHMAXT
INTEGER :: NLAMT,ILDER,IBPOPE
END MODULE iterat_module
new/tlusty/modules/modelq_module.f90
+700
View File
@@ -0,0 +1,700 @@
MODULE modelq_module
!==============================================================================
! TLUSTY 模型物理量和状态变量模块
! 原始文件：MODELQ.FOR
!
! 包含模型参数、能级布居、辐射场等物理量
!==============================================================================
USE impli_module
USE basics_module
USE atomic_module
IMPLICIT NONE
!==========================================================================
! 谱线展宽参数
!==========================================================================
INTEGER, PARAMETER :: MLINH = 78
INTEGER, PARAMETER :: MHT = 7
INTEGER, PARAMETER :: MHE = 20
INTEGER, PARAMETER :: MHWL = 90
INTEGER, PARAMETER :: MFHTAB = 1000
INTEGER, PARAMETER :: MTABTH = 10
INTEGER, PARAMETER :: MTABEH = 10
!==========================================================================
! 类型声明
!==========================================================================
INTEGER*2 :: ITRLIN
REAL*4 :: PRFLIN, BFCS
REAL*8 :: absopac(mtabt,mtabr,mfrtab)
!==========================================================================
! 公共变量块 - 模型参数 (MODPAR)
!==========================================================================
REAL(dp) :: DM(MDEPTH)
REAL(dp) :: TEMP(MDEPTH)
REAL(dp) :: ELEC(MDEPTH)
REAL(dp) :: DENS(MDEPTH)
REAL(dp) :: TOTN(MDEPTH)
REAL(dp) :: ANTO(MDEPTH)
REAL(dp) :: ANMA(MDEPTH)
REAL(dp) :: ANH1(MDEPTH)
REAL(dp) :: ZD(MDEPTH)
REAL(dp) :: HKT1(MDEPTH)
REAL(dp) :: TK1(MDEPTH)
REAL(dp) :: HKT21(MDEPTH)
REAL(dp) :: SQT1(MDEPTH)
REAL(dp) :: TEMP1(MDEPTH)
REAL(dp) :: ELEC1(MDEPTH)
REAL(dp) :: DENS1(MDEPTH)
REAL(dp) :: DENSI(MDEPTH)
REAL(dp) :: DENSIM(MDEPTH)
REAL(dp) :: ELSCAT(MDEPTH)
REAL(dp) :: ALAB(MDEPTH)
REAL(dp) :: DELDM(MDEPTH)
REAL(dp) :: DEDM1
REAL(dp) :: DELDMZ(MDEPTH)
REAL(dp) :: THETAV(MDEPTH)
REAL(dp) :: VISCD(MDEPTH)
REAL(dp) :: DALPMX
REAL(dp) :: XHYD
REAL(dp) :: DMTOT
REAL(dp) :: RRDIL
REAL(dp) :: TEMPBD
REAL(dp) :: ALPTAV
REAL(dp) :: ALPGAV
INTEGER :: NALP
INTEGER :: IBETA
!==========================================================================
! 公共变量块 - 能级布居 (LEVPOP)
!==========================================================================
REAL(dp) :: POPUL(MLEVEL,MDEPTH)
REAL(dp) :: BFAC(MLEVEL,MDEPTH)
REAL(dp) :: POPINV(MLEVEL,MDEPTH)
REAL(dp) :: POPGRP(MLEVEL)
REAL(dp) :: POP(MLEVEL)
REAL(dp) :: SBF(MLEVEL)
REAL(dp) :: DSBF(MLEVEL)
REAL(dp) :: USUM(MION)
!==========================================================================
! 公共变量块 - 布居零级近似
!==========================================================================
REAL(dp) :: POPZER
REAL(dp) :: POPZR2
REAL(dp) :: POPZCH
REAL(dp) :: RPOP0(MLVEXP,MDEPTH)
INTEGER :: IPZERO(MLEVEL,MDEPTH)
INTEGER :: IGZERO(MLVEXP,MDEPTH)
!==========================================================================
! 公共变量块 - CRSWPS
!==========================================================================
REAL(dp) :: CRSW(MDEPTH)
REAL(dp) :: SWPFAC
REAL(dp) :: SWPLIM
REAL(dp) :: SWPINC
INTEGER :: ICRSW
!==========================================================================
! 公共变量块 - WMCOMP
!==========================================================================
REAL(dp) :: WNHINT(NLMX,MDEPTH)
REAL(dp) :: WNHEII(NLMX,MDEPTH)
REAL(dp) :: wop(mlevel,mdepth)
INTEGER :: ifwop(mlevel)
!==========================================================================
! 公共变量块 - REPART
!==========================================================================
REAL(dp) :: REINT(MDEPTH)
REAL(dp) :: REDIF(MDEPTH)
REAL(dp) :: TAUDIV
INTEGER :: IDLST
!==========================================================================
! 公共变量块 - 湍流 (TURBUL)
!==========================================================================
REAL(dp) :: VTURB(MDEPTH)
REAL(dp) :: VTURBS(MDEPTH)
REAL(dp) :: VTB
INTEGER :: IPTURB
!==========================================================================
! 公共变量块 - 能级参考 (LEVREF)
!==========================================================================
REAL(dp) :: SBPSI(MLEVEL,MDEPTH)
REAL(dp) :: SBLPSI(MLEVEL,MDEPTH)
REAL(dp) :: DSBPST(MLEVEL,MDEPTH)
REAL(dp) :: DSBPSN(MLEVEL,MDEPTH)
INTEGER :: ILTREF(MLEVEL,MDEPTH)
INTEGER :: IGUIDE(MLEVEL)
INTEGER :: ILTERF(MLEVEL,MDEPTH)
!==========================================================================
! 公共变量块 - 能级固定 (LEVFIX)
!==========================================================================
REAL(dp) :: PT(MLEVEL,MDEPTH)
REAL(dp) :: PN(MLEVEL,MDEPTH)
REAL(dp) :: PP(MLEVEL,MDEPTH)
!==========================================================================
! 公共变量块 - 能级附加 (LEVADD)
!==========================================================================
REAL(dp) :: USUMS(MION,MDEPTH)
REAL(dp) :: DUSMT(MION,MDEPTH)
REAL(dp) :: DUSMN(MION,MDEPTH)
REAL(dp) :: DIESIG(MION,MDEPTH)
!==========================================================================
! 公共变量块 - 合并参数 (MRGPAR)
!==========================================================================
REAL(dp) :: SGM0(MMER)
REAL(dp) :: FRCH(MMER)
REAL(dp) :: SGEXT1(MMER,MDEPTH)
REAL(dp) :: GMER(MMER,MDEPTH)
REAL(dp) :: SGMSUM(NLMX,MMER,MDEPTH)
REAL(dp) :: SGMSUD(NLMX,MMER,MDEPTH)
REAL(dp) :: SGMG(MMER,MDEPTH)
INTEGER :: IMRG(MLEVEL)
INTEGER :: IIMER(MMER)
!==========================================================================
! 公共变量块 - UPSUMS
!==========================================================================
REAL(dp) :: DUSUMT(MION)
REAL(dp) :: DUSUMN(MION)
!==========================================================================
! 公共变量块 - DWNPAR (向下跃迁参数)
!==========================================================================
REAL(dp) :: ELEC23(MDEPTH)
REAL(dp) :: ACOR(MDEPTH)
REAL(dp) :: Z3(MZZ)
REAL(dp) :: DWC1(MZZ,MDEPTH)
REAL(dp) :: DWC2(MDEPTH)
REAL(dp) :: DWF1(MMCDW,MDEPTH)
INTEGER :: MCDW(MTRANS)
INTEGER :: ITRCDW(MMCDW)
INTEGER :: NCDW
!==========================================================================
! 公共变量块 - OBFPAR
!==========================================================================
INTEGER :: ITRBF(MBF)
!==========================================================================
! 公共变量块 - GFFPAR (Gaunt 因子参数)
!==========================================================================
REAL(dp) :: GF0(MDEPTH)
REAL(dp) :: GF1(MDEPTH)
REAL(dp) :: GF2(MDEPTH)
REAL(dp) :: GF3(MDEPTH)
REAL(dp) :: GF4(MDEPTH)
REAL(dp) :: GF5(MDEPTH)
REAL(dp) :: GF6(MDEPTH)
REAL(dp) :: GF0D(MDEPTH)
REAL(dp) :: GF1D(MDEPTH)
REAL(dp) :: GF2D(MDEPTH)
REAL(dp) :: GF3D(MDEPTH)
REAL(dp) :: GF4D(MDEPTH)
REAL(dp) :: GF5D(MDEPTH)
REAL(dp) :: GF6D(MDEPTH)
REAL(dp) :: DELTT(MDEPTH)
!==========================================================================
! 公共变量块 - OFFPAR
!==========================================================================
REAL(dp) :: SFF3(MION,MDEPTH)
REAL(dp) :: SFF2(MION,MDEPTH)
REAL(dp) :: DSFF(MION,MDEPTH)
REAL(dp) :: CFFN(MDEPTH)
REAL(dp) :: CFFT(MDEPTH)
!==========================================================================
! 公共变量块 - OTRPAR
!==========================================================================
REAL(dp) :: ABTRA(MTRANS,MDEPTH)
REAL(dp) :: EMTRA(MTRANS,MDEPTH)
REAL(dp) :: DEMLT(MTRANS,MDEPTH)
!==========================================================================
! 公共变量块 - CURRNT
!==========================================================================
REAL(dp) :: XKF(MDEPTH)
REAL(dp) :: XKF1(MDEPTH)
REAL(dp) :: XKFB(MDEPTH)
!==========================================================================
! 公共变量块 - CUROPA
!==========================================================================
REAL(dp) :: ABSO1(MDEPTH)
REAL(dp) :: EMIS1(MDEPTH)
REAL(dp) :: SCAT1(MDEPTH)
REAL(dp) :: ABSOT(MDEPTH)
REAL(dp) :: ABSOE1(MFREX)
REAL(dp) :: EMEL1(MDEPTH)
REAL(dp) :: ABSO1L(MDEPTH)
REAL(dp) :: EMIS1L(MDEPTH)
REAL(dp) :: ABSOPR(MDEPTH)
REAL(dp) :: EMISPR(MDEPTH)
!==========================================================================
! 公共变量块 - TOTRAD
!==========================================================================
REAL(dp) :: RAD(MFREQ1,MDEPTH)
REAL(dp) :: FHD(MFREQ)
REAL(dp) :: FAK(MFREQ1,MDEPTH)
REAL(dp) :: RADK(MFREQ1,MDEPTH)
REAL(dp) :: EXTRAD(MFREQ)
REAL(dp) :: EXTINT(MFREQ,MMU)
REAL(dp) :: HEXTRD(MFREQ)
REAL(dp) :: TRAD
REAL(dp) :: WDIL
REAL(dp) :: EXTOT
REAL(dp) :: TSTAR
!==========================================================================
! 公共变量块 - CURRAD
!==========================================================================
REAL(dp) :: RAD1(MDEPTH)
REAL(dp) :: ALI1(MDEPTH)
REAL(dp) :: FAK1(MDEPTH)
REAL(dp) :: radcm(mfreq,mdepth)
REAL(dp) :: RADL(MFREQL,MDEPTH)
REAL(dp) :: ABSALI(MFREQL,MDEPTH)
REAL(dp) :: alih1(mdepth)
!==========================================================================
! 公共变量块 - CURDER
!==========================================================================
REAL(dp) :: DABT1(MDEPTH)
REAL(dp) :: DEMT1(MDEPTH)
REAL(dp) :: DABN1(MDEPTH)
REAL(dp) :: DEMN1(MDEPTH)
REAL(dp) :: DABM1(MDEPTH)
REAL(dp) :: DEMM1(MDEPTH)
REAL(dp) :: DABX1(MDEPTH)
REAL(dp) :: DEMX1(MDEPTH)
REAL(dp) :: DABP1(MLEVEL,MDEPTH)
REAL(dp) :: DEMP1(MLEVEL,MDEPTH)
REAL(dp) :: DRCH1(MLEVEL,MDEPTH)
REAL(dp) :: DRET1(MLEVEL,MDEPTH)
REAL(dp) :: ABSFF(MDEPTH)
REAL(dp) :: DABFT(MDEPTH)
REAL(dp) :: DABFN(MDEPTH)
REAL(dp) :: DSFDT(MDEPTH)
REAL(dp) :: DSFDN(MDEPTH)
REAL(dp) :: DSFDM(MDEPTH)
REAL(dp) :: DSFDP(MLVEXP,MDEPTH)
REAL(dp) :: DSFDTM(MDEPTH)
REAL(dp) :: DSFDNM(MDEPTH)
REAL(dp) :: DSFDPM(MLVEXP,MDEPTH)
REAL(dp) :: DSFDTP(MDEPTH)
REAL(dp) :: DSFDNP(MDEPTH)
REAL(dp) :: DSFDPP(MLVEXP,MDEPTH)
!==========================================================================
! 公共变量块 - CURTRI
!==========================================================================
REAL(dp) :: ALIM1(MDEPTH)
REAL(dp) :: ALIP1(MDEPTH)
!==========================================================================
! 公共变量块 - EXPRAF
!==========================================================================
REAL(dp) :: RADEX(MFREX,MDEPTH)
REAL(dp) :: FAKEX(MFREX,MDEPTH)
!==========================================================================
! 公共变量块 - TOTPRF
!==========================================================================
REAL(dp) :: PRFLIN(MDEPTH,MFREQP)
!==========================================================================
! 公共变量块 - TOTFLX
!==========================================================================
REAL(dp) :: FLTOT(MDEPTH)
REAL(dp) :: FLFIX(MDEPTH)
REAL(dp) :: FLEXP(MDEPTH)
REAL(dp) :: FCOOL(MDEPTH)
REAL(dp) :: FCOOLI(MDEPTH)
REAL(dp) :: FLRD(MDEPTH)
REAL(dp) :: FPRAD(MDEPTH)
REAL(dp) :: GRAD(MDEPTH)
REAL(dp) :: FPRD(MDEPTH)
REAL(dp) :: GRADF(MDEPTH,MFREQ)
!==========================================================================
! 公共变量块 - RRATES
!==========================================================================
REAL(dp) :: RRU(MTRANS,MDEPTH)
REAL(dp) :: RRD(MTRANS,MDEPTH)
REAL(dp) :: DRDT(MTRANS,MDEPTH)
!==========================================================================
! 公共变量块 - RRTOFF
!==========================================================================
REAL(dp) :: RDDP(MTRAN3,MDEPTH)
REAL(dp) :: RDDM(MTRAN3,MDEPTH)
!==========================================================================
! 公共变量块 - CRATES
!==========================================================================
REAL(dp) :: COLRAT(MTRANS,MDEPTH)
REAL(dp) :: COLTAR(MTRANS,MDEPTH)
!==========================================================================
! 公共变量块 - FRQALL
!==========================================================================
REAL(dp) :: FREQ(MFREQ)
REAL(dp) :: W(MFREQ)
REAL(dp) :: PROF(MFREQP)
REAL(dp) :: WCH(MFREQ)
REAL(dp) :: JIK(MFREQ)
INTEGER :: IJX(MFREQ)
INTEGER :: IJBF(MFREQ)
INTEGER :: IFS0
REAL(dp) :: KIJ(MFREQ)
LOGICAL :: LSKIP(MDEPTH,MFREQ)
!==========================================================================
! 公共变量块 - FRQINT
!==========================================================================
REAL(dp) :: FRCMAX
REAL(dp) :: FRCMIN
REAL(dp) :: FRLMAX
REAL(dp) :: FRLMIN
REAL(dp) :: CFRMAX
REAL(dp) :: DFTAIL
REAL(dp) :: TSNU
REAL(dp) :: VTNU
REAL(dp) :: DDNU
REAL(dp) :: CNU1
REAL(dp) :: CNU2
INTEGER :: IELNU
INTEGER :: NFTAIL
!==========================================================================
! 公共变量块 - LINOVR
!==========================================================================
INTEGER :: NITJ(MFREQ)
INTEGER :: IJLIN(MFREQ)
INTEGER*2 :: ITRLIN_ARR(MITJ,MFREQ)
!==========================================================================
! 公共变量块 - LINFRQ
!==========================================================================
INTEGER :: NLINES(MFREQ)
!==========================================================================
! 公共变量块 - PHOEXP
!==========================================================================
REAL(dp) :: AIJBF(MFREQ)
REAL(dp) :: BFCS_ARR(MCROSS,MFREQC)
INTEGER :: IFREQB(MFREQC)
!==========================================================================
! 公共变量块 - FREAUX
!==========================================================================
REAL(dp) :: W0E(MFREQ)
REAL(dp) :: BNUE(MFREQ)
REAL(dp) :: WC(MFREQ)
INTEGER :: IJTC(MTRANS)
INTEGER :: IJALI(MFREQ)
INTEGER :: IJEX(MFREQ)
INTEGER :: IJFR(MFREQ)
!==========================================================================
! 公共变量块 - COMPIF
!==========================================================================
LOGICAL :: LINEXP(MTRANS)
!==========================================================================
! 公共变量块 - SURFAC
!==========================================================================
REAL(dp) :: FLUX(MFREQ)
REAL(dp) :: FH(MFREQ)
REAL(dp) :: Q0(MFREQ)
REAL(dp) :: UU0(MFREQ)
!==========================================================================
! 公共变量块 - FILES
!==========================================================================
REAL(dp) :: PSY0(MTOT,MDEPTH)
REAL(dp) :: PSY1(MTOT,MDEPTH)
REAL(dp) :: PSY2(MTOT,MDEPTH)
REAL(dp) :: PSY3(MTOT,MDEPTH)
!==========================================================================
! 公共变量块 - PRESSR
!==========================================================================
REAL(dp) :: PTOTAL(MDEPTH)
REAL(dp) :: PGS(MDEPTH)
REAL(dp) :: PRADT(MDEPTH)
REAL(dp) :: PRADA(MDEPTH)
!==========================================================================
! 公共变量块 - HEQAUX
!==========================================================================
INTEGER :: PRD0
INTEGER :: IHECOR
!==========================================================================
! 公共变量块 - OPMEAN
!==========================================================================
REAL(dp) :: ABROSD(MDEPTH)
REAL(dp) :: SUMDPL(MDEPTH)
REAL(dp) :: ABPLAD(MDEPTH)
REAL(dp) :: ABPMIN
!==========================================================================
! 公共变量块 - CHARFX
!==========================================================================
REAL(dp) :: QFIX(MDEPTH)
!==========================================================================
! 公共变量块 - WINDBL
!==========================================================================
REAL(dp) :: ALBE(MFREQ)
INTEGER :: IWINBL
!==========================================================================
! 公共变量块 - DFEALI
!==========================================================================
REAL(dp) :: DJMAX
INTEGER :: NTRALI
!==========================================================================
! 公共变量块 - OPACAD
!==========================================================================
REAL(dp) :: ABAD
REAL(dp) :: EMAD
REAL(dp) :: SCAD
REAL(dp) :: DAT
REAL(dp) :: DAN
REAL(dp) :: DET
REAL(dp) :: DEN
REAL(dp) :: DST
REAL(dp) :: DSN
REAL(dp) :: DDN(MLEVEL)
!==========================================================================
! 公共变量块 - MODCON
!==========================================================================
REAL(dp) :: FLXC(MDEPTH)
REAL(dp) :: DELTA(MDEPTH)
!==========================================================================
! 公共变量块 - RESDER
!==========================================================================
REAL(dp) :: RSAT
REAL(dp) :: RSBT
REAL(dp) :: RSAN
REAL(dp) :: RSBN
REAL(dp) :: RSAX(MLEVEL)
REAL(dp) :: RSBX(MLEVEL)
!==========================================================================
! 公共变量块 - GRAYTS
!==========================================================================
REAL(dp) :: TAUROS(MDEPTH)
REAL(dp) :: TAUFLX(MDEPTH)
REAL(dp) :: TAUTHE(MDEPTH)
REAL(dp) :: THETA(MDEPTH)
!==========================================================================
! 公共变量块 - TAURSS
!==========================================================================
REAL(dp) :: TROSS(MDEPTH)
!==========================================================================
! 公共变量块 - TCONST
!==========================================================================
REAL(dp) :: TDISK
INTEGER :: ITCONS
!==========================================================================
! 公共变量块 - HYDADD
!==========================================================================
REAL(dp) :: PHMOL(MDEPTH)
REAL(dp) :: ANEREL
INTEGER :: IHM
INTEGER :: IH2
INTEGER :: IH2P
!==========================================================================
! 公共变量块 - ELDNSP
!==========================================================================
REAL(dp) :: ANP
REAL(dp) :: AHTOT
REAL(dp) :: AHMOL
!==========================================================================
! 公共变量块 - RRVALS
!==========================================================================
REAL(dp) :: RR(99,99)
REAL(dp) :: ABNDD(99,MDEPTH)
REAL(dp) :: ENEV(99,30)
INTEGER :: IONIZ(99)
INTEGER :: IREF
INTEGER :: IREFA
LOGICAL :: LGR(99)
LOGICAL :: LRM(99)
!==========================================================================
! 公共变量块 - STATEP
!==========================================================================
REAL(dp) :: Q
REAL(dp) :: QM
REAL(dp) :: DQT
REAL(dp) :: DQN
REAL(dp) :: DQM
REAL(dp) :: ENER
REAL(dp) :: ENTR
REAL(dp) :: QREF
REAL(dp) :: DQTR
REAL(dp) :: DQNR
REAL(dp) :: PFHYD
!==========================================================================
! 公共变量块 - ODFCHT
!==========================================================================
REAL(dp) :: CHANT(MDEPTH)
!==========================================================================
! 公共变量块 - STRAUX
!==========================================================================
REAL(dp) :: XK0(MLINH)
REAL(dp) :: XK
REAL(dp) :: DBETA
REAL(dp) :: BETAD
REAL(dp) :: ADH
REAL(dp) :: DIVH
!==========================================================================
! 公共变量块 :: STDPAR
!==========================================================================
INTEGER :: ELSTD
INTEGER :: IDSTD
!==========================================================================
! 氢 Stark 加宽表参数
!==========================================================================
REAL(dp) :: PRFHYD(MLINH,MHWL,MHT,MHE)
REAL(dp) :: WLHYD(MLINH,MHWL)
REAL(dp) :: WLH(MHWL,MLINH)
REAL(dp) :: XTLEM(MHT,MLINH)
REAL(dp) :: XNELEM(MHE,MLINH)
INTEGER :: NWLHYD(MLINH)
INTEGER :: NWLH(MLINH)
INTEGER :: NTH(MLINH)
INTEGER :: NEH(MLINH)
INTEGER :: ILINH(4,22)
INTEGER :: IHYDPR
!==========================================================================
! Xenon 相关参数
!==========================================================================
REAL(dp) :: PRFXB(MLINH,MHWL,MHT,MHE)
REAL(dp) :: PRFXR(MLINH,MHWL,MHT,MHE)
REAL(dp) :: ALXEN(MLINH,MHWL)
REAL(dp) :: XTXEN(MHT,MLINH)
REAL(dp) :: XNEXEN(MHE,MLINH)
REAL(dp) :: XNEMIN
INTEGER :: NWLXEN(MLINH)
INTEGER :: NTHXEN(MLINH)
INTEGER :: NEHXEN(MLINH)
INTEGER :: ILXEN(4,22)
INTEGER :: IHXENB
!==========================================================================
! 公共变量块 - LTEGRP
!==========================================================================
REAL(dp) :: TAUFIR
REAL(dp) :: TAULAS
REAL(dp) :: ABROS0
REAL(dp) :: TSURF
REAL(dp) :: ALBAVE
REAL(dp) :: DION0
REAL(dp) :: DM1
REAL(dp) :: ABPLA0
INTEGER :: NNEWD
INTEGER :: NDGREY
INTEGER :: IDGREY
!==========================================================================
! 公共变量块 - COMPTF
!==========================================================================
REAL(dp) :: DLNFR(MFREQ)
REAL(dp) :: BNUS(MFREQ)
REAL(dp) :: CDER10(MFREQ)
REAL(dp) :: CDER1P(MFREQ)
REAL(dp) :: CDER1M(MFREQ)
REAL(dp) :: CDER20(MFREQ)
REAL(dp) :: CDER2P(MFREQ)
REAL(dp) :: CDER2M(MFREQ)
REAL(dp) :: DELJ(MFREQ,MDEPTH)
!==========================================================================
! 公共变量块 - VISPAR
!==========================================================================
REAL(dp) :: TVISC(MDEPTH)
REAL(dp) :: DTVIST(MDEPTH)
REAL(dp) :: DTVISN(MDEPTH)
REAL(dp) :: DTVISR(MDEPTH)
!==========================================================================
! 不透明度表参数
!==========================================================================
REAL(dp) :: FRTB1
REAL(dp) :: FRTB2
REAL(dp) :: RTAB1
REAL(dp) :: RTAB2
REAL(dp) :: TTAB1
REAL(dp) :: TTAB2
INTEGER :: numfreq
INTEGER :: numrho
INTEGER :: numtemp
INTEGER :: numrh(mtabt)
REAL(dp) :: tempvec(mtabt)
REAL(dp) :: rhovec(mtabr)
REAL(dp) :: rhomat(mtabt,mtabr)
REAL(dp) :: frtab(mfrtab)
REAL(dp) :: frtlim
REAL(dp) :: absopac_arr(mtabt,mtabr,mfrtab)
REAL(dp) :: raytab(mtabt,mtabr)
REAL(dp) :: raysc(mdepth)
INTEGER :: ibinop
!==========================================================================
! 氢不透明度表参数
!==========================================================================
REAL(dp) :: hglim
INTEGER :: ihgom
REAL(dp) :: FRGTB1
REAL(dp) :: FRGTB2
REAL(dp) :: EGTAB1
REAL(dp) :: EGTAB2
REAL(dp) :: TGTAB1
REAL(dp) :: TGTAB2
INTEGER :: nugfreq
INTEGER :: nugele
INTEGER :: nugtemp
REAL(dp) :: temvec(mtabth)
REAL(dp) :: elevec(mtabeh)
REAL(dp) :: frgtab(mfhtab)
REAL(dp) :: hydcrs(mtabth,mtabeh,mfhtab)
END MODULE modelq_module
new/tlusty/modules/odfpar_module.f90
+123
View File
@@ -0,0 +1,123 @@
MODULE odfpar_module
!==============================================================================
! TLUSTY ODF (Opacity Distribution Functions) 参数模块
! 原始文件：ODFPAR.FOR
!
! 包含不透明度分布函数相关的参数和数据
!==============================================================================
USE impli_module
USE basics_module
IMPLICIT NONE
!==========================================================================
! ODF 参数
!==========================================================================
INTEGER, PARAMETER :: MFODF = 180 ! ODF 最大频率数
INTEGER, PARAMETER :: MHOD = 3 ! H-ODF 维数
INTEGER, PARAMETER :: MFRO = MFREQL ! ODF 频率范围
INTEGER, PARAMETER :: MDODF = 3 ! ODF 导数维数
INTEGER, PARAMETER :: MKULEV = 7000 ! 最大 Kuler 能级数
INTEGER, PARAMETER :: MLINE = 1140000 ! 最大谱线数
INTEGER, PARAMETER :: MCFE = 7824000 ! 最大碰撞拟合元素数
!==========================================================================
! REAL*4 类型数组
!==========================================================================
REAL*4 :: SIGFE
!==========================================================================
! 公共变量块 - ODFION
!==========================================================================
INTEGER :: INODF1(MION)
INTEGER :: INODF2(MION)
INTEGER :: INBFCS(MION)
INTEGER :: IKOBS(MION)
!==========================================================================
! 公共变量块 - ODFCTR
!==========================================================================
REAL(dp) :: FRODF(MLEVEL)
INTEGER :: NFRODF(MHOD)
INTEGER :: INDODF(MLEVEL)
INTEGER :: JNDODF(MTRANS)
!==========================================================================
! 公共变量块 - ODFFRQ
!==========================================================================
REAL(dp) :: FROS(MFRO,MHOD)
REAL(dp) :: WNUS(MFRO,MHOD)
REAL(dp) :: XDO(3,MHOD)
INTEGER :: KDO(4,MHOD)
!==========================================================================
! 公共变量块 - ODFMOD
!==========================================================================
INTEGER :: I1ODF(MLEVEL)
INTEGER :: I2ODF(MLEVEL)
INTEGER :: NQLODF(MLEVEL)
!==========================================================================
! 公共变量块 - ODFSTK
!==========================================================================
REAL(dp) :: XKIJ(MHOD,NLMX)
REAL(dp) :: WL0(MHOD,NLMX)
REAL(dp) :: FIJ(MHOD,NLMX)
!==========================================================================
! 公共变量块 - SPLCOM
!==========================================================================
REAL*4 :: SIGFE_ARR(MDODF,MCFE)
REAL(dp) :: FRS1
REAL(dp) :: FRS2
REAL(dp) :: DXNU
REAL(dp) :: XJID(MDEPTH)
INTEGER :: JIDI(MDEPTH)
INTEGER :: JIDR(MDODF)
INTEGER :: JIDS
INTEGER :: JIDN
INTEGER :: NFRS1
INTEGER :: NFTT
!==========================================================================
! 公共变量块 - OPALIM
!==========================================================================
INTEGER :: M1FILE(NLMX,MHOD)
INTEGER :: M2FILE(NLMX,MHOD)
INTEGER :: IMERG
!==========================================================================
! 公共变量块 - OPLIMT
!==========================================================================
REAL(dp) :: ALLIM1
REAL(dp) :: ABLIM1
REAL(dp) :: ABLIM2
REAL(dp) :: ABLIM3
!==========================================================================
! 公共变量块 - LEVCOM
!==========================================================================
REAL(dp) :: EMKU(MLEVEL,2)
REAL(dp) :: YMKU(MLEVEL,2)
REAL(dp) :: XEV(MLEVEL,MION)
REAL(dp) :: XOD(MLEVEL,MION)
REAL(dp) :: EU(2*MLEVEL)
INTEGER :: JEN(2*MLEVEL)
REAL(dp) :: EEV(MKULEV)
REAL(dp) :: AEV(MKULEV)
REAL(dp) :: SEV(MKULEV)
REAL(dp) :: WEV(MKULEV)
REAL(dp) :: EOD(MKULEV)
REAL(dp) :: AOD(MKULEV)
REAL(dp) :: SOD(MKULEV)
REAL(dp) :: WOD(MKULEV)
INTEGER :: KSEV(MKULEV)
INTEGER :: KSOD(MKULEV)
INTEGER :: NEVKU(MION)
INTEGER :: NODKU(MION)
INTEGER :: NLEVKU
INTEGER :: NLINKU
INTEGER :: KEVE
INTEGER :: KODD
END MODULE odfpar_module