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 |