| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_shtorh.F |
44 |
SHTORH |
_RL sigP, recT, tmpQ |
|
./pkg/aim_v23/phy_shtorh.F |
64 |
SHTORH |
sigP = PS(1) |
|
./pkg/aim_v23/phy_shtorh.F |
65 |
SHTORH |
IF (SIG.GT.0.0) sigP=SIG*PS(J) |
|
./pkg/aim_v23/phy_shtorh.F |
68 |
SHTORH |
QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ) |
|
./pkg/aim_v23/phy_shtorh.F |
70 |
SHTORH |
RH(J) = QSAT(J)*C1*(T0-T1)*recT*recT*sigP/(sigP-QS2*tmpQ) |
|
./pkg/aim_v23/phy_shtorh.F |
73 |
SHTORH |
QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ) |
|
./pkg/aim_v23/phy_shtorh.F |
75 |
SHTORH |
RH(J) = QSAT(J)*C2*(T0-T2)*recT*recT*sigP/(sigP-QS2*tmpQ) |