| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1222 |
TURBIO |
if( (icethk(i).gt.0.).and.(tground(i).gt.tice) ) tground(i)=tice |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1229 |
TURBIO |
tcanopy(i) = tground(i) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1309 |
TURBIO |
call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
166 |
TURBIO |
_RL tground(nchp),qground(nchp) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
354 |
TURBIO |
call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
417 |
TURBIO |
tground(i) = tcanopy(i) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
424 |
TURBIO |
call QSAT ( tground(i),utility(i),shg(i),dqsdt(i),.true. ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
449 |
TURBIO |
qice(i) = const*(tice-tground(i)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
483 |
TURBIO |
call STRIPIT (tground,th(1,nlay+1),nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
522 |
TURBIO |
call STRIPIT (tground,tc,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
926 |
TURBIO |
call PASTIT (tc,tground,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
1182 |
TURBIO |
if( (icethk(i).gt.0.).and.(tground(i).gt.tice) ) tground(i)=tice |
|
./pkg/fizhi/fizhi_turb.F |
1189 |
TURBIO |
tcanopy(i) = tground(i) |
|
./pkg/fizhi/fizhi_turb.F |
1269 |
TURBIO |
call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
166 |
TURBIO |
_RL tground(nchp),qground(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
354 |
TURBIO |
call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
417 |
TURBIO |
tground(i) = tcanopy(i) |
|
./pkg/fizhi/fizhi_turb.F |
424 |
TURBIO |
call QSAT ( tground(i),utility(i),shg(i),dqsdt(i),.true. ) |
|
./pkg/fizhi/fizhi_turb.F |
449 |
TURBIO |
qice(i) = const*(tice-tground(i)) |
|
./pkg/fizhi/fizhi_turb.F |
483 |
TURBIO |
call STRIPIT (tground,th(1,nlay+1),nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
522 |
TURBIO |
call STRIPIT (tground,tc,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
902 |
TURBIO |
call PASTIT (tc,tground,istrip,nchp,nchptot,1,nn) |