| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_vdifsc.F |
158 |
VDIFSC |
DMSE = - stab(J) |
|
./pkg/aim/phy_vdifsc.F |
165 |
VDIFSC |
IF (DMSE.GE.0.0) THEN |
|
./pkg/aim/phy_vdifsc.F |
187 |
VDIFSC |
TTENVD(J,NLEVxy(J,myThid)) = RTST(J)*DMSE |
|
./pkg/aim/phy_vdifsc.F |
85 |
VDIFSC |
_RL RTVD, RTSQ, DMSE, QEQL |
|
./pkg/aim_v23/phy_vdifsc.F |
138 |
VDIFSC |
DMSE = dSEdp(J,NL1) + ALHC*(QA(J,Ktmp)-QSAT(J,NL1)) |
|
./pkg/aim_v23/phy_vdifsc.F |
141 |
VDIFSC |
IF (DMSE.GE.0.0) THEN |
|
./pkg/aim_v23/phy_vdifsc.F |
144 |
VDIFSC |
FLUXSE = FSHCQ *DMSE/CP |
|
./pkg/aim_v23/phy_vdifsc.F |
193 |
VDIFSC |
DMSE = dSEdp(J,K) |
|
./pkg/aim_v23/phy_vdifsc.F |
198 |
VDIFSC |
IF (DMSE.GT.0.) THEN |
|
./pkg/aim_v23/phy_vdifsc.F |
199 |
VDIFSC |
FLUXSE = DMSE*CVDI(J)/(TRVDS*CP) |
|
./pkg/aim_v23/phy_vdifsc.F |
74 |
VDIFSC |
_RL DRH0, DRH, DMSE, FLUXSE, FLUXQ |