| 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)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
32 |
BULKF_SH2RH_AIM |
_RL TA(NGP), PS(NGP), QSAT(NGP), QA(*), RH(*) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
64 |
BULKF_SH2RH_AIM |
sigP = PS(1) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
65 |
BULKF_SH2RH_AIM |
IF (SIG.GT.0.0) sigP=SIG*PS(J) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
6 |
BULKF_SH2RH_AIM |
SUBROUTINE BULKF_SH2RH_AIM(IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
92 |
BULKF_SH2RH_AIM |
QSAT(J)= QS1*QSAT(J)/( PS(1) - QS2*QSAT(J)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
96 |
BULKF_SH2RH_AIM |
QSAT(J)= QS1*QSAT(J)/(SIG*PS(J)- QS2*QSAT(J)) |