File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lwrad.F |
217 |
LWRIO |
. high,trace,flx,flxclr,dfdts,sgmt4 ) |
./pkg/fizhi/fizhi_lwrad.F |
228 |
LWRIO |
dtradc(i,L) = (flxclr(i,L)-flxclr(i,L+1))*adelpl(i,L) |
./pkg/fizhi/fizhi_lwrad.F |
238 |
LWRIO |
flxclr(i,1) = -flxclr(i,1) |
./pkg/fizhi/fizhi_lwrad.F |
240 |
LWRIO |
flxclr(i,lm+1) = -flxclr(i,lm+1) |
./pkg/fizhi/fizhi_lwrad.F |
246 |
LWRIO |
CALL PASTE ( flxclr(1,lm+1),LWGCLR,ISTRIP,im*jm,1,NN ) |
./pkg/fizhi/fizhi_lwrad.F |
256 |
LWRIO |
CALL PASTE(flxclr(1,1),tempor2,ISTRIP,im*jm,1,NN) |
./pkg/fizhi/fizhi_lwrad.F |
54 |
LWRIO |
_RL flx(ISTRIP,lm+1),flxclr(ISTRIP,lm+1) |