| File |
Line number |
Procedure |
Code |
|
./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 |
1124 |
TURBIO |
tcanopy(i) = tground(i) |
|
./pkg/fizhi/fizhi_turb.F |
1192 |
TURBIO |
call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
182 |
TURBIO |
_RL tground(nchp),qground(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
327 |
TURBIO |
call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
390 |
TURBIO |
tground(i) = tcanopy(i) |
|
./pkg/fizhi/fizhi_turb.F |
397 |
TURBIO |
call QSAT ( tground(i),utility(i),shg(i),dqsdt(i),.true. ) |
|
./pkg/fizhi/fizhi_turb.F |
422 |
TURBIO |
qice(i) = const*(tice-tground(i)) |
|
./pkg/fizhi/fizhi_turb.F |
456 |
TURBIO |
call STRIPIT (tground,th(1,nlay+1),nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
495 |
TURBIO |
call STRIPIT (tground,tc,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
838 |
TURBIO |
call PASTIT (tc,tground,istrip,nchp,nchptot,1,nn) |