| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
2517 |
TABLUP |
_RL x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2 |
|
./pkg/fizhi/fizhi_lwrad.F |
2532 |
TABLUP |
pe=(log10(x2)-p1)/dpe |
|
./pkg/fizhi/fizhi_lwrad.F |
2535 |
TABLUP |
pe=max(pe,p1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2538 |
TABLUP |
ip=int(pe+1.5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2547 |
TABLUP |
fp=pe-float(ip-1) |
|
./pkg/fizhi/fizhi_turb.F |
216 |
TURBIO |
_RL sh(istrip,nlay+1), thv(istrip,nlay+1), pe(istrip,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
447 |
TURBIO |
call STRIP2TILE(plze,igrd,pe,nchp,ijall,istrip,nlay+1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
457 |
TURBIO |
call STRIPIT (pmsc,pe(1,nlay+1),nchptot,nchp,istrip,1,nn) |
|
./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 |
632 |
TURBIO |
psurf(i) = pe(i,nlay+1) |