File |
Line number |
Procedure |
Code |
./pkg/seaice/SEAICE.h |
214 |
NO PROCEDURE |
COMMON/WIND_STRESS_OCE/WINDX,WINDY |
./pkg/seaice/SEAICE.h |
218 |
NO PROCEDURE |
_RL WINDY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/dynsolver.F |
139 |
DYNSOLVER |
WINDY(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 |
58 |
OSTRES |
& *(WINDY(I+1,J,bi,bj)+WINDY(I,J,bi,bj)) |
./pkg/seaice/seaice_init_varia.F |
298 |
SEAICE_INIT_VARIA |
WINDY(i,j,bi,bj) = 0. _d 0 |