| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
225 |
NO PROCEDURE |
COMMON/SEAICE_KGEO/KGEO |
|
./pkg/seaice/SEAICE.h |
226 |
NO PROCEDURE |
INTEGER KGEO (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
81 |
DYNSOLVER |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
82 |
DYNSOLVER |
& +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/dynsolver.F |
83 |
DYNSOLVER |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
84 |
DYNSOLVER |
& +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/seaice_init_varia.F |
228 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = 0 |
|
./pkg/seaice/seaice_init_varia.F |
234 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = 1 |
|
./pkg/seaice/seaice_init_varia.F |
237 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = 1 |
|
./pkg/seaice/seaice_init_varia.F |
239 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = 2 |
|
./pkg/seaice/seaice_init_varia.F |
240 |
SEAICE_INIT_VARIA |
DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND. |
|
./pkg/seaice/seaice_init_varia.F |
241 |
SEAICE_INIT_VARIA |
& KGEO(i,j,bi,bj) .LT. (klowc(i,j,bi,bj)-1) ) |
|
./pkg/seaice/seaice_init_varia.F |
242 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = KGEO(i,j,bi,bj) + 1 |