Symbol Description Uses
irr_surf 4


File Line number Procedure Code
./pkg/bling/bling_light.F 154 BLING_LIGHT 
        irr_surf(i,j) = max(epsln,
./pkg/bling/bling_light.F 157 BLING_LIGHT 
        irr_surf(i,j) = sfac(j)
./pkg/bling/bling_light.F 177 BLING_LIGHT 
          irr_inst(i,j,1) = irr_surf(i,j)*exp(-atten)
./pkg/bling/bling_light.F 73 BLING_LIGHT 
      _RL irr_surf  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)