| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_solve4temp.F |
16 |
SEAICE_SOLVE4TEMP |
I UG, HICE_ACTUAL, HSNOW_ACTUAL, |
|
./pkg/seaice/seaice_solve4temp.F |
250 |
SEAICE_SOLVE4TEMP |
IF(HSNOW_ACTUAL(I,J).GT.0.0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
297 |
SEAICE_SOLVE4TEMP |
IF (HSNOW_ACTUAL(I,J) .GT. HCUT) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
303 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = MIN( ALB_ICE(I,J) + HSNOW_ACTUAL(I,J)*recip_HCUT |
|
./pkg/seaice/seaice_solve4temp.F |
311 |
SEAICE_SOLVE4TEMP |
IF (HSNOW_ACTUAL(I,J) .GT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
329 |
SEAICE_SOLVE4TEMP |
& (XKS * HICE_ACTUAL(I,J) + XKI * HSNOW_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
346 |
SEAICE_SOLVE4TEMP |
& HSNOW_ACTUAL(I,J), ALB(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
76 |
SEAICE_SOLVE4TEMP |
_RL HSNOW_ACTUAL(1:sNx,1:sNy) |