| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
117 |
GMREDI_K3D |
_RL tmpU( 1-Olx:sNx+Olx,1-Oly:sNy+Oly ) |
|
./pkg/gmredi/gmredi_k3d.F |
370 |
GMREDI_K3D |
tmpU(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
375 |
GMREDI_K3D |
tmpU(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
378 |
GMREDI_K3D |
tmpU(i,j) = 0.5 _d 0 |
|
./pkg/gmredi/gmredi_k3d.F |
383 |
GMREDI_K3D |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
391 |
GMREDI_K3D |
& angleCosC(i,j,bi,bj)*tmpU(i,j) |
|
./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 |
121 |
DEBUG_CS_CORNER_UV |
& t1,tmpU(1,k,n1), t2,tmpV(4,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
122 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1) - tmpV(4,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
124 |
DEBUG_CS_CORNER_UV |
& t1,tmpU(2,k,n1), t2,tmpV(3,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
125 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1) - tmpV(3,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
129 |
DEBUG_CS_CORNER_UV |
& t1,tmpU(1,k,n1), t2,tmpU(3,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
130 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1) - tmpU(3,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
132 |
DEBUG_CS_CORNER_UV |
& t1,tmpU(2,k,n1), t2,tmpU(4,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
133 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1) - tmpU(4,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
145 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(1,k,n1), t3,tmpU(4,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
146 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1) - tmpU(4,k,n3) |
|
./pkg/debug/debug_cs_corner_uv.F |
148 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(2,k,n1), t3,tmpU(3,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
149 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1) - tmpU(3,k,n3) |
|
./pkg/debug/debug_cs_corner_uv.F |
163 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1), n2,tmpV(4,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
164 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1) - tmpV(4,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
166 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1), n2,tmpV(3,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
167 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1) - tmpV(3,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
184 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1), n2,tmpU(3,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
185 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1) - tmpU(3,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
187 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1), n2,tmpU(4,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
188 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1) - tmpU(4,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
190 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1), n3,tmpU(4,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
191 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1) - tmpU(4,k,n3) |
|
./pkg/debug/debug_cs_corner_uv.F |
193 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1), n3,tmpU(3,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
194 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1) - tmpU(3,k,n3) |
|
./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 |
84 |
DEBUG_CS_CORNER_UV |
tmpU(1,k,n1)= uFld(1,j) |
|
./pkg/debug/debug_cs_corner_uv.F |
85 |
DEBUG_CS_CORNER_UV |
tmpU(2,k,n1)= uFld(1,sNy+1-j) |
|
./pkg/debug/debug_cs_corner_uv.F |
86 |
DEBUG_CS_CORNER_UV |
tmpU(3,k,n1)= uFld(sNx+1,j) |
|
./pkg/debug/debug_cs_corner_uv.F |
87 |
DEBUG_CS_CORNER_UV |
tmpU(4,k,n1)= uFld(sNx+1,sNy+1-j) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
120 |
DIAGNOSTICS_FILL_STATE |
tmpU(i,j) = angleCosC(i,j,bi,bj)*uBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
124 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpU(i,j)*tmpV(i,j) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
127 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpU,'UE_VEL_C',k,1,2,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
52 |
DIAGNOSTICS_FILL_STATE |
_RL tmpU (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |