| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
164 |
SEAICE_BUDGET_ICE_IF |
IF (HICE_ACTUAL(I,J) .GT. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
203 |
SEAICE_BUDGET_ICE_IF |
& XIO*EXP(-1.5 _d 0 * HICE_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
217 |
SEAICE_BUDGET_ICE_IF |
HICE_ACTUAL(I,J) = max(HICE_ACTUAL(I,J),5. _d -2) |
|
./pkg/seaice/seaice_budget_ice_if.F |
220 |
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 HICE_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 |
1022 |
SEAICE_GROWTH_IF |
& HICE_ACTUAL(I,J)*FL_C3 ) |
|
./pkg/seaice/seaice_growth_if.F |
1027 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = HICE_ACTUAL(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
1033 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj)= HICE_ACTUAL(I,J) * |
|
./pkg/seaice/seaice_growth_if.F |
364 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
402 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
444 |
SEAICE_GROWTH_IF |
I UG, HICE_ACTUAL, HSNOW_ACTUAL, |
|
./pkg/seaice/seaice_growth_if.F |
74 |
SEAICE_GROWTH_IF |
_RL HICE_ACTUAL (1-OLx:sNx+OLx, 1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_growth_if.F |
798 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
803 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
824 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = 0.0 |