| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2282 |
TRBFLX |
1 ( (ple(i,2)-ple(i,1))*(qq(i,1)-qqcolmin(i)) |
|
./pkg/fizhi/fizhi_lwrad.F |
129 |
LWRIO |
CALL STRIP (PLZE,ple ,im*jm,ISTRIP,lm+1 ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
146 |
LWRIO |
ADELPL(I,L) = convrt / ( ple(I,L+1)-ple(I,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
175 |
LWRIO |
call OPTHK ( tzl,pl,ple,cldlz,clro,clmo,lwi,istrip,1,lm,tauc ) |
|
./pkg/fizhi/fizhi_lwrad.F |
213 |
LWRIO |
call IRRAD ( istrip,1,1,lm,ple,tzl,shzl,ozl,tsurf,co2, |
|
./pkg/fizhi/fizhi_lwrad.F |
264 |
LWRIO |
DTRAD (I,L) = ple(i,lm+1) * DTRAD (I,L)/pk(I,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
265 |
LWRIO |
DTRADC(I,L) = ple(i,lm+1) * DTRADC(I,L)/pk(I,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
266 |
LWRIO |
dtdtg(I,L) = ple(i,lm+1) * dtdtg (I,L)/pk(I,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
47 |
LWRIO |
_RL ple(istrip,lm+1) |
|
./pkg/fizhi/do_fizhi.F |
107 |
DO_FIZHI |
_RL ple(sNx,sNy,Nrphys+1,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
159 |
DO_FIZHI |
common /saver/ pl,ple,dpres,pkle,pkl |
|
./pkg/fizhi/do_fizhi.F |
189 |
DO_FIZHI |
ple(i,j,Nrphys+1,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
207 |
DO_FIZHI |
ple(i,j,L,bi,bj) = pephy(i,j,L,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
208 |
DO_FIZHI |
if (ple(i,j,L,bi,bj).gt.0.) then |
|
./pkg/fizhi/do_fizhi.F |
209 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa |
|
./pkg/fizhi/do_fizhi.F |
229 |
DO_FIZHI |
call PKAPPA (im2,jm2,Nrphys,ple(1,1,1,bi,bj),pkle(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
233 |
DO_FIZHI |
. xlons,p(1,1,bi,bj),u,v,t,q,pl(1,1,1,bi,bj),ple(1,1,1,bi,bj), |