| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_solve4temp.F |
135 |
SEAICE_SOLVE4TEMP |
_RL absorbedSW (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
232 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
320 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = (1.0 _d 0 - ALB(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
416 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = -lwdownLoc(I,J) -absorbedSW(I,J) + F_lwu(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
479 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = 0.3 _d 0 *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
516 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = -lwdownLoc(I,J) -absorbedSW(I,J) + F_lwu(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
564 |
SEAICE_SOLVE4TEMP |
& -lwdownLoc(I,J), -absorbedSW(I,J), F_lwu(I,J) |