| File |
Line number |
Procedure |
Code |
|
./pkg/bling/bling_production.F |
173 |
BLING_PROD |
_RL P_uptake(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
229 |
BLING_PROD |
P_uptake(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
504 |
BLING_PROD |
P_uptake(i,j,k) = (N_uptake(i,j,k) + |
|
./pkg/bling/bling_production.F |
628 |
BLING_PROD |
& P_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
636 |
BLING_PROD |
P_dvm(i,j,k) = frac_exp * P_uptake(i,j,k) - |
|
./pkg/bling/bling_production.F |
643 |
BLING_PROD |
P_spm(i,j,k) = frac_exp *P_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
658 |
BLING_PROD |
DOP_prod(i,j,k) = phi_DOM2d(i,j,bi,bj)*(P_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
665 |
BLING_PROD |
P_recycle(i,j,k) = P_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
750 |
BLING_PROD |
G_PO4(i,j,k) = -P_uptake(i,j,k) + P_recycle(i,j,k) |
|
./pkg/bling/bling_production.F |
898 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(P_uptake, 'BLGPUP ',0,Nr,2,bi,bj,myThid) |