TLUSTY/new/tlusty/modules/array1_module.f90

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