124 lines
4.5 KiB
Fortran
124 lines
4.5 KiB
Fortran
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
|