| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ocean.F |
10 |
SEAICE_BUDGET_OCEAN |
O netHeatFlux, SWHeatFlux, |
|
./pkg/seaice/seaice_budget_ocean.F |
110 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J) = Qsw(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
120 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux(I,J) = (SEAICE_waterAlbedo - 1. _d 0) |
|
./pkg/seaice/seaice_budget_ocean.F |
136 |
SEAICE_BUDGET_OCEAN |
netHeatFlux(I,J)=SWHeatFlux(I,J) |
|
./pkg/seaice/seaice_budget_ocean.F |
50 |
SEAICE_BUDGET_OCEAN |
_RL SWHeatFlux (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_budget_ocean.F |
88 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J) = 0. _d 0 |