MODULE wincom_module
!==============================================================================
! SYNSPEC 窗口通用变量模块
! 原始文件：WINCOM.FOR
! 
! 包含角度、半径和扩展模型参数
!==============================================================================

    USE params_module
    IMPLICIT NONE
    
    !==========================================================================
    ! 窗口参数
    !==========================================================================
    INTEGER, PARAMETER :: MRCORE = 20
    INTEGER, PARAMETER :: MKU = MDEPTH + MRCORE
    INTEGER, PARAMETER :: MEXT = MKU
    
    !==========================================================================
    ! 公共变量块 - 角度 (COMANG)
    !==========================================================================
    REAL(dp) :: BMU(MKU,MDEPTH), WMUJ(MKU,MDEPTH), WMUH(MKU)
    
    !==========================================================================
    ! 公共变量块 - 共动半径 (CORADI)
    !==========================================================================
    REAL(dp) :: RD(MDEPTH), RCORE, RFNORM, PIM(MKU)
    REAL(dp) :: RAD1(MDEPTH), DELZ(MKU,MDEPTH)
    REAL(dp) :: NUD(MKU), NUDF(MKU)
    INTEGER :: KMU, NREXT, NRCORE, NFIRY, NDF
    
    !==========================================================================
    ! 公共变量块 - 共动频率 (CORAF)
    !==========================================================================
    REAL(dp) :: DELZF(MEXT,MDEPF), DFRQF(MEXT,2*MDEPF)
    
    !==========================================================================
    ! 公共变量块 - 共动速度 (COVEL)
    !==========================================================================
    REAL(dp) :: VEL(MDEPTH), DFRQ(MKU,2*MDEPTH), DVD(MDEPTH)
    REAL(dp) :: XMDOT, XMD4, BETAV, VINF
    
    !==========================================================================
    ! 公共变量块 - 扩展模型 (EXTMOD)
    !==========================================================================
    REAL(dp) :: FFQ(MOPAC), FFQV(MOPAC), RDF(MDEPF)
    REAL(dp) :: DENSF(MDEPF), VELF(MEXT,MDEPF)
    REAL(dp) :: DRAY(MEXT,2*MDEPF), KRAY(MEXT,2*MDEPF)
    INTEGER :: NOPAC
    
    !==========================================================================
    ! 公共变量块 - 不透明度平均 (OPAVEL)
    !==========================================================================
    REAL(dp) :: WDIL(MDEPTH), PLANW(MDEPTH)
    REAL(dp) :: TRAD(MTRAD,MDEPTH), DENSCON(MDEPTH)
    
END MODULE wincom_module