Symbol Description Uses
atten 5



File Line number Procedure Code
./pkg/dic/bio_export.F 57 BIO_EXPORT
      _RL lit, atten
./pkg/dic/bio_export.F 71 BIO_EXPORT
             atten=(k0*drF(k)*.5)
./pkg/dic/bio_export.F 72 BIO_EXPORT
             if (k.gt.1) atten=atten+(k0*drF(k-1)*.5)
./pkg/dic/bio_export.F 73 BIO_EXPORT
             lit=lit*exp(-atten)*(1.d0-Fice(i,j,bi,bj))