TLUSTY/new/tlusty/modules/modelq_module.f90

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