59 lines
2.6 KiB
Fortran
59 lines
2.6 KiB
Fortran
MODULE modelp_module
|
||
!==============================================================================
|
||
! SYNSPEC 模型参数模块
|
||
! 原始文件：MODELP.FOR
|
||
!
|
||
! 包含模型大气的基本参数
|
||
!==============================================================================
|
||
|
||
USE params_module
|
||
IMPLICIT NONE
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - 模型参数 (MODELP)
|
||
!==========================================================================
|
||
REAL(dp) :: DM(MDEPTH), TEMP(MDEPTH), ELEC(MDEPTH), DENS(MDEPTH)
|
||
REAL(dp) :: ZD(MDEPTH)
|
||
REAL(dp) :: VTURB(MDEPTH), VTB
|
||
REAL(dp) :: ABSTD(MDEPTH), ABSTDW(MFREQC,MDEPTH)
|
||
REAL(dp) :: POPUL(MLEVEL,MDEPTH), POPREL(MLEVEL,MDEPTH)
|
||
REAL(dp) :: DMR0(MDEPTH), DMRP(MDEPTH)
|
||
REAL(dp) :: SBF(MLEVEL)
|
||
REAL(dp) :: USUM(MIOEX)
|
||
REAL(dp) :: WOP(MLEVEL,MDEPTH)
|
||
REAL(dp) :: WNHINT(NLMX,MDEPTH), WNHE2(NLMX,MDEPTH)
|
||
REAL(dp) :: RRR(MDEPTH,MION,MATOM)
|
||
REAL(dp) :: JT(MDEPTH), TI0(MDEPTH), TI1(MDEPTH), TI2(MDEPTH)
|
||
|
||
CHARACTER*8 :: cmol(m molec)
|
||
REAL(dp) :: RRMOL(MMOLEC,MDEPTH), DOPMOL(MMOLEC,MDEPTH)
|
||
REAL(dp) :: AMMOL(MMOLEC)
|
||
REAL(dp) :: anh2(mdepth), anch(mdepth), anoh(mdepth), anhm(mdepth)
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - 原子不透明度 (OPACAT)
|
||
!==========================================================================
|
||
REAL(dp) :: OPATM(MATOM,MFREQ,MDEPTH), EMATM(MATOM,MFREQ,MDEPTH)
|
||
REAL(dp) :: OPATML(MATOM,MFREQ)
|
||
REAL(dp) :: GRADAT(MATOM,MDEPTH), GRADFA(MATOM,MDEPTH)
|
||
REAL(dp) :: POPAT(MATOM,MDEPTH)
|
||
REAL(dp) :: DGRAD0(MATOM,MATOM,MDEPTH), DGRADP(MATOM,MATOM,MDEPTH)
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - 辐射场 (RADFLD)
|
||
!==========================================================================
|
||
REAL(dp) :: RAD(MFREQ,MDEPTH), RAD0(MFREQ,MDEPTH)
|
||
REAL(dp) :: FLX0(MFREQ,MDEPTH), flxt(mdepth), flxi(mdepth)
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - Xenon 谱线轮廓 (XENPRF)
|
||
!==========================================================================
|
||
REAL(dp) :: PRFXB(MLINH,MHWL,MHT,MHE), PRFXR(MLINH,MHWL,MHT,MHE)
|
||
REAL(dp) :: PRFB(MLINH,MDEPTH,MHWL), PRFR(MLINH,MDEPTH,MHWL)
|
||
REAL(dp) :: ALXEN(MLINH,MHWL), XTXEN(MHT,MLINH), XNEXEN(MHE,MLINH)
|
||
REAL(dp) :: XNEMIN
|
||
INTEGER :: NWLXEN(MLINH), NTHXEN(MLINH), NEHXEN(MLINH)
|
||
INTEGER :: ILXEN(4,22), IHXENB
|
||
|
||
END MODULE modelp_module
|