| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
142 |
MOISTIO |
_RL tice,getcon,pi |
|
./pkg/fizhi/fizhi_moist.F |
196 |
MOISTIO |
tice = getcon('FREEZING-POINT') |
|
./pkg/fizhi/fizhi_moist.F |
2402 |
RNEVP |
_RL fracwat,fracice, tice,rh,fact,dum |
|
./pkg/fizhi/fizhi_moist.F |
2417 |
RNEVP |
tice = getcon('FREEZING-POINT') |
|
./pkg/fizhi/fizhi_moist.F |
2493 |
RNEVP |
if( tl(i,L).gt.tice-20.) then |
|
./pkg/fizhi/fizhi_moist.F |
744 |
MOISTIO |
if (saveth(i,l)*plk(i,l).le. tice ) then |
|
./pkg/fizhi/fizhi_turb.F |
1117 |
TURBIO |
if( (icethk(i).gt.0.).and.(tground(i).gt.tice) ) tground(i)=tice |
|
./pkg/fizhi/fizhi_turb.F |
249 |
TURBIO |
_RL edle,rmu,cltj10,atimstp,tice,const |
|
./pkg/fizhi/fizhi_turb.F |
305 |
TURBIO |
tice = getcon('FREEZING-POINT') |
|
./pkg/fizhi/fizhi_turb.F |
422 |
TURBIO |
qice(i) = const*(tice-tground(i)) |