| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
137 |
DYNSOLVER |
& -COR_ICE(I,J,bi,bj)*GWATY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
139 |
DYNSOLVER |
& +COR_ICE(I,J,bi,bj)*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
248 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj)*SINWAT+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
355 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj)*SINWAT+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
385 |
DYNSOLVER |
CALL OSTRES ( DWATN, COR_ICE, myThid ) |
|
./pkg/seaice/dynsolver.F |
56 |
DYNSOLVER |
_RL COR_ICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
89 |
DYNSOLVER |
COR_ICE(I,J,bi,bj)=AMASS(I,J,bi,bj) |
|
./pkg/seaice/ostres.F |
26 |
OSTRES |
_RL COR_ICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/ostres.F |
62 |
OSTRES |
WINDX(I,J,bi,bj)=WINDX(I,J,bi,bj)-( COR_ICE(I,J,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/ostres.F |
64 |
OSTRES |
WINDY(I,J,bi,bj)=WINDY(I,J,bi,bj)-(-COR_ICE(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/ostres.F |
7 |
OSTRES |
SUBROUTINE OSTRES( DWATN, COR_ICE, myThid ) |