- 积分
- 697
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-9-24
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
求助论坛里的大神,小弟在写子程序时,用到下面的子程序会出现run-time error M6203:MATH - exp:OVERFLOW error 的错误,但是小弟怎么也找不到原因,劳烦论坛里的大牛们帮帮小弟,小弟感激不尽啊
SUBROUTINE CAL_THSE(T,P,TD,E,R,THSE)
real :: P,T,TD,E,R,THSE
REAL A,B,TCM,PCM,ECM,lv
CPD=1005.
RD=287.04
if((T < 9999.0).and.(TD < 9999.0).and.(P < 9999.0))then
IF(T.LT.80.AND.TD.LT.80)THEN
TCM=T-(T-TD)*0.976/(0.976-0.000833*(237.3+TD)**2/(273.+TD))
PCM=P*((273.+TCM)/(273.+T))**(CPD/RD)
IF(TCM.GE.0)A=7.5*TCM/(237.3+TCM)
IF(TCM.LT.0)A=9.5*TCM/(265.5+TCM)
ECM=6.112*10.**A
B=(T+273.15)*(1000./(P-E))**(RD/CPD)
lv=2501000.-2368*T
THSE=B*EXP(lv*R/(CPD*(273.15+TCM)))
ELSE
THSE=99999.9
ENDIF
else
THSE=99999.9
endif
END
|
|