| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_vdifsc.F |
102 |
VDIFSC |
RSIG(K)=1./DSIG(K) |
|
./pkg/aim_v23/phy_vdifsc.F |
145 |
VDIFSC |
TTENVD(J,NL1) = FLUXSE*RSIG(NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
146 |
VDIFSC |
TTENVD(J,Ktmp) =-FLUXSE*RSIG(Ktmp) |
|
./pkg/aim_v23/phy_vdifsc.F |
150 |
VDIFSC |
QTENVD(J,NL1) = FLUXQ*RSIG(NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
151 |
VDIFSC |
QTENVD(J,Ktmp) =-FLUXQ*RSIG(Ktmp) |
|
./pkg/aim_v23/phy_vdifsc.F |
158 |
VDIFSC |
QTENVD(J,NL1) = FLUXQ*RSIG(NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
159 |
VDIFSC |
QTENVD(J,Ktmp) =-FLUXQ*RSIG(Ktmp) |
|
./pkg/aim_v23/phy_vdifsc.F |
179 |
VDIFSC |
QTENVD(J,K) = QTENVD(J,K) +FLUXQ*RSIG(K) |
|
./pkg/aim_v23/phy_vdifsc.F |
180 |
VDIFSC |
QTENVD(J,K+1)= QTENVD(J,K+1)-FLUXQ*RSIG(K+1) |
|
./pkg/aim_v23/phy_vdifsc.F |
200 |
VDIFSC |
TTENVD(J,K ) = TTENVD(J,K )+FLUXSE*RSIG(K) |
|
./pkg/aim_v23/phy_vdifsc.F |
201 |
VDIFSC |
TTENVD(J,K+1) = TTENVD(J,K+1)-FLUXSE*RSIG(K+1) |
|
./pkg/aim_v23/phy_vdifsc.F |
69 |
VDIFSC |
_RL RSIG(NLEV) |