| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
203 |
LWRIO |
cwc(i,L,n) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
215 |
LWRIO |
. cldwater,cwc,tauc,reff,clro,mid_level,low_level, |
|
./pkg/fizhi/fizhi_lwrad.F |
348 |
IRRAD |
* cldwater,cwc,taucl,reff,fcld,ict,icb, |
|
./pkg/fizhi/fizhi_lwrad.F |
572 |
IRRAD |
_RL cwc(m,ndim,np,3),taucl(m,ndim,np,3),reff(m,ndim,np,3), |
|
./pkg/fizhi/fizhi_lwrad.F |
62 |
LWRIO |
_RL cwc(istrip,lm,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
950 |
IRRAD |
cwp(i,j,k,1)=1.02*10000.0*cwc(i,j,k,1)*dp |
|
./pkg/fizhi/fizhi_lwrad.F |
951 |
IRRAD |
cwp(i,j,k,2)=1.02*10000.0*cwc(i,j,k,2)*dp |
|
./pkg/fizhi/fizhi_lwrad.F |
952 |
IRRAD |
cwp(i,j,k,3)=1.02*10000.0*cwc(i,j,k,3)*dp |