| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_solve4temp.F |
132 |
SEAICE_SOLVE4TEMP |
_RL absorbedSW (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
229 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
317 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = (1.0 _d 0 - ALB(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
413 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = -lwdownLoc(I,J) -absorbedSW(I,J) + F_lwu(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
476 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = 0.3 _d 0 *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
513 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = -lwdownLoc(I,J) -absorbedSW(I,J) + F_lwu(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
561 |
SEAICE_SOLVE4TEMP |
& -lwdownLoc(I,J), -absorbedSW(I,J), F_lwu(I,J) |