| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1440 |
TRBFLX |
6 hsturb,dhsdqa,dhsdtc,transth,transsh, |
|
./pkg/fizhi/fizhi_turb.F |
1506 |
TRBFLX |
_RL hsturb(irun),dhsdqa(irun),dhsdtc(irun) |
|
./pkg/fizhi/fizhi_turb.F |
206 |
TURBIO |
_RL hsturb(istrip),dhsdqa(istrip),dhsdtc(istrip) |
|
./pkg/fizhi/fizhi_turb.F |
2553 |
TRBFLX |
hsturb(i) = -1.* dths(i) |
|
./pkg/fizhi/fizhi_turb.F |
5089 |
SEAICE |
. hsturb, dhsdtc, |
|
./pkg/fizhi/fizhi_turb.F |
5096 |
SEAICE |
_RL eturb(nocean),dedtc(nocean),hsturb(nocean),dhsdtc(nocean) |
|
./pkg/fizhi/fizhi_turb.F |
5118 |
SEAICE |
deltg = ( swnet(i)-lwnet(i)-latent*eturb(i)-hsturb(i)+qice(i) ) |
|
./pkg/fizhi/fizhi_turb.F |
628 |
TURBIO |
hsturb(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
651 |
TURBIO |
6 hsturb,dhsdqa,dhsdtc,transth,transsh, |
|
./pkg/fizhi/fizhi_turb.F |
695 |
TURBIO |
hsturb(i) = hsturb(i) * pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
792 |
TURBIO |
I eturb, dedqa, dedtc, hsturb, dhsdqa, dhsdtc, |
|
./pkg/fizhi/fizhi_turb.F |
808 |
TURBIO |
. hsturb(nland+1), dhsdtc(nland+1), |
|
./pkg/fizhi/fizhi_turb.F |
904 |
TURBIO |
call PSTBMPIT(hsturb,qdiaglsm(1,15),istrip,nchp,nchptot,1,nn) |