| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_vdifsc.F |
109 |
VDIFSC |
TTENVD(J,K) = 0. |
|
./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 |
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 |
60 |
VDIFSC |
_RL TTENVD(NGP,NLEV), QTENVD(NGP,NLEV) |
|
./pkg/aim_v23/phy_vdifsc.F |
7 |
VDIFSC |
O TTENVD,QTENVD, |