温度湿度多场耦合Fortran代码

program temp_humidity implicit none real :: T,H,TK,RH !定义变量T，H，TK，RH print*,"Please input the temperature and humidity:" !提示输入温度和湿度 read*,T,H !读取输入的温度和湿度 TK = T + 273.15 !将华氏温度转为开氏温度 RH = H/100*exp(17.625*(T-273.15)/(243.04+T-273.15)) !计算相对湿度 print*, "The temperature in Kelvin is:",TK !打印出开氏温度 print*, "The relative humidity is:",RH !打印出相对湿度 end program temp_humidity