| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ocean.F |
103 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J) = Qsw(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
10 |
SEAICE_BUDGET_OCEAN |
O netHeatFlux, SWHeatFlux, |
|
./pkg/seaice/seaice_budget_ocean.F |
116 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
46 |
SEAICE_BUDGET_OCEAN |
_RL SWHeatFlux (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_budget_ocean.F |
83 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ocean_if.F |
10 |
SEAICE_BUDGET_OCEAN_IF |
O netHeatFlux, SWHeatFlux, |
|
./pkg/seaice/seaice_budget_ocean_if.F |
114 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux (I,J) = Qsw(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
116 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ocean_if.F |
125 |
SEAICE_BUDGET_OCEAN_IF |
& i,j, netHeatFlux(I,J), SWHeatFlux(I,J) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
140 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux (I,J)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
48 |
SEAICE_BUDGET_OCEAN_IF |
_RL SWHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
96 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux (I,J) = 0. _d 0 |