各种湿度（水汽压，比湿，露点，相对湿度）的换算及位温，假相当位温Fortran源代码

renjifei_2005 · 发表于 2017-12-3 17:01:09

挺好的代码

jihe01 · 发表于 2018-5-14 06:17:22

感谢分享！！！

15104562864 · 发表于 2019-11-5 18:30:56

implicit none
real(kind=4),intent(in) :: Tem !K
real(kind=4) :: FCN_SaturationVaporPressure

real(kind=4) :: a,b,c,e1
if (Tem>261) then
      a=17.269388
      b=35.86
      c=6.1078
else
      a=21.874558
      b=7.66
      c=6.1078
end if
      a=17.67
      b=29.65
      c=6.112
e1=a*(Tem-273.16)/(Tem-b)
FCN_SaturationVaporPressure=c*exp(e1)
return

能否把这一部分修改后的重新发一下

yulong0631 · 发表于 2022-6-6 13:59:59

感谢分享！！！

夜未央 · 发表于 2022-8-27 21:36:31

谢谢楼主啊

		自动登录	找回密码
密码			立即注册

[源代码] 各种湿度（水汽压，比湿，露点，相对湿度）的换算及位温，假相当位温Fortran源代码