File |
Line number |
Procedure |
Code |
./pkg/bling/bling_production.F |
156 |
BLING_PROD |
_RL Pc_m |
./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 |
437 |
BLING_PROD |
Pc_m = max(Pc_m ,maskC(i,j,k,bi,bj)*1. _d -15) |
./pkg/bling/bling_production.F |
455 |
BLING_PROD |
& *irr_mem(i,j,k,bi,bj)/(epsln + 2. _d 0*Pc_m)) |
./pkg/bling/bling_production.F |
471 |
BLING_PROD |
irrk(i,j,k) = Pc_m |
./pkg/bling/bling_production.F |
476 |
BLING_PROD |
mu(i,j,k) = Pc_m * ( 1. _d 0 - exp(-irr_eff(i,j,k) |