\hypertarget{interfacemom__diag__mediator_1_1downsample__mask}{}\doxysection{mom\+\_\+diag\+\_\+mediator\+::downsample\+\_\+mask Interface Reference}
\label{interfacemom__diag__mediator_1_1downsample__mask}\index{mom\_diag\_mediator::downsample\_mask@{mom\_diag\_mediator::downsample\_mask}}


\doxysubsection{Detailed Description}
Down sample the mask of a field. 

Definition at line 80 of file M\+O\+M\+\_\+diag\+\_\+mediator.\+F90.

\doxysubsection*{Private functions}
\begin{DoxyCompactItemize}
\item 
subroutine \mbox{\hyperlink{interfacemom__diag__mediator_1_1downsample__mask_a68698c1ec117b83acdc977eccfe19d2a}{downsample\+\_\+mask\+\_\+2d}} (field\+\_\+in, field\+\_\+out, dl, isc\+\_\+o, jsc\+\_\+o, isc\+\_\+d, iec\+\_\+d, jsc\+\_\+d, jec\+\_\+d, isd\+\_\+d, ied\+\_\+d, jsd\+\_\+d, jed\+\_\+d)
\begin{DoxyCompactList}\small\item\em Allocate and compute the 2d down sampled mask The masks are down sampled based on a minority rule, i.\+e., a coarse cell is open (1) if at least one of the sub-\/cells are open, otherwise it\textquotesingle{}s closed (0) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{interfacemom__diag__mediator_1_1downsample__mask_a3995e3eba36a70ae9796ddd5b8f786d3}{downsample\+\_\+mask\+\_\+3d}} (field\+\_\+in, field\+\_\+out, dl, isc\+\_\+o, jsc\+\_\+o, isc\+\_\+d, iec\+\_\+d, jsc\+\_\+d, jec\+\_\+d, isd\+\_\+d, ied\+\_\+d, jsd\+\_\+d, jed\+\_\+d)
\begin{DoxyCompactList}\small\item\em Allocate and compute the 3d down sampled mask The masks are down sampled based on a minority rule, i.\+e., a coarse cell is open (1) if at least one of the sub-\/cells are open, otherwise it\textquotesingle{}s closed (0) \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{Detailed Description}
Down sample the mask of a field. 

Definition at line 80 of file M\+O\+M\+\_\+diag\+\_\+mediator.\+F90.



\doxysubsection{Functions and subroutines}
\mbox{\Hypertarget{interfacemom__diag__mediator_1_1downsample__mask_a68698c1ec117b83acdc977eccfe19d2a}\label{interfacemom__diag__mediator_1_1downsample__mask_a68698c1ec117b83acdc977eccfe19d2a}} 
\index{mom\_diag\_mediator::downsample\_mask@{mom\_diag\_mediator::downsample\_mask}!downsample\_mask\_2d@{downsample\_mask\_2d}}
\index{downsample\_mask\_2d@{downsample\_mask\_2d}!mom\_diag\_mediator::downsample\_mask@{mom\_diag\_mediator::downsample\_mask}}
\doxysubsubsection{\texorpdfstring{downsample\_mask\_2d()}{downsample\_mask\_2d()}}
{\footnotesize\ttfamily subroutine mom\+\_\+diag\+\_\+mediator\+::downsample\+\_\+mask\+::downsample\+\_\+mask\+\_\+2d (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:), intent(in)}]{field\+\_\+in,  }\item[{real, dimension(\+:,\+:), pointer}]{field\+\_\+out,  }\item[{integer, intent(in)}]{dl,  }\item[{integer, intent(in)}]{isc\+\_\+o,  }\item[{integer, intent(in)}]{jsc\+\_\+o,  }\item[{integer, intent(in)}]{isc\+\_\+d,  }\item[{integer, intent(in)}]{iec\+\_\+d,  }\item[{integer, intent(in)}]{jsc\+\_\+d,  }\item[{integer, intent(in)}]{jec\+\_\+d,  }\item[{integer, intent(in)}]{isd\+\_\+d,  }\item[{integer, intent(in)}]{ied\+\_\+d,  }\item[{integer, intent(in)}]{jsd\+\_\+d,  }\item[{integer, intent(in)}]{jed\+\_\+d }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Allocate and compute the 2d down sampled mask The masks are down sampled based on a minority rule, i.\+e., a coarse cell is open (1) if at least one of the sub-\/cells are open, otherwise it\textquotesingle{}s closed (0) 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em field\+\_\+in} & Original field to be down sampled \\
\hline
 & {\em field\+\_\+out} & Down sampled field \\
\hline
\mbox{\texttt{ in}}  & {\em dl} & Level of down sampling \\
\hline
\mbox{\texttt{ in}}  & {\em isc\+\_\+o} & Original i-\/start index \\
\hline
\mbox{\texttt{ in}}  & {\em jsc\+\_\+o} & Original j-\/start index \\
\hline
\mbox{\texttt{ in}}  & {\em isc\+\_\+d} & Computational i-\/start index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em iec\+\_\+d} & Computational i-\/end index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em jsc\+\_\+d} & Computational j-\/start index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em jec\+\_\+d} & Computational j-\/end index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em isd\+\_\+d} & Computational i-\/start index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em ied\+\_\+d} & Computational i-\/end index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em jsd\+\_\+d} & Computational j-\/start index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em jed\+\_\+d} & Computational j-\/end index of down sampled data \\
\hline
\end{DoxyParams}


Definition at line 4253 of file M\+O\+M\+\_\+diag\+\_\+mediator.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{4253 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{intent(in)} :: field\_in\textcolor{comment}{ !< Original field to be down sampled}}
\DoxyCodeLine{4254 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{pointer} :: field\_out\textcolor{comment}{   !< Down sampled field}}
\DoxyCodeLine{4255   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: dl\textcolor{comment}{    !< Level of down sampling}}
\DoxyCodeLine{4256   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: isc\_o\textcolor{comment}{ !< Original i-\/start index}}
\DoxyCodeLine{4257   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: jsc\_o\textcolor{comment}{ !< Original j-\/start index}}
\DoxyCodeLine{4258   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: isc\_d\textcolor{comment}{ !< Computational i-\/start index of down sampled data}}
\DoxyCodeLine{4259   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: iec\_d\textcolor{comment}{ !< Computational i-\/end index of down sampled data}}
\DoxyCodeLine{4260   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: jsc\_d\textcolor{comment}{ !< Computational j-\/start index of down sampled data}}
\DoxyCodeLine{4261   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: jec\_d\textcolor{comment}{ !< Computational j-\/end index of down sampled data}}
\DoxyCodeLine{4262   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: isd\_d\textcolor{comment}{ !< Computational i-\/start index of down sampled data}}
\DoxyCodeLine{4263   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: ied\_d\textcolor{comment}{ !< Computational i-\/end index of down sampled data}}
\DoxyCodeLine{4264   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: jsd\_d\textcolor{comment}{ !< Computational j-\/start index of down sampled data}}
\DoxyCodeLine{4265   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: jed\_d\textcolor{comment}{ !< Computational j-\/end index of down sampled data}}
\DoxyCodeLine{4266   \textcolor{comment}{! Locals}}
\DoxyCodeLine{4267   \textcolor{keywordtype}{integer} :: i,j,ii,jj,i0,j0}
\DoxyCodeLine{4268 \textcolor{keywordtype}{  real}    :: tot\_non\_zero}
\DoxyCodeLine{4269   \textcolor{comment}{! down sampled mask = 0 unless the mask value of one of the down sampling cells is 1}}
\DoxyCodeLine{4270   \textcolor{keyword}{allocate}(field\_out(isd\_d:ied\_d,jsd\_d:jed\_d))}
\DoxyCodeLine{4271   field\_out(:,:) = 0.0}
\DoxyCodeLine{4272   \textcolor{keywordflow}{do} j=jsc\_d,jec\_d ; \textcolor{keywordflow}{do} i=isc\_d,iec\_d}
\DoxyCodeLine{4273      i0 = isc\_o+dl*(i-\/isc\_d)}
\DoxyCodeLine{4274      j0 = jsc\_o+dl*(j-\/jsc\_d)}
\DoxyCodeLine{4275      tot\_non\_zero = 0.0}
\DoxyCodeLine{4276      \textcolor{keywordflow}{do} jj=j0,j0+dl-\/1 ; \textcolor{keywordflow}{do} ii=i0,i0+dl-\/1}
\DoxyCodeLine{4277         tot\_non\_zero = tot\_non\_zero + field\_in(ii,jj)}
\DoxyCodeLine{4278      enddo;\textcolor{keywordflow}{enddo}}
\DoxyCodeLine{4279      \textcolor{keywordflow}{if}(tot\_non\_zero > 0.0) field\_out(i,j)=1.0}
\DoxyCodeLine{4280   enddo;\textcolor{keywordflow}{ enddo}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__diag__mediator_1_1downsample__mask_a3995e3eba36a70ae9796ddd5b8f786d3}\label{interfacemom__diag__mediator_1_1downsample__mask_a3995e3eba36a70ae9796ddd5b8f786d3}} 
\index{mom\_diag\_mediator::downsample\_mask@{mom\_diag\_mediator::downsample\_mask}!downsample\_mask\_3d@{downsample\_mask\_3d}}
\index{downsample\_mask\_3d@{downsample\_mask\_3d}!mom\_diag\_mediator::downsample\_mask@{mom\_diag\_mediator::downsample\_mask}}
\doxysubsubsection{\texorpdfstring{downsample\_mask\_3d()}{downsample\_mask\_3d()}}
{\footnotesize\ttfamily subroutine mom\+\_\+diag\+\_\+mediator\+::downsample\+\_\+mask\+::downsample\+\_\+mask\+\_\+3d (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:,\+:), intent(in)}]{field\+\_\+in,  }\item[{real, dimension(\+:,\+:,\+:), pointer}]{field\+\_\+out,  }\item[{integer, intent(in)}]{dl,  }\item[{integer, intent(in)}]{isc\+\_\+o,  }\item[{integer, intent(in)}]{jsc\+\_\+o,  }\item[{integer, intent(in)}]{isc\+\_\+d,  }\item[{integer, intent(in)}]{iec\+\_\+d,  }\item[{integer, intent(in)}]{jsc\+\_\+d,  }\item[{integer, intent(in)}]{jec\+\_\+d,  }\item[{integer, intent(in)}]{isd\+\_\+d,  }\item[{integer, intent(in)}]{ied\+\_\+d,  }\item[{integer, intent(in)}]{jsd\+\_\+d,  }\item[{integer, intent(in)}]{jed\+\_\+d }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Allocate and compute the 3d down sampled mask The masks are down sampled based on a minority rule, i.\+e., a coarse cell is open (1) if at least one of the sub-\/cells are open, otherwise it\textquotesingle{}s closed (0) 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em field\+\_\+in} & Original field to be down sampled \\
\hline
 & {\em field\+\_\+out} & down sampled field \\
\hline
\mbox{\texttt{ in}}  & {\em dl} & Level of down sampling \\
\hline
\mbox{\texttt{ in}}  & {\em isc\+\_\+o} & Original i-\/start index \\
\hline
\mbox{\texttt{ in}}  & {\em jsc\+\_\+o} & Original j-\/start index \\
\hline
\mbox{\texttt{ in}}  & {\em isc\+\_\+d} & Computational i-\/start index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em iec\+\_\+d} & Computational i-\/end index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em jsc\+\_\+d} & Computational j-\/start index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em jec\+\_\+d} & Computational j-\/end index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em isd\+\_\+d} & Computational i-\/start index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em ied\+\_\+d} & Computational i-\/end index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em jsd\+\_\+d} & Computational j-\/start index of down sampled data \\
\hline
\mbox{\texttt{ in}}  & {\em jed\+\_\+d} & Computational j-\/end index of down sampled data \\
\hline
\end{DoxyParams}


Definition at line 4288 of file M\+O\+M\+\_\+diag\+\_\+mediator.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{4288 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{intent(in)} :: field\_in\textcolor{comment}{ !< Original field to be down sampled}}
\DoxyCodeLine{4289 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{pointer} :: field\_out\textcolor{comment}{   !< down sampled field}}
\DoxyCodeLine{4290   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: dl\textcolor{comment}{    !< Level of down sampling}}
\DoxyCodeLine{4291   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: isc\_o\textcolor{comment}{ !< Original i-\/start index}}
\DoxyCodeLine{4292   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: jsc\_o\textcolor{comment}{ !< Original j-\/start index}}
\DoxyCodeLine{4293   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: isc\_d\textcolor{comment}{ !< Computational i-\/start index of down sampled data}}
\DoxyCodeLine{4294   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: iec\_d\textcolor{comment}{ !< Computational i-\/end index of down sampled data}}
\DoxyCodeLine{4295   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: jsc\_d\textcolor{comment}{ !< Computational j-\/start index of down sampled data}}
\DoxyCodeLine{4296   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: jec\_d\textcolor{comment}{ !< Computational j-\/end index of down sampled data}}
\DoxyCodeLine{4297   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: isd\_d\textcolor{comment}{ !< Computational i-\/start index of down sampled data}}
\DoxyCodeLine{4298   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: ied\_d\textcolor{comment}{ !< Computational i-\/end index of down sampled data}}
\DoxyCodeLine{4299   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: jsd\_d\textcolor{comment}{ !< Computational j-\/start index of down sampled data}}
\DoxyCodeLine{4300   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: jed\_d\textcolor{comment}{ !< Computational j-\/end index of down sampled data}}
\DoxyCodeLine{4301   \textcolor{comment}{! Locals}}
\DoxyCodeLine{4302   \textcolor{keywordtype}{integer} :: i,j,ii,jj,i0,j0,k,ks,ke}
\DoxyCodeLine{4303 \textcolor{keywordtype}{  real}    :: tot\_non\_zero}
\DoxyCodeLine{4304   \textcolor{comment}{! down sampled mask = 0 unless the mask value of one of the down sampling cells is 1}}
\DoxyCodeLine{4305   ks = lbound(field\_in,3) ; ke = ubound(field\_in,3)}
\DoxyCodeLine{4306   \textcolor{keyword}{allocate}(field\_out(isd\_d:ied\_d,jsd\_d:jed\_d,ks:ke))}
\DoxyCodeLine{4307   field\_out(:,:,:) = 0.0}
\DoxyCodeLine{4308   \textcolor{keywordflow}{do} k= ks,ke ; \textcolor{keywordflow}{do} j=jsc\_d,jec\_d ; \textcolor{keywordflow}{do} i=isc\_d,iec\_d}
\DoxyCodeLine{4309      i0 = isc\_o+dl*(i-\/isc\_d)}
\DoxyCodeLine{4310      j0 = jsc\_o+dl*(j-\/jsc\_d)}
\DoxyCodeLine{4311      tot\_non\_zero = 0.0}
\DoxyCodeLine{4312      \textcolor{keywordflow}{do} jj=j0,j0+dl-\/1 ; \textcolor{keywordflow}{do} ii=i0,i0+dl-\/1}
\DoxyCodeLine{4313         tot\_non\_zero = tot\_non\_zero + field\_in(ii,jj,k)}
\DoxyCodeLine{4314      enddo;\textcolor{keywordflow}{enddo}}
\DoxyCodeLine{4315      \textcolor{keywordflow}{if}(tot\_non\_zero > 0.0) field\_out(i,j,k)=1.0}
\DoxyCodeLine{4316   enddo; enddo;\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/framework/M\+O\+M\+\_\+diag\+\_\+mediator.\+F90\end{DoxyCompactItemize}
