| Symbol | Description | Uses |
| PS | 10 |
| File | Line number | Procedure | Code |
| ./pkg/aim_v23/phy_shtorh.F | 32 | SHTORH |
_RL TA(NGP), PS(NGP), QSAT(NGP), QA(*), RH(*) |
| ./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 | 6 | SHTORH |
SUBROUTINE SHTORH (IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid) |
| ./pkg/aim_v23/phy_shtorh.F | 92 | SHTORH |
QSAT(J)= QS1*QSAT(J)/( PS(1) - QS2*QSAT(J)) |
| ./pkg/aim_v23/phy_shtorh.F | 96 | SHTORH |
QSAT(J)= QS1*QSAT(J)/(SIG*PS(J)- QS2*QSAT(J)) |