程序调试求助！！！

necrohan

主程序里面
common/infiltration/OF1,OF2,OF3,W,H,PATM,To
solar.for里面
common/infiltration/Cd,density,OF1,OF2,OF3,W,H,PATM,To,Ta,Hn1,Hn2,
这2个是没对上吧。而且OF1，OF2，OF3始终为0。

PI=3.1316 这个赋值是对的吗

Fai_0, Fsg_h, SF 赋值可能有问题。

H在程序里作为循环变量，还在 common/infiltration/ 中引用，可能有问题

QFREEZER=810
if(QFREEZER.GT.77.5)QFREEZER=77.5 ! 我没办法理解