| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
165 |
SEAICE_BUDGET_ICE_IF |
IF (HICE_ACTUAL(I,J) .GT. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
204 |
SEAICE_BUDGET_ICE_IF |
& XIO*EXP(-1.5 _d 0 * HICE_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
218 |
SEAICE_BUDGET_ICE_IF |
HICE_ACTUAL(I,J) = max(HICE_ACTUAL(I,J),5. _d -2) |
|
./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 |
47 |
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 |
1024 |
SEAICE_GROWTH_IF |
& HICE_ACTUAL(I,J)*FL_C3 ) |
|
./pkg/seaice/seaice_growth_if.F |
1029 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = HICE_ACTUAL(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
1035 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj)= HICE_ACTUAL(I,J) * |
|
./pkg/seaice/seaice_growth_if.F |
366 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
404 |
SEAICE_GROWTH_IF |
HICE_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 |
76 |
SEAICE_GROWTH_IF |
_RL HICE_ACTUAL (1-OLx:sNx+OLx, 1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_growth_if.F |
800 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
805 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
826 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = 0.0 |
|
./pkg/seaice/seaice_solve4temp.F |
10 |
SEAICE_SOLVE4TEMP |
I UG, HICE_ACTUAL, HSNOW_ACTUAL, |
|
./pkg/seaice/seaice_solve4temp.F |
210 |
SEAICE_SOLVE4TEMP |
iceOrNot (I,J) = HICE_ACTUAL(I,J) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
318 |
SEAICE_SOLVE4TEMP |
& *(1.0 _d 0 - XIO*EXP(-1.5 _d 0*HICE_ACTUAL(I,J))) |
|
./pkg/seaice/seaice_solve4temp.F |
337 |
SEAICE_SOLVE4TEMP |
& XIO*EXP(-1.5 _d 0 * HICE_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
356 |
SEAICE_SOLVE4TEMP |
hice_tmp = max(HICE_ACTUAL(I,J),5. _d -2) |
|
./pkg/seaice/seaice_solve4temp.F |
364 |
SEAICE_SOLVE4TEMP |
& XKS/(HSNOW_ACTUAL(I,J)/HICE_ACTUAL(I,J) + |
|
./pkg/seaice/seaice_solve4temp.F |
365 |
SEAICE_SOLVE4TEMP |
& XKS/XKI)/HICE_ACTUAL(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
387 |
SEAICE_SOLVE4TEMP |
& HICE_ACTUAL(I,J), effConduct(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
548 |
SEAICE_SOLVE4TEMP |
& *XIO*EXP(-1.5 _d 0*HICE_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
67 |
SEAICE_SOLVE4TEMP |
_RL HICE_ACTUAL (1:sNx,1:sNy) |