Symbol Description Uses
DTRADC 3


File Line number Procedure Code
./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 271 LWRIO 
      CALL PASTE ( DTRADC,DTRADLWC,ISTRIP,im*jm,lm,NN )