| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_vdifsc.F |
139 |
VDIFSC |
DRH = RH(J,Ktmp)-RH(J,NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
148 |
VDIFSC |
IF (DRH.GE.0.0) THEN |
|
./pkg/aim_v23/phy_vdifsc.F |
149 |
VDIFSC |
FLUXQ = FSHCQ*QSAT(J,Ktmp)*DRH |
|
./pkg/aim_v23/phy_vdifsc.F |
154 |
VDIFSC |
ELSE IF (DRH.GE.DRH0) THEN |
|
./pkg/aim_v23/phy_vdifsc.F |
157 |
VDIFSC |
FLUXQ = QSAT(J,NL1)*DRH*CVDI(J)/TRVDI |
|
./pkg/aim_v23/phy_vdifsc.F |
174 |
VDIFSC |
DRH=RH(J,K+1)-RH(J,K) |
|
./pkg/aim_v23/phy_vdifsc.F |
176 |
VDIFSC |
IF (DRH.GE.DRH0) THEN |
|
./pkg/aim_v23/phy_vdifsc.F |
178 |
VDIFSC |
FLUXQ = QSAT(J,K)*DRH*CVDI(J)/TRVDI |
|
./pkg/aim_v23/phy_vdifsc.F |
74 |
VDIFSC |
_RL DRH0, DRH, DMSE, FLUXSE, FLUXQ |