| File |
Line number |
Procedure |
Code |
|
./pkg/bling/bling_production.F |
148 |
BLING_PROD |
_RL Phy_sm_local(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
281 |
BLING_PROD |
Phy_sm_local(i,j,k) = PTR_PHY(i,j,k)*phyto_sm(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
285 |
BLING_PROD |
Phy_sm_local(i,j,k) = phyto_sm(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
329 |
BLING_PROD |
tmp_p_sm_ML = tmp_p_sm_ML+Phy_sm_local(i,j,k)*drF(k) |
|
./pkg/bling/bling_production.F |
348 |
BLING_PROD |
Phy_sm_local(i,j,k) = max(1. _d -8,tmp_p_sm_ML/tmp_ML) |
|
./pkg/bling/bling_production.F |
499 |
BLING_PROD |
N_uptake(i,j,k) = mu(i,j,k)*(Phy_sm_local(i,j,k) |
|
./pkg/bling/bling_production.F |
517 |
BLING_PROD |
CaCO3_uptake(i,j,k) = Phy_sm_local(i,j,k)*phi_sm2d(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
537 |
BLING_PROD |
Phy_sm_local(i,j,k) = Phy_sm_local(i,j,k) + |
|
./pkg/bling/bling_production.F |
538 |
BLING_PROD |
& Phy_sm_local(i,j,k)*(mu(i,j,k) - lambda_0 |
|
./pkg/bling/bling_production.F |
539 |
BLING_PROD |
& *expkT(i,j,k) * (Phy_sm_local(i,j,k)/pivotal) ) |
|
./pkg/bling/bling_production.F |
565 |
BLING_PROD |
PTR_PHY(i,j,k) = Phy_lg_local(i,j,k) + Phy_sm_local(i,j,k) |
|
./pkg/bling/bling_production.F |
569 |
BLING_PROD |
phyto_sm(i,j,k,bi,bj) = Phy_sm_local(i,j,k)/PTR_PHY(i,j,k) |
|
./pkg/bling/bling_production.F |
574 |
BLING_PROD |
phyto_sm(i,j,k,bi,bj) = Phy_sm_local(i,j,k) |
|
./pkg/bling/bling_production.F |
583 |
BLING_PROD |
& (Phy_lg_local(i,j,k) + Phy_sm_local(i,j,k) |
|
./pkg/bling/bling_production.F |
830 |
BLING_PROD |
Phy_sm_local(i,j,k) = Phy_sm_local(i,j,k) * CtoN |
|
./pkg/bling/bling_production.F |
835 |
BLING_PROD |
poc(i,j,k,bi,bj) = (Phy_lg_local(i,j,k) + Phy_sm_local(i,j,k) + |
|
./pkg/bling/bling_production.F |
851 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Phy_sm_local,'BLGPSM ',0,Nr,1,bi,bj, |