File |
Line number |
Procedure |
Code |
./pkg/bling/bling_production.F |
169 |
BLING_PROD |
_RL N_uptake(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/bling/bling_production.F |
225 |
BLING_PROD |
N_uptake(i,j,k) = 0. _d 0 |
./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 |
504 |
BLING_PROD |
P_uptake(i,j,k) = (N_uptake(i,j,k) + |
./pkg/bling/bling_production.F |
507 |
BLING_PROD |
Fe_uptake(i,j,k) = (N_uptake(i,j,k) + |
./pkg/bling/bling_production.F |
625 |
BLING_PROD |
& (N_uptake(i,j,k) + N_fix(i,j,k)) |
./pkg/bling/bling_production.F |
634 |
BLING_PROD |
& (N_uptake(i,j,k) + N_fix(i,j,k)) - N_spm(i,j,k) |
./pkg/bling/bling_production.F |
642 |
BLING_PROD |
N_spm(i,j,k) = frac_exp * (N_uptake(i,j,k) + N_fix(i,j,k)) |
./pkg/bling/bling_production.F |
654 |
BLING_PROD |
DON_prod(i,j,k) = phi_DOM2d(i,j,bi,bj)*(N_uptake(i,j,k) |
./pkg/bling/bling_production.F |
661 |
BLING_PROD |
N_recycle(i,j,k) = N_uptake(i,j,k) + N_fix(i,j,k) |
./pkg/bling/bling_production.F |
738 |
BLING_PROD |
O2_prod(i,j,k) = O2toN * N_uptake(i,j,k) |
./pkg/bling/bling_production.F |
755 |
BLING_PROD |
G_NO3(i,j,k) = -N_uptake(i,j,k) |
./pkg/bling/bling_production.F |
819 |
BLING_PROD |
NPP(i,j,k) = (N_uptake(i,j,k) + N_fix(i,j,k)) * CtoN |
./pkg/bling/bling_production.F |
821 |
BLING_PROD |
NCP(i,j,k) = (N_uptake(i,j,k) + N_fix(i,j,k) |
./pkg/bling/bling_production.F |
891 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_uptake, 'BLGNUP ',0,Nr,2,bi,bj,myThid) |