| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_vdifsc.F |
187 |
VDIFSC |
TTENVD(J,NLEVxy(J,myThid)) = RTST(J)*DMSE |
|
./pkg/aim/phy_vdifsc.F |
188 |
VDIFSC |
TTENVD(J,NL1(J)) = RNL1(J)*TTENVD(J,NLEVxy(J,myThid)) |
|
./pkg/aim/phy_vdifsc.F |
54 |
VDIFSC |
& TTENVD(NGP,NLEV), QTENVD(NGP,NLEV) |
|
./pkg/aim/phy_vdifsc.F |
8 |
VDIFSC |
& UTENVD,VTENVD,TTENVD,QTENVD, |
|
./pkg/aim/phy_vdifsc.F |
94 |
VDIFSC |
TTENVD(J,K) = 0. |
|
./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, |