| File |
Line number |
Procedure |
Code |
|
./pkg/bling/bling_production.F |
155 |
BLING_PROD |
_RL expkT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
421 |
BLING_PROD |
expkT(i,j,k) = exp(kappa_eppley * theta(i,j,k,bi,bj)) |
|
./pkg/bling/bling_production.F |
426 |
BLING_PROD |
Pc_m = Pc_2d(i,j,bi,bj) * expkT(i,j,k) |
|
./pkg/bling/bling_production.F |
533 |
BLING_PROD |
& *expkT(i,j,k) * |
|
./pkg/bling/bling_production.F |
539 |
BLING_PROD |
& *expkT(i,j,k) * (Phy_sm_local(i,j,k)/pivotal) ) |
|
./pkg/bling/bling_production.F |
544 |
BLING_PROD |
& *expkT(i,j,k) * (Phy_diaz_local(i,j,k)/pivotal) ) |
|
./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.)* |