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