\hypertarget{interfacemom__debugging_1_1check__redundant__b}{}\section{mom\+\_\+debugging\+:\+:check\+\_\+redundant\+\_\+b Interface Reference} \label{interfacemom__debugging_1_1check__redundant__b}\index{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b@{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b}} \subsection{Detailed Description} Check for consistency between the duplicated points of a B-\/grid vector or scalar. Definition at line 41 of file M\+O\+M\+\_\+debugging.\+F90. \subsection*{Private functions} \begin{DoxyCompactItemize} \item subroutine \mbox{\hyperlink{interfacemom__debugging_1_1check__redundant__b_a56967d708c3e74dc2d55d3d36e908f6c}{check\+\_\+redundant\+\_\+vb3d}} (mesg, u\+\_\+comp, v\+\_\+comp, G, is, ie, js, je, direction) \begin{DoxyCompactList}\small\item\em Check for consistency between the duplicated points of a 3-\/D B-\/grid vector. \end{DoxyCompactList}\item subroutine \mbox{\hyperlink{interfacemom__debugging_1_1check__redundant__b_a2c8ef9557d48b4923c6000a617420904}{check\+\_\+redundant\+\_\+vb2d}} (mesg, u\+\_\+comp, v\+\_\+comp, G, is, ie, js, je, direction) \begin{DoxyCompactList}\small\item\em Check for consistency between the duplicated points of a 2-\/D B-\/grid vector. \end{DoxyCompactList}\item subroutine \mbox{\hyperlink{interfacemom__debugging_1_1check__redundant__b_a7090c768bf3fff64104af2dc58228bed}{check\+\_\+redundant\+\_\+sb3d}} (mesg, array, G, is, ie, js, je) \begin{DoxyCompactList}\small\item\em Check for consistency between the duplicated points of a 3-\/D scalar at corner points. \end{DoxyCompactList}\item subroutine \mbox{\hyperlink{interfacemom__debugging_1_1check__redundant__b_a4ab3f8caf17f1ada504efe4e431d3519}{check\+\_\+redundant\+\_\+sb2d}} (mesg, array, G, is, ie, js, je) \begin{DoxyCompactList}\small\item\em Check for consistency between the duplicated points of a 2-\/D scalar at corner points. \end{DoxyCompactList}\end{DoxyCompactItemize} \subsection{Detailed Description} Check for consistency between the duplicated points of a B-\/grid vector or scalar. Definition at line 41 of file M\+O\+M\+\_\+debugging.\+F90. \subsection{Functions and subroutines} \mbox{\Hypertarget{interfacemom__debugging_1_1check__redundant__b_a4ab3f8caf17f1ada504efe4e431d3519}\label{interfacemom__debugging_1_1check__redundant__b_a4ab3f8caf17f1ada504efe4e431d3519}} \index{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b@{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b}!check\+\_\+redundant\+\_\+sb2d@{check\+\_\+redundant\+\_\+sb2d}} \index{check\+\_\+redundant\+\_\+sb2d@{check\+\_\+redundant\+\_\+sb2d}!mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b@{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b}} \subsubsection{\texorpdfstring{check\+\_\+redundant\+\_\+sb2d()}{check\_redundant\_sb2d()}} {\footnotesize\ttfamily subroutine mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b\+::check\+\_\+redundant\+\_\+sb2d (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{mesg, }\item[{real, dimension(g\%isdb\+:,g\%jsdb\+:), intent(in)}]{array, }\item[{type(ocean\+\_\+grid\+\_\+type), intent(inout)}]{G, }\item[{integer, intent(in), optional}]{is, }\item[{integer, intent(in), optional}]{ie, }\item[{integer, intent(in), optional}]{js, }\item[{integer, intent(in), optional}]{je }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}} Check for consistency between the duplicated points of a 2-\/D scalar at corner points. \begin{DoxyParams}[1]{Parameters} \mbox{\tt in} & {\em mesg} & An identifying message\\ \hline \mbox{\tt in,out} & {\em g} & The ocean\textquotesingle{}s grid structure\\ \hline \mbox{\tt in} & {\em array} & The array to be checked for consistency\\ \hline \mbox{\tt in} & {\em is} & The starting i-\/index to check\\ \hline \mbox{\tt in} & {\em ie} & The ending i-\/index to check\\ \hline \mbox{\tt in} & {\em js} & The starting j-\/index to check\\ \hline \mbox{\tt in} & {\em je} & The ending j-\/index to check \\ \hline \end{DoxyParams} Definition at line 236 of file M\+O\+M\+\_\+debugging.\+F90. \begin{DoxyCode} 236 \textcolor{keywordtype}{character(len=*)}, \textcolor{keywordtype}{intent(in)} :: mesg\textcolor{comment}{ !< An identifying message} 237 \textcolor{keywordtype}{type}(ocean\_grid\_type), \textcolor{keywordtype}{intent(inout)} :: G\textcolor{comment}{ !< The ocean's grid structure} 238 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(G%IsdB:,G%JsdB:)}, \textcolor{keywordtype}{intent(in)} :: array\textcolor{comment}{ !< The array to be checked for consistency} 239 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: is\textcolor{comment}{ !< The starting i-index to check} 240 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: ie\textcolor{comment}{ !< The ending i-index to check} 241 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: js\textcolor{comment}{ !< The starting j-index to check} 242 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: je\textcolor{comment}{ !< The ending j-index to check} 243 \textcolor{comment}{! Local variables} 244 \textcolor{keywordtype}{real} :: a\_nonsym(G%isd:G%ied,G%jsd:G%jed) 245 \textcolor{keywordtype}{real} :: a\_resym(G%IsdB:G%IedB,G%JsdB:G%JedB) 246 \textcolor{keywordtype}{character(len=128)} :: mesg2 247 \textcolor{keywordtype}{integer} :: i, j, is\_ch, ie\_ch, js\_ch, je\_ch 248 \textcolor{keywordtype}{integer} :: Isq, Ieq, Jsq, Jeq, isd, ied, jsd, jed, IsdB, IedB, JsdB, JedB 249 250 isq = g%IscB ; ieq = g%IecB ; jsq = g%JscB ; jeq = g%JecB 251 isd = g%isd ; ied = g%ied ; jsd = g%jsd ; jed = g%jed 252 isdb = g%IsdB ; iedb = g%IedB ; jsdb = g%JsdB ; jedb = g%JedB 253 254 \textcolor{keywordflow}{if} (.not.(\textcolor{keyword}{present}(is) .or. \textcolor{keyword}{present}(ie) .or. \textcolor{keyword}{present}(js) .or. \textcolor{keyword}{present}(je))) \textcolor{keywordflow}{then} 255 \textcolor{comment}{! This only works with symmetric memory, so otherwise return.} 256 \textcolor{keywordflow}{if} ((isd == isdb) .and. (jsd == jsdb)) \textcolor{keywordflow}{return} 257 \textcolor{keywordflow}{ endif} 258 259 \textcolor{keywordflow}{do} i=isd,ied ; \textcolor{keywordflow}{do} j=jsd,jed 260 a\_nonsym(i,j) = array(i,j) 261 \textcolor{keywordflow}{ enddo} ;\textcolor{keywordflow}{ enddo} 262 263 \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(g%Domain\_aux)) \textcolor{keyword}{call }mom\_error(fatal,\textcolor{stringliteral}{" check\_redundant"}//& 264 \textcolor{stringliteral}{" called with a non-associated auxiliary domain the grid type."}) 265 \textcolor{keyword}{call }pass\_vector(a\_nonsym, a\_nonsym, g%Domain\_aux, & 266 direction=to\_all+scalar\_pair, stagger=bgrid\_ne) 267 268 \textcolor{keywordflow}{do} i=isdb,iedb ; \textcolor{keywordflow}{do} j=jsdb,jedb ; a\_resym(i,j) = array(i,j) ;\textcolor{keywordflow}{ enddo} ;\textcolor{keywordflow}{ enddo} 269 \textcolor{keywordflow}{do} i=isd,ied ; \textcolor{keywordflow}{do} j=jsd,jed 270 a\_resym(i,j) = a\_nonsym(i,j) 271 \textcolor{keywordflow}{ enddo} ;\textcolor{keywordflow}{ enddo} 272 \textcolor{keyword}{call }pass\_vector(a\_resym, a\_resym, g%Domain, direction=to\_all+scalar\_pair, & 273 stagger=bgrid\_ne) 274 275 is\_ch = isq ; ie\_ch = ieq ; js\_ch = jsq ; je\_ch = jeq 276 \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(is)) is\_ch = is ; \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(ie)) ie\_ch = ie 277 \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(js)) js\_ch = js ; \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(js)) je\_ch = je 278 279 \textcolor{keywordflow}{do} i=is\_ch,ie\_ch ; \textcolor{keywordflow}{do} j=js\_ch,je\_ch 280 \textcolor{keywordflow}{if} (a\_resym(i,j) /= array(i,j) .and. & 281 redundant\_prints(2) < max\_redundant\_prints) \textcolor{keywordflow}{then} 282 \textcolor{keyword}{write}(mesg2,\textcolor{stringliteral}{'(" Redundant points",2(1pe12.4)," differ by ", &} 283 \textcolor{stringliteral}{}\textcolor{stringliteral}{ & 1pe12.4," at i,j = ",2i4," on pe ",i4)'}) & 284 array(i,j), a\_resym(i,j),array(i,j)-a\_resym(i,j),i,j,pe\_here() 285 \textcolor{keyword}{write}(0,\textcolor{stringliteral}{'(A130)'}) trim(mesg)//trim(mesg2) 286 redundant\_prints(2) = redundant\_prints(2) + 1 287 \textcolor{keywordflow}{ endif} 288 \textcolor{keywordflow}{ enddo} ;\textcolor{keywordflow}{ enddo} 289 \end{DoxyCode} \mbox{\Hypertarget{interfacemom__debugging_1_1check__redundant__b_a7090c768bf3fff64104af2dc58228bed}\label{interfacemom__debugging_1_1check__redundant__b_a7090c768bf3fff64104af2dc58228bed}} \index{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b@{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b}!check\+\_\+redundant\+\_\+sb3d@{check\+\_\+redundant\+\_\+sb3d}} \index{check\+\_\+redundant\+\_\+sb3d@{check\+\_\+redundant\+\_\+sb3d}!mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b@{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b}} \subsubsection{\texorpdfstring{check\+\_\+redundant\+\_\+sb3d()}{check\_redundant\_sb3d()}} {\footnotesize\ttfamily subroutine mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b\+::check\+\_\+redundant\+\_\+sb3d (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{mesg, }\item[{real, dimension(g\%isdb\+:,g\%jsdb\+:,\+:), intent(in)}]{array, }\item[{type(ocean\+\_\+grid\+\_\+type), intent(inout)}]{G, }\item[{integer, intent(in), optional}]{is, }\item[{integer, intent(in), optional}]{ie, }\item[{integer, intent(in), optional}]{js, }\item[{integer, intent(in), optional}]{je }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}} Check for consistency between the duplicated points of a 3-\/D scalar at corner points. \begin{DoxyParams}[1]{Parameters} \mbox{\tt in} & {\em mesg} & An identifying message\\ \hline \mbox{\tt in,out} & {\em g} & The ocean\textquotesingle{}s grid structure\\ \hline \mbox{\tt in} & {\em array} & The array to be checked for consistency\\ \hline \mbox{\tt in} & {\em is} & The starting i-\/index to check\\ \hline \mbox{\tt in} & {\em ie} & The ending i-\/index to check\\ \hline \mbox{\tt in} & {\em js} & The starting j-\/index to check\\ \hline \mbox{\tt in} & {\em je} & The ending j-\/index to check \\ \hline \end{DoxyParams} Definition at line 211 of file M\+O\+M\+\_\+debugging.\+F90. \begin{DoxyCode} 211 \textcolor{keywordtype}{character(len=*)}, \textcolor{keywordtype}{intent(in)} :: mesg\textcolor{comment}{ !< An identifying message} 212 \textcolor{keywordtype}{type}(ocean\_grid\_type), \textcolor{keywordtype}{intent(inout)} :: G\textcolor{comment}{ !< The ocean's grid structure} 213 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(G%IsdB:,G%JsdB:,:)}, \textcolor{keywordtype}{intent(in)} :: array\textcolor{comment}{ !< The array to be checked for consistency} 214 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: is\textcolor{comment}{ !< The starting i-index to check} 215 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: ie\textcolor{comment}{ !< The ending i-index to check} 216 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: js\textcolor{comment}{ !< The starting j-index to check} 217 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: je\textcolor{comment}{ !< The ending j-index to check} 218 219 \textcolor{comment}{! Local variables} 220 \textcolor{keywordtype}{character(len=24)} :: mesg\_k 221 \textcolor{keywordtype}{integer} :: k 222 223 \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(array,3) 224 \textcolor{keywordflow}{if} (k < 10) \textcolor{keywordflow}{then} ; \textcolor{keyword}{write}(mesg\_k,\textcolor{stringliteral}{'(" Layer",i2," ")'}) k 225 \textcolor{keywordflow}{elseif} (k < 100) \textcolor{keywordflow}{then} ; \textcolor{keyword}{write}(mesg\_k,\textcolor{stringliteral}{'(" Layer",i3," ")'}) k 226 \textcolor{keywordflow}{elseif} (k < 1000) \textcolor{keywordflow}{then} ; \textcolor{keyword}{write}(mesg\_k,\textcolor{stringliteral}{'(" Layer",i4," ")'}) k 227 \textcolor{keywordflow}{else} ; \textcolor{keyword}{write}(mesg\_k,\textcolor{stringliteral}{'(" Layer",i9," ")'}) k ;\textcolor{keywordflow}{ endif} 228 229 \textcolor{keyword}{call }check\_redundant\_sb2d(trim(mesg)//trim(mesg\_k), array(:,:,k), & 230 g, is, ie, js, je) 231 \textcolor{keywordflow}{ enddo} \end{DoxyCode} \mbox{\Hypertarget{interfacemom__debugging_1_1check__redundant__b_a2c8ef9557d48b4923c6000a617420904}\label{interfacemom__debugging_1_1check__redundant__b_a2c8ef9557d48b4923c6000a617420904}} \index{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b@{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b}!check\+\_\+redundant\+\_\+vb2d@{check\+\_\+redundant\+\_\+vb2d}} \index{check\+\_\+redundant\+\_\+vb2d@{check\+\_\+redundant\+\_\+vb2d}!mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b@{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b}} \subsubsection{\texorpdfstring{check\+\_\+redundant\+\_\+vb2d()}{check\_redundant\_vb2d()}} {\footnotesize\ttfamily subroutine mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b\+::check\+\_\+redundant\+\_\+vb2d (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{mesg, }\item[{real, dimension(g\%isdb\+:,g\%jsdb\+:), intent(in)}]{u\+\_\+comp, }\item[{real, dimension(g\%isdb\+:,g\%jsdb\+:), intent(in)}]{v\+\_\+comp, }\item[{type(ocean\+\_\+grid\+\_\+type), intent(inout)}]{G, }\item[{integer, intent(in), optional}]{is, }\item[{integer, intent(in), optional}]{ie, }\item[{integer, intent(in), optional}]{js, }\item[{integer, intent(in), optional}]{je, }\item[{integer, intent(in), optional}]{direction }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}} Check for consistency between the duplicated points of a 2-\/D B-\/grid vector. \begin{DoxyParams}[1]{Parameters} \mbox{\tt in} & {\em mesg} & An identifying message\\ \hline \mbox{\tt in,out} & {\em g} & The ocean\textquotesingle{}s grid structure\\ \hline \mbox{\tt in} & {\em u\+\_\+comp} & The u-\/component of the vector to be checked for consistency\\ \hline \mbox{\tt in} & {\em v\+\_\+comp} & The v-\/component of the vector to be checked for consistency\\ \hline \mbox{\tt in} & {\em is} & The starting i-\/index to check\\ \hline \mbox{\tt in} & {\em ie} & The ending i-\/index to check\\ \hline \mbox{\tt in} & {\em js} & The starting j-\/index to check\\ \hline \mbox{\tt in} & {\em je} & The ending j-\/index to check\\ \hline \mbox{\tt in} & {\em direction} & the direction flag to be passed to pass\+\_\+vector \\ \hline \end{DoxyParams} Definition at line 325 of file M\+O\+M\+\_\+debugging.\+F90. \begin{DoxyCode} 325 \textcolor{keywordtype}{character(len=*)}, \textcolor{keywordtype}{intent(in)} :: mesg\textcolor{comment}{ !< An identifying message} 326 \textcolor{keywordtype}{type}(ocean\_grid\_type), \textcolor{keywordtype}{intent(inout)} :: G\textcolor{comment}{ !< The ocean's grid structure} 327 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(G%IsdB:,G%JsdB:)}, \textcolor{keywordtype}{intent(in)} :: u\_comp\textcolor{comment}{ !< The u-component of the vector} 328 \textcolor{comment}{ !! to be checked for consistency} 329 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(G%IsdB:,G%JsdB:)}, \textcolor{keywordtype}{intent(in)} :: v\_comp\textcolor{comment}{ !< The v-component of the vector} 330 \textcolor{comment}{ !! to be checked for consistency} 331 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: is\textcolor{comment}{ !< The starting i-index to check} 332 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: ie\textcolor{comment}{ !< The ending i-index to check} 333 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: js\textcolor{comment}{ !< The starting j-index to check} 334 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: je\textcolor{comment}{ !< The ending j-index to check} 335 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: direction\textcolor{comment}{ !< the direction flag to be} 336 \textcolor{comment}{ !! passed to pass\_vector} 337 \textcolor{comment}{! Local variables} 338 \textcolor{keywordtype}{real} :: u\_nonsym(G%isd:G%ied,G%jsd:G%jed) 339 \textcolor{keywordtype}{real} :: v\_nonsym(G%isd:G%ied,G%jsd:G%jed) 340 \textcolor{keywordtype}{real} :: u\_resym(G%IsdB:G%IedB,G%JsdB:G%JedB) 341 \textcolor{keywordtype}{real} :: v\_resym(G%IsdB:G%IedB,G%JsdB:G%JedB) 342 \textcolor{keywordtype}{character(len=128)} :: mesg2 343 \textcolor{keywordtype}{integer} :: i, j, is\_ch, ie\_ch, js\_ch, je\_ch 344 \textcolor{keywordtype}{integer} :: Isq, Ieq, Jsq, Jeq, isd, ied, jsd, jed, IsdB, IedB, JsdB, JedB 345 346 isq = g%IscB ; ieq = g%IecB ; jsq = g%JscB ; jeq = g%JecB 347 isd = g%isd ; ied = g%ied ; jsd = g%jsd ; jed = g%jed 348 isdb = g%IsdB ; iedb = g%IedB ; jsdb = g%JsdB ; jedb = g%JedB 349 350 \textcolor{keywordflow}{if} (.not.(\textcolor{keyword}{present}(is) .or. \textcolor{keyword}{present}(ie) .or. \textcolor{keyword}{present}(js) .or. \textcolor{keyword}{present}(je))) \textcolor{keywordflow}{then} 351 \textcolor{comment}{! This only works with symmetric memory, so otherwise return.} 352 \textcolor{keywordflow}{if} ((isd == isdb) .and. (jsd == jsdb)) \textcolor{keywordflow}{return} 353 \textcolor{keywordflow}{ endif} 354 355 \textcolor{keywordflow}{do} i=isd,ied ; \textcolor{keywordflow}{do} j=jsd,jed 356 u\_nonsym(i,j) = u\_comp(i,j) ; v\_nonsym(i,j) = v\_comp(i,j) 357 \textcolor{keywordflow}{ enddo} ;\textcolor{keywordflow}{ enddo} 358 359 \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(g%Domain\_aux)) \textcolor{keyword}{call }mom\_error(fatal,\textcolor{stringliteral}{" check\_redundant"}//& 360 \textcolor{stringliteral}{" called with a non-associated auxiliary domain the grid type."}) 361 \textcolor{keyword}{call }pass\_vector(u\_nonsym, v\_nonsym, g%Domain\_aux, direction, stagger=bgrid\_ne) 362 363 \textcolor{keywordflow}{do} i=isdb,iedb ; \textcolor{keywordflow}{do} j=jsdb,jedb 364 u\_resym(i,j) = u\_comp(i,j) ; v\_resym(i,j) = v\_comp(i,j) 365 \textcolor{keywordflow}{ enddo} ;\textcolor{keywordflow}{ enddo} 366 \textcolor{keywordflow}{do} i=isd,ied ; \textcolor{keywordflow}{do} j=jsd,jed 367 u\_resym(i,j) = u\_nonsym(i,j) ; v\_resym(i,j) = v\_nonsym(i,j) 368 \textcolor{keywordflow}{ enddo} ;\textcolor{keywordflow}{ enddo} 369 \textcolor{keyword}{call }pass\_vector(u\_resym, v\_resym, g%Domain, direction, stagger=bgrid\_ne) 370 371 is\_ch = isq ; ie\_ch = ieq ; js\_ch = jsq ; je\_ch = jeq 372 \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(is)) is\_ch = is ; \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(ie)) ie\_ch = ie 373 \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(js)) js\_ch = js ; \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(js)) je\_ch = je 374 375 \textcolor{keywordflow}{do} i=is\_ch,ie\_ch ; \textcolor{keywordflow}{do} j=js\_ch,je\_ch 376 \textcolor{keywordflow}{if} (u\_resym(i,j) /= u\_comp(i,j) .and. & 377 redundant\_prints(2) < max\_redundant\_prints) \textcolor{keywordflow}{then} 378 \textcolor{keyword}{write}(mesg2,\textcolor{stringliteral}{'(" redundant u-components",2(1pe12.4)," differ by ", &} 379 \textcolor{stringliteral}{}\textcolor{stringliteral}{ & 1pe12.4," at i,j = ",2i4," on pe ",i4)'}) & 380 u\_comp(i,j), u\_resym(i,j),u\_comp(i,j)-u\_resym(i,j),i,j,pe\_here() 381 \textcolor{keyword}{write}(0,\textcolor{stringliteral}{'(A130)'}) trim(mesg)//trim(mesg2) 382 redundant\_prints(2) = redundant\_prints(2) + 1 383 \textcolor{keywordflow}{ endif} 384 \textcolor{keywordflow}{ enddo} ;\textcolor{keywordflow}{ enddo} 385 \textcolor{keywordflow}{do} i=is\_ch,ie\_ch ; \textcolor{keywordflow}{do} j=js\_ch,je\_ch 386 \textcolor{keywordflow}{if} (v\_resym(i,j) /= v\_comp(i,j) .and. & 387 redundant\_prints(2) < max\_redundant\_prints) \textcolor{keywordflow}{then} 388 \textcolor{keyword}{write}(mesg2,\textcolor{stringliteral}{'(" redundant v-comps",2(1pe12.4)," differ by ", &} 389 \textcolor{stringliteral}{}\textcolor{stringliteral}{ & 1pe12.4," at i,j = ",2i4," x,y = ",2(1pe12.4)" on pe ",i4)'}) & 390 v\_comp(i,j), v\_resym(i,j),v\_comp(i,j)-v\_resym(i,j),i,j, & 391 g%geoLonBu(i,j), g%geoLatBu(i,j), pe\_here() 392 \textcolor{keyword}{write}(0,\textcolor{stringliteral}{'(A155)'}) trim(mesg)//trim(mesg2) 393 redundant\_prints(2) = redundant\_prints(2) + 1 394 \textcolor{keywordflow}{ endif} 395 \textcolor{keywordflow}{ enddo} ;\textcolor{keywordflow}{ enddo} 396 \end{DoxyCode} \mbox{\Hypertarget{interfacemom__debugging_1_1check__redundant__b_a56967d708c3e74dc2d55d3d36e908f6c}\label{interfacemom__debugging_1_1check__redundant__b_a56967d708c3e74dc2d55d3d36e908f6c}} \index{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b@{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b}!check\+\_\+redundant\+\_\+vb3d@{check\+\_\+redundant\+\_\+vb3d}} \index{check\+\_\+redundant\+\_\+vb3d@{check\+\_\+redundant\+\_\+vb3d}!mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b@{mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b}} \subsubsection{\texorpdfstring{check\+\_\+redundant\+\_\+vb3d()}{check\_redundant\_vb3d()}} {\footnotesize\ttfamily subroutine mom\+\_\+debugging\+::check\+\_\+redundant\+\_\+b\+::check\+\_\+redundant\+\_\+vb3d (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{mesg, }\item[{real, dimension(g\%isdb\+:,g\%jsdb\+:,\+:), intent(in)}]{u\+\_\+comp, }\item[{real, dimension(g\%isdb\+:,g\%jsdb\+:,\+:), intent(in)}]{v\+\_\+comp, }\item[{type(ocean\+\_\+grid\+\_\+type), intent(inout)}]{G, }\item[{integer, intent(in), optional}]{is, }\item[{integer, intent(in), optional}]{ie, }\item[{integer, intent(in), optional}]{js, }\item[{integer, intent(in), optional}]{je, }\item[{integer, intent(in), optional}]{direction }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}} Check for consistency between the duplicated points of a 3-\/D B-\/grid vector. \begin{DoxyParams}[1]{Parameters} \mbox{\tt in} & {\em mesg} & An identifying message\\ \hline \mbox{\tt in,out} & {\em g} & The ocean\textquotesingle{}s grid structure\\ \hline \mbox{\tt in} & {\em u\+\_\+comp} & The u-\/component of the vector to be checked for consistency\\ \hline \mbox{\tt in} & {\em v\+\_\+comp} & The v-\/component of the vector to be checked for consistency\\ \hline \mbox{\tt in} & {\em is} & The starting i-\/index to check\\ \hline \mbox{\tt in} & {\em ie} & The ending i-\/index to check\\ \hline \mbox{\tt in} & {\em js} & The starting j-\/index to check\\ \hline \mbox{\tt in} & {\em je} & The ending j-\/index to check\\ \hline \mbox{\tt in} & {\em direction} & the direction flag to be passed to pass\+\_\+vector \\ \hline \end{DoxyParams} Definition at line 295 of file M\+O\+M\+\_\+debugging.\+F90. \begin{DoxyCode} 295 \textcolor{keywordtype}{character(len=*)}, \textcolor{keywordtype}{intent(in)} :: mesg\textcolor{comment}{ !< An identifying message} 296 \textcolor{keywordtype}{type}(ocean\_grid\_type), \textcolor{keywordtype}{intent(inout)} :: G\textcolor{comment}{ !< The ocean's grid structure} 297 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(G%IsdB:,G%JsdB:,:)}, \textcolor{keywordtype}{intent(in)} :: u\_comp\textcolor{comment}{ !< The u-component of the vector} 298 \textcolor{comment}{ !! to be checked for consistency} 299 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(G%IsdB:,G%JsdB:,:)}, \textcolor{keywordtype}{intent(in)} :: v\_comp\textcolor{comment}{ !< The v-component of the vector} 300 \textcolor{comment}{ !! to be checked for consistency} 301 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: is\textcolor{comment}{ !< The starting i-index to check} 302 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: ie\textcolor{comment}{ !< The ending i-index to check} 303 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: js\textcolor{comment}{ !< The starting j-index to check} 304 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: je\textcolor{comment}{ !< The ending j-index to check} 305 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: direction\textcolor{comment}{ !< the direction flag to be} 306 \textcolor{comment}{ !! passed to pass\_vector} 307 \textcolor{comment}{! Local variables} 308 \textcolor{keywordtype}{character(len=24)} :: mesg\_k 309 \textcolor{keywordtype}{integer} :: k 310 311 \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(u\_comp,3) 312 \textcolor{keywordflow}{if} (k < 10) \textcolor{keywordflow}{then} ; \textcolor{keyword}{write}(mesg\_k,\textcolor{stringliteral}{'(" Layer",i2," ")'}) k 313 \textcolor{keywordflow}{elseif} (k < 100) \textcolor{keywordflow}{then} ; \textcolor{keyword}{write}(mesg\_k,\textcolor{stringliteral}{'(" Layer",i3," ")'}) k 314 \textcolor{keywordflow}{elseif} (k < 1000) \textcolor{keywordflow}{then} ; \textcolor{keyword}{write}(mesg\_k,\textcolor{stringliteral}{'(" Layer",i4," ")'}) k 315 \textcolor{keywordflow}{else} ; \textcolor{keyword}{write}(mesg\_k,\textcolor{stringliteral}{'(" Layer",i9," ")'}) k ;\textcolor{keywordflow}{ endif} 316 317 \textcolor{keyword}{call }check\_redundant\_vb2d(trim(mesg)//trim(mesg\_k), u\_comp(:,:,k), & 318 v\_comp(:,:,k), g, is, ie, js, je, direction) 319 \textcolor{keywordflow}{ enddo} \end{DoxyCode} The documentation for this interface was generated from the following file\+:\begin{DoxyCompactItemize} \item /home/cermak/src/\+M\+O\+M6.\+devrob/src/diagnostics/M\+O\+M\+\_\+debugging.\+F90\end{DoxyCompactItemize}