| 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 |
222 |
TURBIO |
_RL dpstr(istrip,nlay),pke(istrip,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
500 |
TURBIO |
call STRIP2TILE(pkht,igrd,pke,nchp,ijall,istrip,nlay+1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
5092 |
SEAICE |
. pke, seaic, tc, qa ) |
|
./pkg/fizhi/fizhi_turb.F |
5099 |
SEAICE |
_RL pke(nocean), tc(nocean), qa(nocean) |
|
./pkg/fizhi/fizhi_turb.F |
581 |
TURBIO |
th(i,nlay+1) = th(i,nlay+1) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
637 |
TURBIO |
stdiag(i) = ( thv(i,nlay+1)-thv(i,nlay) ) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
645 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
|
./pkg/fizhi/fizhi_turb.F |
693 |
TURBIO |
eturb(i) = eturb(i) * pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
694 |
TURBIO |
dedqa(i) = dedqa(i) * pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
695 |
TURBIO |
hsturb(i) = hsturb(i) * pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
811 |
TURBIO |
. pke(nland+1,nlay+1), icest(nland+1), |
|
./pkg/fizhi/fizhi_turb.F |
944 |
TURBIO |
th(i,nlay+1) = tc(i) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
948 |
TURBIO |
th(i,L) = th(i,L) + dthdthg(i,L)*(tc(i)-savetc(i))/pke(i,nlay+1) |