| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
118 |
GMREDI_K3D |
_RL tmpV( 1-Olx:sNx+Olx,1-Oly:sNy+Oly ) |
|
./pkg/gmredi/gmredi_k3d.F |
371 |
GMREDI_K3D |
tmpV(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
376 |
GMREDI_K3D |
tmpV(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
380 |
GMREDI_K3D |
tmpV(i,j) = 0.5 _d 0 |
|
./pkg/gmredi/gmredi_k3d.F |
384 |
GMREDI_K3D |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
392 |
GMREDI_K3D |
& -angleSinC(i,j,bi,bj)*tmpV(i,j) |
|
./pkg/obcs/obcs_mon_stats.F |
122 |
OBCS_MON_STATS_EW_RL |
tmpV = arr(ii,j,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
125 |
OBCS_MON_STATS_EW_RL |
theMin = tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
126 |
OBCS_MON_STATS_EW_RL |
theMax = tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
129 |
OBCS_MON_STATS_EW_RL |
theMin = MIN( theMin, tmpV ) |
|
./pkg/obcs/obcs_mon_stats.F |
130 |
OBCS_MON_STATS_EW_RL |
theMax = MAX( theMax, tmpV ) |
|
./pkg/obcs/obcs_mon_stats.F |
132 |
OBCS_MON_STATS_EW_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpA*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
133 |
OBCS_MON_STATS_EW_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpA*tmpV*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
195 |
OBCS_MON_STATS_EW_RL |
tmpV = arr(ii,j,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
198 |
OBCS_MON_STATS_EW_RL |
theMin = tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
199 |
OBCS_MON_STATS_EW_RL |
theMax = tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
202 |
OBCS_MON_STATS_EW_RL |
theMin = MIN( theMin, tmpV ) |
|
./pkg/obcs/obcs_mon_stats.F |
203 |
OBCS_MON_STATS_EW_RL |
theMax = MAX( theMax, tmpV ) |
|
./pkg/obcs/obcs_mon_stats.F |
205 |
OBCS_MON_STATS_EW_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpA*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
206 |
OBCS_MON_STATS_EW_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpA*tmpV*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
316 |
OBCS_MON_STATS_NS_RL |
_RL tmpA, tmpV, tmpMask |
|
./pkg/obcs/obcs_mon_stats.F |
354 |
OBCS_MON_STATS_NS_RL |
tmpV = arr(i,jj,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
357 |
OBCS_MON_STATS_NS_RL |
theMin = tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
358 |
OBCS_MON_STATS_NS_RL |
theMax = tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
361 |
OBCS_MON_STATS_NS_RL |
theMin = MIN( theMin, tmpV ) |
|
./pkg/obcs/obcs_mon_stats.F |
362 |
OBCS_MON_STATS_NS_RL |
theMax = MAX( theMax, tmpV ) |
|
./pkg/obcs/obcs_mon_stats.F |
364 |
OBCS_MON_STATS_NS_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpA*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
365 |
OBCS_MON_STATS_NS_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpA*tmpV*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
427 |
OBCS_MON_STATS_NS_RL |
tmpV = arr(i,jj,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
430 |
OBCS_MON_STATS_NS_RL |
theMin = tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
431 |
OBCS_MON_STATS_NS_RL |
theMax = tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
434 |
OBCS_MON_STATS_NS_RL |
theMin = MIN( theMin, tmpV ) |
|
./pkg/obcs/obcs_mon_stats.F |
435 |
OBCS_MON_STATS_NS_RL |
theMax = MAX( theMax, tmpV ) |
|
./pkg/obcs/obcs_mon_stats.F |
437 |
OBCS_MON_STATS_NS_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpA*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
438 |
OBCS_MON_STATS_NS_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpA*tmpV*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
84 |
OBCS_MON_STATS_EW_RL |
_RL tmpA, tmpV, tmpMask |
|
./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 |
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 |
137 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(1,k,n1), t3,tmpV(3,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
138 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1) - tmpV(3,k,n3) |
|
./pkg/debug/debug_cs_corner_uv.F |
140 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(2,k,n1), t3,tmpV(4,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
141 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1) - tmpV(4,k,n3) |
|
./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 |
169 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1), n3,tmpV(3,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
170 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1) - tmpV(3,k,n3) |
|
./pkg/debug/debug_cs_corner_uv.F |
172 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1), n3,tmpV(4,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
173 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1) - tmpV(4,k,n3) |
|
./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 |
57 |
DEBUG_CS_CORNER_UV |
_RL tmpV(4,Nr,nSx*nSy) |
|
./pkg/debug/debug_cs_corner_uv.F |
88 |
DEBUG_CS_CORNER_UV |
tmpV(1,k,n1)= vFld(j,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
89 |
DEBUG_CS_CORNER_UV |
tmpV(2,k,n1)= vFld(sNx+1-j,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
90 |
DEBUG_CS_CORNER_UV |
tmpV(3,k,n1)= vFld(j,sNy+1) |
|
./pkg/debug/debug_cs_corner_uv.F |
91 |
DEBUG_CS_CORNER_UV |
tmpV(4,k,n1)= vFld(sNx+1-j,sNy+1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
122 |
DIAGNOSTICS_FILL_STATE |
tmpV(i,j) = angleSinC(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 |
128 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpV,'VN_VEL_C',k,1,2,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
53 |
DIAGNOSTICS_FILL_STATE |
_RL tmpV (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |