| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
241 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
243 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
246 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./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 |
250 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
253 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
348 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
350 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
353 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./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 |
357 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
360 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
385 |
DYNSOLVER |
CALL OSTRES ( DWATN, COR_ICE, myThid ) |
|
./pkg/seaice/dynsolver.F |
50 |
DYNSOLVER |
_RL DWATN (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/ostres.F |
115 |
OSTRES |
WINDX(I,J,bi,bj)=DWATN(I,J,bi,bj)* |
|
./pkg/seaice/ostres.F |
117 |
OSTRES |
WINDY(I,J,bi,bj)=DWATN(I,J,bi,bj)* |
|
./pkg/seaice/ostres.F |
25 |
OSTRES |
_RL DWATN (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/ostres.F |
56 |
OSTRES |
WINDX(I,J,bi,bj)=DWATN(I,J,bi,bj) |
|
./pkg/seaice/ostres.F |
59 |
OSTRES |
WINDY(I,J,bi,bj)=DWATN(I,J,bi,bj) |
|
./pkg/seaice/ostres.F |
7 |
OSTRES |
SUBROUTINE OSTRES( DWATN, COR_ICE, myThid ) |