File |
Line number |
Procedure |
Code |
./pkg/seaice/SEAICE.h |
214 |
NO PROCEDURE |
COMMON/WIND_STRESS_OCE/WINDX,WINDY |
./pkg/seaice/SEAICE.h |
217 |
NO PROCEDURE |
_RL WINDX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/dynsolver.F |
137 |
DYNSOLVER |
WINDX(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
./pkg/seaice/ostres.F |
46 |
OSTRES |
CALL EXCH_UV_XY_RL(WINDX, WINDY, .TRUE., myThid) |
./pkg/seaice/ostres.F |
56 |
OSTRES |
& *(WINDX(I,J+1,bi,bj)+WINDX(I,J,bi,bj)) |
./pkg/seaice/seaice_init_varia.F |
297 |
SEAICE_INIT_VARIA |
WINDX(i,j,bi,bj) = 0. _d 0 |