| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffields.F |
484 |
EXF_GETFFIELDS |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
619 |
EXF_GETFFIELDS |
CALL ROTATE_UV2EN_RL(tmpUX,tmpVY,tmpUE,tmpVN, |
|
./pkg/exf/exf_getffields.F |
626 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
63 |
EXF_GETFFIELDS |
_RL tmpUX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_getffields.F |
755 |
EXF_GETFFIELDS |
CALL ROTATE_UV2EN_RL(tmpUX,tmpVY,tmpUE,tmpVN, |
|
./pkg/exf/exf_getffields.F |
762 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
203 |
EXF_GETSURFACEFLUXES |
call ROTATE_UV2EN_RL(tmpUX,tmpVY,tmpUE,tmpVN, |
|
./pkg/exf/exf_getsurfacefluxes.F |
207 |
EXF_GETSURFACEFLUXES |
CALL EXCH_UV_XY_RL( tmpUX, tmpVY, .TRUE., myThid ) |
|
./pkg/exf/exf_getsurfacefluxes.F |
209 |
EXF_GETSURFACEFLUXES |
CALL EXCH_UV_AGRID_3D_RL( tmpUX, tmpVY, .TRUE., 1, myThid) |
|
./pkg/exf/exf_getsurfacefluxes.F |
216 |
EXF_GETSURFACEFLUXES |
ustress(i,j,bi,bj)=ustress(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
73 |
EXF_GETSURFACEFLUXES |
_RL tmpUX(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/exf/exf_getsurfacefluxes.F |
95 |
EXF_GETSURFACEFLUXES |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
307 |
CTRL_MAP_FORCING |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
331 |
CTRL_MAP_FORCING |
CALL ROTATE_UV2EN_RL(tmpUX,tmpVY,tmpUE,tmpVN, |
|
./pkg/ctrl/ctrl_map_forcing.F |
338 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj)=fu(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
61 |
CTRL_MAP_FORCING |
_RL tmpUX(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |