!================================================================
! 一次元放射平衡大気計算; パラメータモジュール
!
! 97/01/25 小高正嗣
! 97/02/18 小高正嗣; 地表温度を与える版
! 97/02/19 小高正嗣; 湿潤大気へ
!================================================================
MODULE para_module
IMPLICIT NONE
PUBLIC

!--計算パラメータ

	INTEGER,PARAMETER :: zdim = 1001! 鉛直解像度

!--数学パラメータ

	REAL,PARAMETER :: pi = 3.141592	! 円周率

!--物理パラメータ

	REAL,PARAMETER :: sig = 5.67e-8	! ステファン-ボルツマン定数(W/m^2K^4)
!	REAL,PARAMETER :: slp = 1.e+5	! 地表気圧(Pa)
	REAL,PARAMETER :: Ps  = 1.e+5	! 非凝結成分地表気圧(Pa)
	REAL,PARAMETER :: ga  = 9.8	! 重力加速度(m/sec^2)
!	REAL,PARAMETER :: Ts  = 300.	! 地表面温度(K)
	REAL,PARAMETER :: R   = 8.31	! 気体定数(J/mol/K)

	REAL,PARAMETER :: Mr  = 18e-3	! 乾燥大気分子量(kg)
	REAL,PARAMETER :: Rd  = R/Mr	! 乾燥気体定数(質量あたり)(J/kg/K)
	REAL,PARAMETER :: Cpd = 3.5*R 	! 乾燥大気定圧モル比熱(J/mol/K)
	REAL,PARAMETER :: kaid= 0.	! 吸収係数(1/kg.m)
!	REAL,PARAMETER :: kaid= 1.e-4	! 吸収係数(1/kg.m)

	REAL,PARAMETER :: Mv  = 18e-3	! 水蒸気分子量(kg)
	REAL,PARAMETER :: Rv  = R/Mv	! 乾燥気体定数(質量あたり)(J/kg/K)
	REAL,PARAMETER :: Cpv = 4*R	! 水蒸気定圧モル比熱(J/mol/K)
!	REAL,PARAMETER :: kaiv= 0.	! 吸収係数(1/kg.m)
	REAL,PARAMETER :: kaiv= 1.e-2	! 吸収係数(1/kg.m)

	REAL,PARAMETER :: pv00= 1.4e+11	! 飽和蒸気圧曲線係数(Pa)
	REAL,PARAMETER :: ql  = 43655.	! モル当たり潜熱(J/mol)

END MODULE para_module