| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
197 |
NO PROCEDURE |
COMMON/GWATXY/GWATX,GWATY |
|
./pkg/seaice/SEAICE.h |
199 |
NO PROCEDURE |
_RL GWATY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
210 |
DYNSOLVER |
& -COR_ICE(I,J,bi,bj)*GWATY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
317 |
DYNSOLVER |
& +(VICE(I,J,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
339 |
DYNSOLVER |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
342 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
436 |
DYNSOLVER |
& +(VICE(I,J,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
458 |
DYNSOLVER |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
461 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,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/ostres.F |
77 |
OSTRES |
& ( VICE(I, J,bi,bj)-GWATY(I, J,bi,bj) |
|
./pkg/seaice/ostres.F |
78 |
OSTRES |
& + VICE(I+1,J,bi,bj)-GWATY(I+1,J,bi,bj) ) |
|
./pkg/seaice/ostres.F |
85 |
OSTRES |
& ( VICE(I, J,bi,bj)-GWATY(I, J,bi,bj) |
|
./pkg/seaice/ostres.F |
86 |
OSTRES |
& + VICE(I+1,J,bi,bj)-GWATY(I+1,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
116 |
SEAICE_INIT_VARIA |
GWATY(i,j,bi,bj) = 0. _d 0 |