58 lines
2.5 KiB
Fortran
58 lines
2.5 KiB
Fortran
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
|