File |
Line number |
Procedure |
Code |
./pkg/bling/bling_production.F |
165 |
BLING_PROD |
_RL mu(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/bling/bling_production.F |
476 |
BLING_PROD |
mu(i,j,k) = Pc_m * ( 1. _d 0 - exp(-irr_eff(i,j,k) |
./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 |
518 |
BLING_PROD |
& * mu(i,j,k) * CatoN |
./pkg/bling/bling_production.F |
532 |
BLING_PROD |
& Phy_lg_local(i,j,k)*(mu(i,j,k) - lambda_0 |
./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 |
619 |
BLING_PROD |
& (mu(i,j,k)/(epsln + lambda_0*expkT(i,j,k)))**2.)/ |
./pkg/bling/bling_production.F |
620 |
BLING_PROD |
& (1. + (mu(i,j,k)/(epsln + lambda_0*expkT(i,j,k)))**2.)* |
./pkg/bling/bling_production.F |
899 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(mu, 'BLGMU ',0,Nr,2,bi,bj,myThid) |