| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/budget.F |
110 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
118 |
BUDGET |
FICE1(I,J,bi,bj)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/budget.F |
156 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
161 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
205 |
BUDGET |
& +(A1(I,J)+A2(I,J)+B(I,J))/A3(I,J) |
|
./pkg/seaice/budget.F |
221 |
BUDGET |
FICE1(I,J,bi,bj)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/budget.F |
52 |
BUDGET |
_RL A1 (1-OLx:sNx+OLx, 1-OLy:sNy+OLy) |