| File |
Line number |
Procedure |
Code |
|
./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) |
|
./pkg/fizhi/fizhi_turb.F |
218 |
TURBIO |
_RL dpstr(istrip,nlay),pke(istrip,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
449 |
TURBIO |
call STRIP2TILE(pkht,igrd,pke,nchp,ijall,istrip,nlay+1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
4527 |
SEAICE |
& pke, seaic, tc, qa ) |
|
./pkg/fizhi/fizhi_turb.F |
4534 |
SEAICE |
_RL pke(nocean), tc(nocean), qa(nocean) |
|
./pkg/fizhi/fizhi_turb.F |
530 |
TURBIO |
th(i,nlay+1) = th(i,nlay+1) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
586 |
TURBIO |
stdiag(i) = ( thv(i,nlay+1)-thv(i,nlay) ) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
594 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
|
./pkg/fizhi/fizhi_turb.F |
642 |
TURBIO |
eturb(i) = eturb(i) * pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
643 |
TURBIO |
dedqa(i) = dedqa(i) * pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
644 |
TURBIO |
hsturb(i) = hsturb(i) * pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
760 |
TURBIO |
& pke(nland+1,nlay+1), icest(nland+1), |
|
./pkg/fizhi/fizhi_turb.F |
852 |
TURBIO |
th(i,nlay+1) = tc(i) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
856 |
TURBIO |
th(i,L) = th(i,L) + dthdthg(i,L)*(tc(i)-savetc(i))/pke(i,nlay+1) |