| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
220 |
NO PROCEDURE |
COMMON/GWATXY/GWATX,GWATY |
|
./pkg/seaice/SEAICE.h |
221 |
NO PROCEDURE |
_RL GWATX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
219 |
DYNSOLVER |
& +COR_ICE(I,J,bi,bj)*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
81 |
DYNSOLVER |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/lsr.F |
223 |
LSR |
TEMPVAR=(uIce(I,J,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/lsr.F |
246 |
LSR |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
249 |
LSR |
& *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj) |
|
./pkg/seaice/ostres.F |
74 |
OSTRES |
& ( UICE(I,J, bi,bj)-GWATX(I,J, bi,bj) |
|
./pkg/seaice/ostres.F |
75 |
OSTRES |
& + UICE(I,J+1,bi,bj)-GWATX(I,J+1,bi,bj) ) |
|
./pkg/seaice/ostres.F |
82 |
OSTRES |
& ( UICE(I, J,bi,bj)-GWATX(I, J,bi,bj) |
|
./pkg/seaice/ostres.F |
83 |
OSTRES |
& + UICE(I+1,J,bi,bj)-GWATX(I+1,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
299 |
SEAICE_INIT_VARIA |
GWATX(i,j,bi,bj) = 0. _d 0 |