| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
202 |
NO PROCEDURE |
COMMON/SEAICE_KGEO/KGEO |
|
./pkg/seaice/SEAICE.h |
203 |
NO PROCEDURE |
INTEGER KGEO (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
79 |
DYNSOLVER |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
80 |
DYNSOLVER |
& +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/dynsolver.F |
81 |
DYNSOLVER |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
82 |
DYNSOLVER |
& +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/seaice_init_fixed.F |
170 |
SEAICE_INIT_FIXED |
KGEO(i,j,bi,bj) = 0 |
|
./pkg/seaice/seaice_init_fixed.F |
176 |
SEAICE_INIT_FIXED |
KGEO(i,j,bi,bj) = 1 |
|
./pkg/seaice/seaice_init_fixed.F |
179 |
SEAICE_INIT_FIXED |
KGEO(i,j,bi,bj) = 1 |
|
./pkg/seaice/seaice_init_fixed.F |
181 |
SEAICE_INIT_FIXED |
KGEO(i,j,bi,bj) = 2 |
|
./pkg/seaice/seaice_init_fixed.F |
182 |
SEAICE_INIT_FIXED |
DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND. |
|
./pkg/seaice/seaice_init_fixed.F |
183 |
SEAICE_INIT_FIXED |
& KGEO(i,j,bi,bj) .LT. (klowc(i,j,bi,bj)-1) ) |
|
./pkg/seaice/seaice_init_fixed.F |
184 |
SEAICE_INIT_FIXED |
KGEO(i,j,bi,bj) = KGEO(i,j,bi,bj) + 1 |