21 lines
710 B
Fortran
21 lines
710 B
Fortran
MODULE optpar_module
|
||
!==============================================================================
|
||
! SYNSPEC 不透明度参数模块
|
||
! 原始文件：OPTPAR.FOR
|
||
!
|
||
! 包含不透明度表的维度参数
|
||
!==============================================================================
|
||
|
||
USE params_module
|
||
IMPLICIT NONE
|
||
|
||
!==========================================================================
|
||
! 不透明度表参数
|
||
!==========================================================================
|
||
INTEGER, PARAMETER :: MFRTAB = 100000
|
||
INTEGER, PARAMETER :: MTTAB = 20
|
||
INTEGER, PARAMETER :: MRTAB = 20
|
||
REAL*8, PARAMETER :: MSFTAB = 2000000.0
|
||
|
||
END MODULE optpar_module
|