| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
68 |
NO PROCEDURE |
COMMON/GWATXY/GWATX,GWATY |
|
./pkg/seaice/SEAICE.h |
74 |
NO PROCEDURE |
_RL GWATX (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/seaice_model.F |
86 |
SEAICE_MODEL |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
139 |
DYNSOLVER |
& +COR_ICE(I,J,bi,bj)*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
238 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
251 |
DYNSOLVER |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
254 |
DYNSOLVER |
& *(SINWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
345 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
358 |
DYNSOLVER |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
361 |
DYNSOLVER |
& *(SINWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/ostres.F |
116 |
OSTRES |
& (UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
118 |
OSTRES |
& (UICEC(I,J,bi,bj)-GWATX(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
57 |
OSTRES |
& *(COSWAT*(GWATX(I,J,bi,bj)-UICE(I,J,1,bi,bj)) |
|
./pkg/seaice/ostres.F |
60 |
OSTRES |
& *(SINWAT*(GWATX(I,J,bi,bj)-UICEC(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
65 |
OSTRES |
& *GWATX(I,J,bi,bj)+COR_ICE(I,J,bi,bj)*UICEC(I,J,bi,bj)) |
|
./pkg/seaice/growth.F |
296 |
GROWTH |
CALL PLOT_FIELD_XYRS( GWATX,'Current GWATX ', myIter, myThid ) |