| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1804 |
TRBFLX |
call QSAT ( tl(i,nlev),pl(i,nlev),shsat(i,nlev),dum,.false. ) |
|
./pkg/fizhi/fizhi_turb.F |
1900 |
TRBFLX |
call QSAT ( tl(i,LL),pl(i,LL),shsat(i,LL),dum,.false. ) |
|
./pkg/fizhi/fizhi_turb.F |
2162 |
TRBFLX |
if(pl(i,L).le.150.) then |
|
./pkg/fizhi/fizhi_lwrad.F |
130 |
LWRIO |
CALL STRIP (PLZ ,pl ,im*jm,ISTRIP,lm ,NN) |
|
./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 |
346 |
IRRAD |
subroutine IRRAD (m,n,ndim,np,pl,ta,wa,oa,ts,co2, |
|
./pkg/fizhi/fizhi_lwrad.F |
44 |
LWRIO |
_RL pl(istrip,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
569 |
IRRAD |
_RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np), |
|
./pkg/fizhi/fizhi_lwrad.F |
874 |
IRRAD |
if (pl(i,j,1) .eq. 0.0) then |
|
./pkg/fizhi/fizhi_lwrad.F |
875 |
IRRAD |
pl(i,j,1)=1.0e-4 |
|
./pkg/fizhi/fizhi_lwrad.F |
885 |
IRRAD |
pa(i,j,k)=0.5*(pl(i,j,k)+pl(i,j,k+1)) |
|
./pkg/fizhi/fizhi_lwrad.F |
913 |
IRRAD |
dp = pl(i,j,k+1)-pl(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
949 |
IRRAD |
dp =pl(i,j,k+1)-pl(i,j,k) |
|
./pkg/fizhi/do_fizhi.F |
106 |
DO_FIZHI |
_RL pl(sNx,sNy,Nrphys,Nsx,Nsy),pkl(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
159 |
DO_FIZHI |
common /saver/ pl,ple,dpres,pkle,pkl |
|
./pkg/fizhi/do_fizhi.F |
205 |
DO_FIZHI |
pl(i,j,L,bi,bj) = (pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj))/200. |
|
./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), |