File |
Line number |
Procedure |
Code |
./model/src/rotate_uv2en.F |
103 |
ROTATE_UV2EN_RL |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
./model/src/rotate_uv2en.F |
112 |
ROTATE_UV2EN_RL |
tmpU(i,j) = uFldX(i,j,k,bi,bj) |
./model/src/rotate_uv2en.F |
115 |
ROTATE_UV2EN_RL |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
./model/src/rotate_uv2en.F |
126 |
ROTATE_UV2EN_RL |
& angleCosC(i,j,bi,bj)*tmpU(i,j) |
./model/src/rotate_uv2en.F |
129 |
ROTATE_UV2EN_RL |
& angleSinC(i,j,bi,bj)*tmpU(i,j) |
./model/src/rotate_uv2en.F |
140 |
ROTATE_UV2EN_RL |
tmpU(i,j) = |
./model/src/rotate_uv2en.F |
160 |
ROTATE_UV2EN_RL |
& *( tmpU(i-1,j) + tmpU(i,j) ) |
./model/src/rotate_uv2en.F |
173 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj) = tmpU(i,j) |
./model/src/rotate_uv2en.F |
243 |
ROTATE_UV2EN_RS |
_RS tmpU(1-olx:snx+olx,1-oly:sny+oly) |
./model/src/rotate_uv2en.F |
272 |
ROTATE_UV2EN_RS |
tmpU(i,sny+Oly)=0. |
./model/src/rotate_uv2en.F |
276 |
ROTATE_UV2EN_RS |
tmpU(snx+Olx,j)=0. |
./model/src/rotate_uv2en.F |
279 |
ROTATE_UV2EN_RS |
tmpU(i,j) = 0.5 _d 0 |
./model/src/rotate_uv2en.F |
284 |
ROTATE_UV2EN_RS |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
./model/src/rotate_uv2en.F |
293 |
ROTATE_UV2EN_RS |
tmpU(i,j) = uFldX(i,j,k,bi,bj) |
./model/src/rotate_uv2en.F |
296 |
ROTATE_UV2EN_RS |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
./model/src/rotate_uv2en.F |
307 |
ROTATE_UV2EN_RS |
& angleCosC(i,j,bi,bj)*tmpU(i,j) |
./model/src/rotate_uv2en.F |
310 |
ROTATE_UV2EN_RS |
& angleSinC(i,j,bi,bj)*tmpU(i,j) |
./model/src/rotate_uv2en.F |
321 |
ROTATE_UV2EN_RS |
tmpU(i,j) = |
./model/src/rotate_uv2en.F |
341 |
ROTATE_UV2EN_RS |
& *( tmpU(i-1,j) + tmpU(i,j) ) |
./model/src/rotate_uv2en.F |
354 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj) = tmpU(i,j) |
./model/src/rotate_uv2en.F |
62 |
ROTATE_UV2EN_RL |
_RL tmpU(1-olx:snx+olx,1-oly:sny+oly) |
./model/src/rotate_uv2en.F |
91 |
ROTATE_UV2EN_RL |
tmpU(i,sny+Oly)=0. |
./model/src/rotate_uv2en.F |
95 |
ROTATE_UV2EN_RL |
tmpU(snx+Olx,j)=0. |
./model/src/rotate_uv2en.F |
98 |
ROTATE_UV2EN_RL |
tmpU(i,j) = 0.5 _d 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 |
117 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1,1), n2,tmpU(3,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
118 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1,1) - tmpU(3,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
120 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1,1), n2,tmpU(4,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
121 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1,1) - tmpU(4,k,n2,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 |
172 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1,1), n2,tmpU(3,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
173 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1,1) - tmpU(3,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
175 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1,1), n2,tmpU(4,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
176 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1,1) - tmpU(4,k,n2,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 |
56 |
DEBUG_CS_CORNER_UV |
_RL tmpU(4,Nr,nSx,nSy) |
./pkg/debug/debug_cs_corner_uv.F |
78 |
DEBUG_CS_CORNER_UV |
tmpU(1,k,bi,bj)= uFld(1,j) |
./pkg/debug/debug_cs_corner_uv.F |
79 |
DEBUG_CS_CORNER_UV |
tmpU(2,k,bi,bj)= uFld(1,sNy+1-j) |
./pkg/debug/debug_cs_corner_uv.F |
80 |
DEBUG_CS_CORNER_UV |
tmpU(3,k,bi,bj)= uFld(sNx+1,j) |
./pkg/debug/debug_cs_corner_uv.F |
81 |
DEBUG_CS_CORNER_UV |
tmpU(4,k,bi,bj)= uFld(sNx+1,sNy+1-j) |
./pkg/diagnostics/diagnostics_fill_state.F |
114 |
DIAGNOSTICS_FILL_STATE |
tmpU(i,j) = angleCosC(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 |
121 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpU,'UE_VEL_C',k,1,2,bi,bj,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
47 |
DIAGNOSTICS_FILL_STATE |
_RL tmpU (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/ecco/cost_scat.F |
139 |
COST_SCAT |
tmpU(i,j,bi,bj) = angleCosC(i,j,bi,bj)*uBarC |
./pkg/ecco/cost_scat.F |
163 |
COST_SCAT |
tauxbar(i,j,bi,bj)=tmpU(i,j,bi,bj) |
./pkg/ecco/cost_scat.F |
65 |
COST_SCAT |
_RL tmpU (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nsx,nsy) |