| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
103 |
DYNSOLVER |
COR_ICE(I,J,bi,bj)=AMASS(I,J,bi,bj) * _fCoriG(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
210 |
DYNSOLVER |
& -COR_ICE(I,J,bi,bj)*GWATY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
212 |
DYNSOLVER |
& +COR_ICE(I,J,bi,bj)*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
335 |
DYNSOLVER |
& *SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
454 |
DYNSOLVER |
& *SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
493 |
DYNSOLVER |
CALL OSTRES ( COR_ICE, myThid ) |
|
./pkg/seaice/dynsolver.F |
59 |
DYNSOLVER |
_RL COR_ICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/ostres.F |
25 |
OSTRES |
_RL COR_ICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/ostres.F |
76 |
OSTRES |
& -SIGN(SINWAT,COR_ICE(I,J,bi,bj)) * |
|
./pkg/seaice/ostres.F |
7 |
OSTRES |
SUBROUTINE OSTRES( COR_ICE, myThid ) |
|
./pkg/seaice/ostres.F |
81 |
OSTRES |
& SIGN(SINWAT,COR_ICE(I,J,bi,bj)) * |