Symbol Description Uses
lit 9


File Line number Procedure Code
./pkg/dic/bio_export.F 57 BIO_EXPORT 
      _RL lit, atten
./pkg/dic/bio_export.F 68 BIO_EXPORT 
           lit=sfac(j)
./pkg/dic/bio_export.F 73 BIO_EXPORT 
             lit=lit*exp(-atten)*(1.d0-Fice(i,j,bi,bj))
./pkg/dic/bio_export.F 74 BIO_EXPORT 
             if (lit.lt.0.d0.or.lit.gt.150) then
./pkg/dic/bio_export.F 75 BIO_EXPORT 
                 print*,'QQ lit', lit
./pkg/dic/bio_export.F 78 BIO_EXPORT 
     &                    lit/(lit+lit0)*maskC(i,j,k,bi,bj)*