| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice.F |
149 |
SEAICE_BUDGET_ICE |
IF(hSnwLoc(I,J).GT.HCUT) THEN |
|
./pkg/seaice/seaice_budget_ice.F |
152 |
SEAICE_BUDGET_ICE |
ALB(I,J)=ALB(I,J) + (hSnwLoc(I,J)/HCUT)*(ASNOW-ALB(I,J)) |
|
./pkg/seaice/seaice_budget_ice.F |
160 |
SEAICE_BUDGET_ICE |
IF(hSnwLoc(I,J).GT.0.0) THEN |
|
./pkg/seaice/seaice_budget_ice.F |
201 |
SEAICE_BUDGET_ICE |
& XKS/(hSnwLoc(I,J)/hice(I,J)+XKS/XKI)/hice(I,J) |
|
./pkg/seaice/seaice_budget_ice.F |
241 |
SEAICE_BUDGET_ICE |
IF(hSnwLoc(I,J).GT.0.0) THEN |
|
./pkg/seaice/seaice_budget_ice.F |
8 |
SEAICE_BUDGET_ICE |
I UG, hIce, hSnwLoc, |
|
./pkg/seaice/seaice_growth.F |
228 |
SEAICE_GROWTH |
hSnwLoc(I,J) = HSNOW(I,J,bi,bj)/areaLoc |
|
./pkg/seaice/seaice_growth.F |
316 |
SEAICE_GROWTH |
I UG, HICEP, hSnwLoc, |
|
./pkg/seaice/seaice_growth.F |
332 |
SEAICE_GROWTH |
I UG, HICE, hSnwLoc, |
|
./pkg/seaice/seaice_growth.F |
95 |
SEAICE_GROWTH |
_RL hSnwLoc (1:sNx,1:sNy) |