| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
68 |
NO PROCEDURE |
COMMON/GWATXY/GWATX,GWATY |
|
./pkg/seaice/SEAICE.h |
75 |
NO PROCEDURE |
_RL GWATY (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/seaice_model.F |
88 |
SEAICE_MODEL |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
137 |
DYNSOLVER |
& -COR_ICE(I,J,bi,bj)*GWATY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
239 |
DYNSOLVER |
& +(VICE(I,J,1,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
252 |
DYNSOLVER |
& -SINWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
255 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
346 |
DYNSOLVER |
& +(VICE(I,J,1,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
359 |
DYNSOLVER |
& -SINWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
362 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
58 |
OSTRES |
& -SINWAT*(GWATY(I,J,bi,bj)-VICEC(I,J,bi,bj))) |
|
./pkg/seaice/ostres.F |
61 |
OSTRES |
& +COSWAT*(GWATY(I,J,bi,bj)-VICE(I,J,1,bi,bj))) |
|
./pkg/seaice/ostres.F |
63 |
OSTRES |
& *GWATY(I,J,bi,bj)-COR_ICE(I,J,bi,bj)*VICEC(I,J,bi,bj)) |
|
./pkg/seaice/growth.F |
297 |
GROWTH |
CALL PLOT_FIELD_XYRS( GWATY,'Current GWATY ', myIter, myThid ) |