Symbol Description Uses
atten 10



File Line number Procedure Code
./pkg/bling/bling_light.F 176 BLING_LIGHT
          atten = k0*drF(1)/2. _d 0*hFacC(i,j,1,bi,bj)
./pkg/bling/bling_light.F 177 BLING_LIGHT
          irr_inst(i,j,1) = irr_surf(i,j)*exp(-atten)
./pkg/bling/bling_light.F 180 BLING_LIGHT
          atten = k0*drF(k)/2. _d 0*hFacC(i,j,k,bi,bj)
./pkg/bling/bling_light.F 183 BLING_LIGHT
     &           irr_inst(i,j,k-1)*exp(-atten)
./pkg/bling/bling_light.F 72 BLING_LIGHT
      _RL atten
./pkg/dic/bio_export.F 107 BIO_EXPORT
         atten = kall*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0
./pkg/dic/bio_export.F 108 BIO_EXPORT
         if (k.gt.1) atten = atten
./pkg/dic/bio_export.F 110 BIO_EXPORT
         lit(i,j)=lit(i,j)*exp(-atten)
./pkg/dic/bio_export.F 60 BIO_EXPORT
      _RL kall, atten