Symbol Description Uses
sigP 18


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)
./pkg/bulk_force/bulkf_sh2rh_aim.F 44 BULKF_SH2RH_AIM 
      _RL sigP, recT, tmpQ
./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 68 BULKF_SH2RH_AIM 
          QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ)
./pkg/bulk_force/bulkf_sh2rh_aim.F 70 BULKF_SH2RH_AIM 
          RH(J)  = QSAT(J)*C1*(T0-T1)*recT*recT*sigP/(sigP-QS2*tmpQ)
./pkg/bulk_force/bulkf_sh2rh_aim.F 73 BULKF_SH2RH_AIM 
          QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ)
./pkg/bulk_force/bulkf_sh2rh_aim.F 75 BULKF_SH2RH_AIM 
          RH(J)  = QSAT(J)*C2*(T0-T2)*recT*recT*sigP/(sigP-QS2*tmpQ)