| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
202 |
TURBIO |
_RL dpstr(istrip,nlay),pke(istrip,nlay+1) |
|
./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 |
476 |
TURBIO |
call STRIP2TILE(pkht,igrd,pke,nchp,ijall,istrip,nlay+1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
553 |
TURBIO |
th(i,nlay+1) = th(i,nlay+1) / pke(i,nlay+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
609 |
TURBIO |
stdiag(i) = ( thv(i,nlay+1)-thv(i,nlay) ) / pke(i,nlay+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
641 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
689 |
TURBIO |
eturb(i) = eturb(i) * pke(i,nlay+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
690 |
TURBIO |
dedqa(i) = dedqa(i) * pke(i,nlay+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
691 |
TURBIO |
hsturb(i) = hsturb(i) * pke(i,nlay+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
807 |
TURBIO |
. pke(nland+1,nlay+1), icest(nland+1), |
|
./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 |
202 |
TURBIO |
_RL dpstr(istrip,nlay),pke(istrip,nlay+1) |
|
./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 |
476 |
TURBIO |
call STRIP2TILE(pkht,igrd,pke,nchp,ijall,istrip,nlay+1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
553 |
TURBIO |
th(i,nlay+1) = th(i,nlay+1) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
609 |
TURBIO |
stdiag(i) = ( thv(i,nlay+1)-thv(i,nlay) ) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
617 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
|
./pkg/fizhi/fizhi_turb.F |
665 |
TURBIO |
eturb(i) = eturb(i) * pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
666 |
TURBIO |
dedqa(i) = dedqa(i) * pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
667 |
TURBIO |
hsturb(i) = hsturb(i) * pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
783 |
TURBIO |
. pke(nland+1,nlay+1), icest(nland+1), |
|
./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) |
|
./pkg/fizhi/fizhi_lwrad.F |
132 |
LWRIO |
CALL STRIP (PKHT,pke ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
46 |
LWRIO |
_RL pke(istrip,lm) |