| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
69 |
NO PROCEDURE |
COMMON/WIND/WINDX,WINDY |
|
./pkg/seaice/SEAICE.h |
76 |
NO PROCEDURE |
_RL WINDX (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
117 |
DYNSOLVER |
WINDX(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(COSWIN*U1-SINWIN*V1) |
|
./pkg/seaice/ostres.F |
115 |
OSTRES |
WINDX(I,J,bi,bj)=DWATN(I,J,bi,bj)* |
|
./pkg/seaice/ostres.F |
121 |
OSTRES |
& (WINDX(I,J+1,bi,bj)+WINDX(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
56 |
OSTRES |
WINDX(I,J,bi,bj)=DWATN(I,J,bi,bj) |
|
./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 |
66 |
OSTRES |
WINDX(I,J,bi,bj)=WINDX(I,J,bi,bj)-(UICE(I,J,1,bi,bj) |
|
./pkg/seaice/ostres.F |
78 |
OSTRES |
WINDX(I,J,bi,bj)=-WINDX(I,J,bi,bj) |
|
./pkg/seaice/ostres.F |
89 |
OSTRES |
CALL EXCH_UV_XY_RL(WINDX, WINDY, .TRUE., myThid) |
|
./pkg/seaice/ostres.F |
99 |
OSTRES |
& *(WINDX(I,J+1,bi,bj)+WINDX(I,J,bi,bj)) |