| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
220 |
NO PROCEDURE |
COMMON/GWATXY/GWATX,GWATY |
|
./pkg/seaice/SEAICE.h |
222 |
NO PROCEDURE |
_RL GWATY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
217 |
DYNSOLVER |
& -COR_ICE(I,J,bi,bj)*GWATY(I,J,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/lsr.F |
224 |
LSR |
& +(vIce(I,J,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/lsr.F |
247 |
LSR |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
250 |
LSR |
& +COSWAT*GWATY(I,J,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,J+1,bi,bj)-GWATY(I,J+1,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 |
300 |
SEAICE_INIT_VARIA |
GWATY(i,j,bi,bj) = 0. _d 0 |