55, real,parameter :: r3sub limation =21.875 ... 63 ! psat = Pref_solid_liquid*Exp(r3sub*(Tmin-T_h2O_ice_liq)/(Tmin-Trefsub )) ! min psat.
確定! 回上一頁