* PACKAGE APCON  !" 共通 標準物理定数セット
*
*"  [HIS] 90/09/26(numaguti)
*
*********************************************************************
      SUBROUTINE PCONST        !" 標準物理定数
*
#ifdef SYS_IBMS
      INCLUDE   (ZCCOM)                      !" 標準物理定数
#else
#include        "zccom.F"                    !" 標準物理定数
#endif
*
*"    COMMON /COMCON/
*     REAL       ER                          !" 地球半径
*     REAL       GRAV                        !" 重力加速度
*     REAL       CP                          !" 大気定圧比熱
*     REAL       RAIR                        !" 大気気体定数
*     REAL       EL                          !" 水の凝結の潜熱
*     REAL       CPVAP                       !" 水蒸気定圧比熱
*     REAL       RVAP                        !" 水蒸気気体定数
*     REAL       DH2O                        !" 水の密度
*     REAL       EPSV                        !" 水と大気の分子量比ε
*     REAL       ES0                         !" ０℃飽和蒸気圧：Ｐａ
*     REAL       STB                         !" Stefan-Boltzman
*     REAL       FKARM                       !" Karman 定数
*     REAL       EPSVT                       !" 1/ε-1
*"    COMMON /COMCON/ end
*
      ER   = 6370.E+3
      GRAV = 9.8
      CP   = 1004.6
      RAIR = 287.04
      EL   = 2.5E+6
      CPVAP= 1810.
      RVAP = 461.
      DH2O = 1000.
      ES0  = 611.
      STB  = 5.67E-8
      FKARM= 0.4
      EPSV = RAIR / RVAP
      EPSVT= 1.0/EPSV - 1.0
*
      RETURN
      END