| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
500 |
MOISTIO |
saveth(i,L) = th (i,L) |
|
./pkg/fizhi/fizhi_moist.F |
527 |
MOISTIO |
CVTH(I,L) = (TH (I,L) - saveth(i,l)) |
|
./pkg/fizhi/fizhi_moist.F |
540 |
MOISTIO |
TH (I,L) = saveth(i,l) + cvth(i,l) |
|
./pkg/fizhi/fizhi_moist.F |
625 |
MOISTIO |
saveth(I,L) = th(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
646 |
MOISTIO |
TMP1(I,L) = sp(i) * ((TL(I,L)/PLK(I,L))-saveth(i,l)) * tminv |
|
./pkg/fizhi/fizhi_moist.F |
653 |
MOISTIO |
TMP1(I,L) = ((TL(I,L)/PLK(I,L))-saveth(i,l))*plk(i,l)*sday*tminv |
|
./pkg/fizhi/fizhi_moist.F |
676 |
MOISTIO |
call SRCLOUDS (saveth,saveq,plk,pl,plke,clsbth,cldlz,istrip,lm, |
|
./pkg/fizhi/fizhi_moist.F |
720 |
MOISTIO |
if (saveth(i,l)*plk(i,l).le. tice ) then |
|
./pkg/fizhi/fizhi_moist.F |
98 |
MOISTIO |
_RL saveth (istrip,lm) |