| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
121 |
SEAICE_BUDGET_ICE_IF |
HCUT=SEAICE_snowThick |
|
./pkg/seaice/seaice_budget_ice_if.F |
77 |
SEAICE_BUDGET_ICE_IF |
_RL TMELT, TMELTP, XKI, XKS, HCUT, ASNOW, XIO |
|
./pkg/seaice/seaice_solve4temp.F |
118 |
SEAICE_SOLVE4TEMP |
_RL TMELT, XKI, XKS, HCUT, XIO |
|
./pkg/seaice/seaice_solve4temp.F |
199 |
SEAICE_SOLVE4TEMP |
HCUT=SEAICE_snowThick |
|
./pkg/seaice/seaice_solve4temp.F |
287 |
SEAICE_SOLVE4TEMP |
IF (HSNOW_ACTUAL(I,J) .GT. HCUT) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
293 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = MIN(ALB_ICE(I,J) + HSNOW_ACTUAL(I,J)/HCUT* |