| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1209 |
TURBIO |
if( (icethk(i).gt.0.).and.(tground(i).gt.tice) ) tground(i)=tice |
|
./pkg/fizhi/fizhi_turb.F |
1216 |
TURBIO |
tcanopy(i) = tground(i) |
|
./pkg/fizhi/fizhi_turb.F |
1309 |
TURBIO |
call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
186 |
TURBIO |
_RL tground(nchp),qground(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
378 |
TURBIO |
call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
441 |
TURBIO |
tground(i) = tcanopy(i) |
|
./pkg/fizhi/fizhi_turb.F |
448 |
TURBIO |
call QSAT ( tground(i),utility(i),shg(i),dqsdt(i),.true. ) |
|
./pkg/fizhi/fizhi_turb.F |
473 |
TURBIO |
qice(i) = const*(tice-tground(i)) |
|
./pkg/fizhi/fizhi_turb.F |
507 |
TURBIO |
call STRIPIT (tground,th(1,nlay+1),nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
546 |
TURBIO |
call STRIPIT (tground,tc,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
930 |
TURBIO |
call PASTIT (tc,tground,istrip,nchp,nchptot,1,nn) |