| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
92 |
NO PROCEDURE |
COMMON/SEAICE_KGEO/KGEO |
|
./pkg/seaice/SEAICE.h |
93 |
NO PROCEDURE |
integer KGEO (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/seaice_model.F |
86 |
SEAICE_MODEL |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/seaice_model.F |
87 |
SEAICE_MODEL |
& +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/seaice_model.F |
88 |
SEAICE_MODEL |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/seaice_model.F |
89 |
SEAICE_MODEL |
& +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/seaice_init.F |
226 |
SEAICE_INIT |
KGEO(I,J,bi,bj) = 1 |
|
./pkg/seaice/seaice_init.F |
229 |
SEAICE_INIT |
KGEO(I,J,bi,bj) = 1 |
|
./pkg/seaice/seaice_init.F |
231 |
SEAICE_INIT |
KGEO(I,J,bi,bj) = 2 |
|
./pkg/seaice/seaice_init.F |
232 |
SEAICE_INIT |
DO WHILE ( abs(rC(KGEO(I,J,bi,bj))) .LT. 50.0 .AND. |
|
./pkg/seaice/seaice_init.F |
233 |
SEAICE_INIT |
& KGEO(I,J,bi,bj) .LT. (klowc(i,j,bi,bj)-1) ) |
|
./pkg/seaice/seaice_init.F |
234 |
SEAICE_INIT |
KGEO(I,J,bi,bj) = KGEO(I,J,bi,bj) + 1 |