| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
129 |
SEAICE_BUDGET_ICE_IF |
AbsorbedSWFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
207 |
SEAICE_BUDGET_ICE_IF |
AbsorbedSWFlux(I,J) = -(ONE - ALB(I,J))* |
|
./pkg/seaice/seaice_budget_ice_if.F |
215 |
SEAICE_BUDGET_ICE_IF |
F_swi(I,J) = AbsorbedSWFlux(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
323 |
SEAICE_BUDGET_ICE_IF |
& SWDOWN(I,J,bi,bj), AbsorbedSWFlux(I,J), |
|
./pkg/seaice/seaice_budget_ice_if.F |
66 |
SEAICE_BUDGET_ICE_IF |
_RL AbsorbedSWFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_solve4temp.F |
214 |
SEAICE_SOLVE4TEMP |
AbsorbedSWFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
342 |
SEAICE_SOLVE4TEMP |
AbsorbedSWFlux(I,J) = -(1.0 _d 0 - ALB(I,J))* |
|
./pkg/seaice/seaice_solve4temp.F |
352 |
SEAICE_SOLVE4TEMP |
F_swi(I,J) = AbsorbedSWFlux(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
92 |
SEAICE_SOLVE4TEMP |
_RL AbsorbedSWFlux (1:sNx,1:sNy) |