| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
212 |
TURBIO |
_RL tc(istrip),td(istrip),qa(istrip) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4551 |
SEAICE |
. pke, seaic, tc, qa ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4558 |
SEAICE |
_RL pke(nocean), tc(nocean), qa(nocean) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4579 |
SEAICE |
qa(i) = qa(i) + (faceps*qa(i)/(tc(i)*tc(i)))*deltg |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4580 |
SEAICE |
tc(i) = tc(i) + deltg |
|
./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 |
671 |
TURBIO |
savetc(i) = tc(i) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
678 |
TURBIO |
hlwdwn(i) = alwrad(i)+blwrad(i)*tc(i)-lwstrip(i) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
793 |
TURBIO |
U tc, td, qa, swet1, swet2, swet3, capacity, snowdepth, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
808 |
TURBIO |
. tc(nland+1), qa(nland+1) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
891 |
TURBIO |
call PSTBMPIT(tc,qdiaglsm(1,6),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
926 |
TURBIO |
call PASTIT (tc,tground,istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
940 |
TURBIO |
th(i,nlay+1) = tc(i) / pke(i,nlay+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
944 |
TURBIO |
th(i,L) = th(i,L) + dthdthg(i,L)*(tc(i)-savetc(i))/pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
212 |
TURBIO |
_RL tc(istrip),td(istrip),qa(istrip) |
|
./pkg/fizhi/fizhi_turb.F |
4512 |
SEAICE |
. pke, seaic, tc, qa ) |
|
./pkg/fizhi/fizhi_turb.F |
4519 |
SEAICE |
_RL pke(nocean), tc(nocean), qa(nocean) |
|
./pkg/fizhi/fizhi_turb.F |
4540 |
SEAICE |
qa(i) = qa(i) + (faceps*qa(i)/(tc(i)*tc(i)))*deltg |
|
./pkg/fizhi/fizhi_turb.F |
4541 |
SEAICE |
tc(i) = tc(i) + deltg |
|
./pkg/fizhi/fizhi_turb.F |
522 |
TURBIO |
call STRIPIT (tground,tc,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
647 |
TURBIO |
savetc(i) = tc(i) |
|
./pkg/fizhi/fizhi_turb.F |
654 |
TURBIO |
hlwdwn(i) = alwrad(i)+blwrad(i)*tc(i)-lwstrip(i) |
|
./pkg/fizhi/fizhi_turb.F |
769 |
TURBIO |
U tc, td, qa, swet1, swet2, swet3, capacity, snowdepth, |
|
./pkg/fizhi/fizhi_turb.F |
784 |
TURBIO |
. tc(nland+1), qa(nland+1) ) |
|
./pkg/fizhi/fizhi_turb.F |
867 |
TURBIO |
call PSTBMPIT(tc,qdiaglsm(1,6),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
902 |
TURBIO |
call PASTIT (tc,tground,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
916 |
TURBIO |
th(i,nlay+1) = tc(i) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
920 |
TURBIO |
th(i,L) = th(i,L) + dthdthg(i,L)*(tc(i)-savetc(i))/pke(i,nlay+1) |