液体状态方程
初始化
type eos_water procedure(p_water_fcn), pointer, nopass :: p_water contains procedure :: init end type eos_water