| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
128 |
SEAICE_BUDGET_ICE_IF |
AbsorbedSWFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
206 |
SEAICE_BUDGET_ICE_IF |
AbsorbedSWFlux(I,J) = -(ONE - ALB(I,J))* |
|
./pkg/seaice/seaice_budget_ice_if.F |
214 |
SEAICE_BUDGET_ICE_IF |
F_swi(I,J) = AbsorbedSWFlux(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
322 |
SEAICE_BUDGET_ICE_IF |
& SWDOWN(I,J,bi,bj), AbsorbedSWFlux(I,J), |
|
./pkg/seaice/seaice_budget_ice_if.F |
64 |
SEAICE_BUDGET_ICE_IF |
_RL AbsorbedSWFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |