| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
170 |
SEAICE_BUDGET_ICE_IF |
IF (HSNOW_ACTUAL(I,J) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
176 |
SEAICE_BUDGET_ICE_IF |
IF (HSNOW_ACTUAL(I,J) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
184 |
SEAICE_BUDGET_ICE_IF |
IF (HSNOW_ACTUAL(I,J) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
190 |
SEAICE_BUDGET_ICE_IF |
IF (HSNOW_ACTUAL(I,J) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
200 |
SEAICE_BUDGET_ICE_IF |
IF (HSNOW_ACTUAL(I,J) .GT. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
221 |
SEAICE_BUDGET_ICE_IF |
& (XKS * HICE_ACTUAL(I,J) + XKI * HSNOW_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
48 |
SEAICE_BUDGET_ICE_IF |
_RL HSNOW_ACTUAL (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_budget_ice_if.F |
8 |
SEAICE_BUDGET_ICE_IF |
I UG, HICE_ACTUAL, HSNOW_ACTUAL, |
|
./pkg/seaice/seaice_growth_if.F |
1023 |
SEAICE_GROWTH_IF |
deltaHS = FL_C2*( HSNOW_ACTUAL(I,J) - |
|
./pkg/seaice/seaice_growth_if.F |
1032 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J)= HSNOW_ACTUAL(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
1038 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = HSNOW_ACTUAL(I,J)* |
|
./pkg/seaice/seaice_growth_if.F |
369 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J) = HSNOW(I,J,bi,bj)/ |
|
./pkg/seaice/seaice_growth_if.F |
405 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
446 |
SEAICE_GROWTH_IF |
I UG, HICE_ACTUAL, HSNOW_ACTUAL, |
|
./pkg/seaice/seaice_growth_if.F |
515 |
SEAICE_GROWTH_IF |
& HSNOW_ACTUAL(I,J)) THEN |
|
./pkg/seaice/seaice_growth_if.F |
517 |
SEAICE_GROWTH_IF |
SnowMeltFromSurface(I,J) = HSNOW_ACTUAL(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
525 |
SEAICE_GROWTH_IF |
& -HSNOW_ACTUAL(I,J)/QS/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth_if.F |
79 |
SEAICE_GROWTH_IF |
_RL HSNOW_ACTUAL(1-OLx:sNx+OLx, 1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_growth_if.F |
802 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
806 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
828 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J) = 0.0 |
|
./pkg/seaice/seaice_solve4temp.F |
10 |
SEAICE_SOLVE4TEMP |
I UG, HICE_ACTUAL, HSNOW_ACTUAL, |
|
./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* |
|
./pkg/seaice/seaice_solve4temp.F |
299 |
SEAICE_SOLVE4TEMP |
IF (HSNOW_ACTUAL(I,J) .GT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
310 |
SEAICE_SOLVE4TEMP |
IF(HSNOW_ACTUAL(I,J).GT.0.0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
333 |
SEAICE_SOLVE4TEMP |
IF (HSNOW_ACTUAL(I,J) .GT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
364 |
SEAICE_SOLVE4TEMP |
& XKS/(HSNOW_ACTUAL(I,J)/HICE_ACTUAL(I,J) + |
|
./pkg/seaice/seaice_solve4temp.F |
368 |
SEAICE_SOLVE4TEMP |
& (XKS * hice_tmp + XKI * HSNOW_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
391 |
SEAICE_SOLVE4TEMP |
& HSNOW_ACTUAL(I,J), ALB(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
540 |
SEAICE_SOLVE4TEMP |
IF (HSNOW_ACTUAL(I,J) .GT. 0.0 _d 0 ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
68 |
SEAICE_SOLVE4TEMP |
_RL HSNOW_ACTUAL (1:sNx,1:sNy) |