| File |
Line number |
Procedure |
Code |
|
./pkg/bling/bling_production.F |
166 |
BLING_PROD |
_RL mu_diaz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
238 |
BLING_PROD |
mu_diaz(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
479 |
BLING_PROD |
mu_diaz(i,j,k) = Pc_m_diaz * ( 1. _d 0 - exp(-irr_eff(i,j,k) |
|
./pkg/bling/bling_production.F |
488 |
BLING_PROD |
mu_diaz(i,j,k) = 0. _d 0 |
|
./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 |
543 |
BLING_PROD |
& Phy_diaz_local(i,j,k)*(mu_diaz(i,j,k) - lambda_0 |
|
./pkg/bling/bling_production.F |
900 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(mu_diaz, 'BLGMUDIA',0,Nr,2,bi,bj,myThid) |