File |
Line number |
Procedure |
Code |
./model/src/rotate_uv2en.F |
100 |
ROTATE_UV2EN_RL |
tmpV(i,j) = 0.5 _d 0 |
./model/src/rotate_uv2en.F |
104 |
ROTATE_UV2EN_RL |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
./model/src/rotate_uv2en.F |
113 |
ROTATE_UV2EN_RL |
tmpV(i,j) = vFldY(i,j,k,bi,bj) |
./model/src/rotate_uv2en.F |
116 |
ROTATE_UV2EN_RL |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
./model/src/rotate_uv2en.F |
127 |
ROTATE_UV2EN_RL |
& -angleSinC(i,j,bi,bj)*tmpV(i,j) |
./model/src/rotate_uv2en.F |
130 |
ROTATE_UV2EN_RL |
& +angleCosC(i,j,bi,bj)*tmpV(i,j) |
./model/src/rotate_uv2en.F |
143 |
ROTATE_UV2EN_RL |
tmpV(i,j) = |
./model/src/rotate_uv2en.F |
162 |
ROTATE_UV2EN_RL |
& *( tmpV(i,j-1) + tmpV(i,j) ) |
./model/src/rotate_uv2en.F |
174 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj) = tmpV(i,j) |
./model/src/rotate_uv2en.F |
244 |
ROTATE_UV2EN_RS |
_RS tmpV(1-olx:snx+olx,1-oly:sny+oly) |
./model/src/rotate_uv2en.F |
273 |
ROTATE_UV2EN_RS |
tmpV(i,sny+Oly)=0. |
./model/src/rotate_uv2en.F |
277 |
ROTATE_UV2EN_RS |
tmpV(snx+Olx,j)=0. |
./model/src/rotate_uv2en.F |
281 |
ROTATE_UV2EN_RS |
tmpV(i,j) = 0.5 _d 0 |
./model/src/rotate_uv2en.F |
285 |
ROTATE_UV2EN_RS |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
./model/src/rotate_uv2en.F |
294 |
ROTATE_UV2EN_RS |
tmpV(i,j) = vFldY(i,j,k,bi,bj) |
./model/src/rotate_uv2en.F |
297 |
ROTATE_UV2EN_RS |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
./model/src/rotate_uv2en.F |
308 |
ROTATE_UV2EN_RS |
& -angleSinC(i,j,bi,bj)*tmpV(i,j) |
./model/src/rotate_uv2en.F |
311 |
ROTATE_UV2EN_RS |
& +angleCosC(i,j,bi,bj)*tmpV(i,j) |
./model/src/rotate_uv2en.F |
324 |
ROTATE_UV2EN_RS |
tmpV(i,j) = |
./model/src/rotate_uv2en.F |
343 |
ROTATE_UV2EN_RS |
& *( tmpV(i,j-1) + tmpV(i,j) ) |
./model/src/rotate_uv2en.F |
355 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj) = tmpV(i,j) |
./model/src/rotate_uv2en.F |
63 |
ROTATE_UV2EN_RL |
_RL tmpV(1-olx:snx+olx,1-oly:sny+oly) |
./model/src/rotate_uv2en.F |
92 |
ROTATE_UV2EN_RL |
tmpV(i,sny+Oly)=0. |
./model/src/rotate_uv2en.F |
96 |
ROTATE_UV2EN_RL |
tmpV(snx+Olx,j)=0. |
./pkg/debug/debug_cs_corner_uv.F |
109 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1,1), n2,tmpV(4,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
110 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1,1) - tmpV(4,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
112 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1,1), n2,tmpV(3,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
113 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1,1) - tmpV(3,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
125 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1,1), n3,tmpV(3,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
126 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1,1) - tmpV(3,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
128 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1,1), n3,tmpV(4,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
129 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1,1) - tmpV(4,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
133 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1,1), n3,tmpU(4,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
134 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1,1) - tmpU(4,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
136 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1,1), n3,tmpU(3,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
137 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1,1) - tmpU(3,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
151 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1,1), n2,tmpV(4,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
152 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1,1) - tmpV(4,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
154 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1,1), n2,tmpV(3,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
155 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1,1) - tmpV(3,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
157 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1,1), n3,tmpV(3,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
158 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1,1) - tmpV(3,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
160 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1,1), n3,tmpV(4,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
161 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1,1) - tmpV(4,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
178 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1,1), n3,tmpU(4,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
179 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1,1) - tmpU(4,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
181 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1,1), n3,tmpU(3,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
182 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1,1) - tmpU(3,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
55 |
DEBUG_CS_CORNER_UV |
COMMON / DEBUG_CS_CORNER_UV_LOCAL / tmpU, tmpV |
./pkg/debug/debug_cs_corner_uv.F |
57 |
DEBUG_CS_CORNER_UV |
_RL tmpV(4,Nr,nSx,nSy) |
./pkg/debug/debug_cs_corner_uv.F |
82 |
DEBUG_CS_CORNER_UV |
tmpV(1,k,bi,bj)= vFld(j,1) |
./pkg/debug/debug_cs_corner_uv.F |
83 |
DEBUG_CS_CORNER_UV |
tmpV(2,k,bi,bj)= vFld(sNx+1-j,1) |
./pkg/debug/debug_cs_corner_uv.F |
84 |
DEBUG_CS_CORNER_UV |
tmpV(3,k,bi,bj)= vFld(j,sNy+1) |
./pkg/debug/debug_cs_corner_uv.F |
85 |
DEBUG_CS_CORNER_UV |
tmpV(4,k,bi,bj)= vFld(sNx+1-j,sNy+1) |
./pkg/diagnostics/diagnostics_fill_state.F |
116 |
DIAGNOSTICS_FILL_STATE |
tmpV(i,j) = angleSinC(i,j,bi,bj)*uBarC |
./pkg/diagnostics/diagnostics_fill_state.F |
118 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = tmpU(i,j)*tmpV(i,j) |
./pkg/diagnostics/diagnostics_fill_state.F |
122 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpV,'VN_VEL_C',k,1,2,bi,bj,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
48 |
DIAGNOSTICS_FILL_STATE |
_RL tmpV (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/ecco/cost_scat.F |
141 |
COST_SCAT |
tmpV(i,j,bi,bj) = angleSinC(i,j,bi,bj)*uBarC |
./pkg/ecco/cost_scat.F |
183 |
COST_SCAT |
tauybar(i,j,bi,bj)=tmpV(i,j,bi,bj) |
./pkg/ecco/cost_scat.F |
66 |
COST_SCAT |
_RL tmpV (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nsx,nsy) |