| File |
Line number |
Procedure |
Code |
|
./pkg/bling/bling_light.F |
177 |
BLING_LIGHT |
irr_inst(i,j,1) = irr_surf(i,j)*exp(-atten) |
|
./pkg/bling/bling_light.F |
182 |
BLING_LIGHT |
irr_inst(i,j,k) = |
|
./pkg/bling/bling_light.F |
183 |
BLING_LIGHT |
& irr_inst(i,j,k-1)*exp(-atten) |
|
./pkg/bling/bling_light.F |
190 |
BLING_LIGHT |
SumMLIrr = SumMLIrr+drF(k)*irr_inst(i,j,k) |
|
./pkg/bling/bling_light.F |
209 |
BLING_LIGHT |
irr_eff(i,j,k) = irr_inst(i,j,k) |
|
./pkg/bling/bling_light.F |
227 |
BLING_LIGHT |
CALL DIAGNOSTICS_FILL(irr_inst,'BLGIRRIS',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_light.F |
64 |
BLING_LIGHT |
_RL irr_inst (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_light.F |
9 |
BLING_LIGHT |
U irr_inst, irr_eff, |
|
./pkg/bling/bling_production.F |
162 |
BLING_PROD |
_RL irr_inst(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
240 |
BLING_PROD |
irr_inst(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
365 |
BLING_PROD |
U irr_inst, irr_eff, |
|
./pkg/bling/bling_production.F |
682 |
BLING_PROD |
I PTR_NO3, PTR_FE, PTR_O2, irr_inst, |
|
./pkg/bling/bling_remineralization.F |
300 |
BLING_REMIN |
& *(irr_inst(i,j,k)**2 |
|
./pkg/bling/bling_remineralization.F |
301 |
BLING_REMIN |
& /(kFe_eq_lig_irr**2+irr_inst(i,j,k)**2)) |
|
./pkg/bling/bling_remineralization.F |
59 |
BLING_REMIN |
_RL irr_inst(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
8 |
BLING_REMIN |
I PTR_NO3, PTR_FE, PTR_O2, irr_inst, |