| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
69 |
NO PROCEDURE |
COMMON/WIND/WINDX,WINDY |
|
./pkg/seaice/SEAICE.h |
77 |
NO PROCEDURE |
_RL WINDY (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
118 |
DYNSOLVER |
WINDY(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(SINWIN*U1+COSWIN*V1) |
|
./pkg/seaice/ostres.F |
101 |
OSTRES |
& *(WINDY(I+1,J,bi,bj)+WINDY(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
117 |
OSTRES |
WINDY(I,J,bi,bj)=DWATN(I,J,bi,bj)* |
|
./pkg/seaice/ostres.F |
124 |
OSTRES |
& (WINDY(I+1,J,bi,bj)+WINDY(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
59 |
OSTRES |
WINDY(I,J,bi,bj)=DWATN(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 |
68 |
OSTRES |
WINDY(I,J,bi,bj)=WINDY(I,J,bi,bj)-(VICE(I,J,1,bi,bj) |
|
./pkg/seaice/ostres.F |
79 |
OSTRES |
WINDY(I,J,bi,bj)=-WINDY(I,J,bi,bj) |
|
./pkg/seaice/ostres.F |
89 |
OSTRES |
CALL EXCH_UV_XY_RL(WINDX, WINDY, .TRUE., myThid) |