| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1642 |
IRRAD |
dfdts(i,j,k1) =dfdts(i,j,k1)-dbs(i,j)*transfc(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1659 |
IRRAD |
dfdts(i,j,np+1)=dfdts(i,j,np+1)-dbs(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
217 |
LWRIO |
. high,trace,flx,flxclr,dfdts,sgmt4 ) |
|
./pkg/fizhi/fizhi_lwrad.F |
227 |
LWRIO |
dtdtg(i,L) = ( dfdts(i,L)- dfdts(i,L+1))*adelpl(i,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
242 |
LWRIO |
dsgmt4(i) = - dfdts(i,lm+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
350 |
IRRAD |
* high,trace,flx,flc,dfdts,st4) |
|
./pkg/fizhi/fizhi_lwrad.F |
56 |
LWRIO |
_RL dfdts(istrip,lm+1),dtdtg(istrip,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
579 |
IRRAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1),dfdts(m,ndim,np+1), |
|
./pkg/fizhi/fizhi_lwrad.F |
982 |
IRRAD |
dfdts(i,j,k)= 0.0 |