File |
Line number |
Procedure |
Code |
./pkg/bling/bling_production.F |
178 |
BLING_PROD |
_RL DOP_prod(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/bling/bling_production.F |
236 |
BLING_PROD |
DOP_prod(i,j,k) = 0. _d 0 |
./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 |
666 |
BLING_PROD |
& - P_spm(i,j,k) - DOP_prod(i,j,k) |
./pkg/bling/bling_production.F |
783 |
BLING_PROD |
G_DOP(i,j,k) = DOP_prod(i,j,k) + phi_DOM2d(i,j,bi,bj) |
./pkg/bling/bling_production.F |
893 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(DOP_prod, 'BLGDOPP ',0,Nr,2,bi,bj,myThid) |