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