| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
209 |
SEAICE_BUDGET_ICE_IF |
& *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice_if.F |
213 |
SEAICE_BUDGET_ICE_IF |
& *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice_if.F |
323 |
SEAICE_BUDGET_ICE_IF |
& SWDOWN(I,J,bi,bj), AbsorbedSWFlux(I,J), |
|
./pkg/seaice/seaice_budget_ocean.F |
107 |
SEAICE_BUDGET_OCEAN |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./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_if.F |
131 |
SEAICE_BUDGET_OCEAN_IF |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./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_solve4temp.F |
312 |
SEAICE_SOLVE4TEMP |
A1(I,J)=(1.0 _d 0 - ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
317 |
SEAICE_SOLVE4TEMP |
A1(I,J)=(1.0 _d 0 - ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
344 |
SEAICE_SOLVE4TEMP |
& *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
350 |
SEAICE_SOLVE4TEMP |
& *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
547 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux(I,J)=-(1.0 _d 0 -ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
593 |
SEAICE_SOLVE4TEMP |
A1(I,J)=0.3 _d 0 *SWDOWN(I,J,bi,bj)+lwdownLoc(I,J)*0.97 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
631 |
SEAICE_SOLVE4TEMP |
& SWDOWN(I,J,bi,bj), IcePenetSWFlux(I,J) |