| File |
Line number |
Procedure |
Code |
|
./pkg/bling/bling_production.F |
149 |
BLING_PROD |
_RL Phy_diaz_local(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
282 |
BLING_PROD |
Phy_diaz_local(i,j,k) = PTR_PHY(i,j,k)*phyto_diaz(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
286 |
BLING_PROD |
Phy_diaz_local(i,j,k) = phyto_diaz(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
333 |
BLING_PROD |
tmp_p_diaz_ML = tmp_p_diaz_ML+Phy_diaz_local(i,j,k)*drF(k) |
|
./pkg/bling/bling_production.F |
349 |
BLING_PROD |
Phy_diaz_local(i,j,k) = max(1. _d -8,tmp_p_diaz_ML/tmp_ML) |
|
./pkg/bling/bling_production.F |
502 |
BLING_PROD |
N_fix(i,j,k) = mu_diaz(i,j,k) * Phy_diaz_local(i,j,k) |
|
./pkg/bling/bling_production.F |
542 |
BLING_PROD |
Phy_diaz_local(i,j,k) = Phy_diaz_local(i,j,k) + |
|
./pkg/bling/bling_production.F |
543 |
BLING_PROD |
& Phy_diaz_local(i,j,k)*(mu_diaz(i,j,k) - lambda_0 |
|
./pkg/bling/bling_production.F |
544 |
BLING_PROD |
& *expkT(i,j,k) * (Phy_diaz_local(i,j,k)/pivotal) ) |
|
./pkg/bling/bling_production.F |
566 |
BLING_PROD |
& + Phy_diaz_local(i,j,k) |
|
./pkg/bling/bling_production.F |
570 |
BLING_PROD |
phyto_diaz(i,j,k,bi,bj) = Phy_diaz_local(i,j,k)/PTR_PHY(i,j,k) |
|
./pkg/bling/bling_production.F |
575 |
BLING_PROD |
phyto_diaz(i,j,k,bi,bj) = Phy_diaz_local(i,j,k) |
|
./pkg/bling/bling_production.F |
584 |
BLING_PROD |
& + Phy_diaz_local(i,j,k))) |
|
./pkg/bling/bling_production.F |
831 |
BLING_PROD |
Phy_diaz_local(i,j,k) = Phy_diaz_local(i,j,k) * CtoN |
|
./pkg/bling/bling_production.F |
836 |
BLING_PROD |
& Phy_diaz_local(i,j,k) ) * 3.33333 _d 0 |
|
./pkg/bling/bling_production.F |
855 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Phy_diaz_local,'BLGPDIA ',0,Nr,1,bi,bj, |