| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/groatb.F |
115 |
GROATB |
UG(I,J)=SEAICE_EPS |
|
./pkg/seaice/groatb.F |
117 |
GROATB |
UG(I,J)=SQRT(SPEED_SQ) |
|
./pkg/seaice/groatb.F |
132 |
GROATB |
CALL BUDGET(UG, TMIX, HICE, FO, KOPEN, bi, bj) |
|
./pkg/seaice/groatb.F |
155 |
GROATB |
CALL BUDGET(UG, TICE, HICEP, FICE, KOPEN, bi, bj) |
|
./pkg/seaice/groatb.F |
176 |
GROATB |
CALL BUDGET(UG, TICE, HICE, FICE, KOPEN, bi, bj) |
|
./pkg/seaice/groatb.F |
47 |
GROATB |
_RL UG (1-OLx:sNx+OLx, 1-OLy:sNy+OLy) |
|
./pkg/seaice/budget.F |
112 |
BUDGET |
& +D1*UG(I,J)*ATEMP(I,J,bi,bj)+D1W*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
116 |
BUDGET |
A2(I,J)=-D1*UG(I,J)*TICE(I,J,bi,bj)-D1W*UG(I,J)*B(I,J) |
|
./pkg/seaice/budget.F |
158 |
BUDGET |
& +D1*UG(I,J)*ATEMP(I,J,bi,bj)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
164 |
BUDGET |
& +D1*UG(I,J)*ATEMP(I,J,bi,bj)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
188 |
BUDGET |
A2(I,J)=-D1*UG(I,J)*TICE(I,J,bi,bj)-D1I*UG(I,J)*B(I,J) |
|
./pkg/seaice/budget.F |
191 |
BUDGET |
A3(I,J)=4.0 _d +00*D3*(TICE(I,J,bi,bj)**3)+B(I,J)+D1*UG(I,J) |
|
./pkg/seaice/budget.F |
34 |
BUDGET |
_RL UG (1-OLx:sNx+OLx, 1-OLy:sNy+OLy) |
|
./pkg/seaice/budget.F |
7 |
BUDGET |
SUBROUTINE BUDGET(UG, TICE, HICE1, FICE1, KOPEN, bi, bj) |