\hypertarget{interfacemom__horizontal__regridding_1_1fill__boundaries}{}\doxysection{mom\+\_\+horizontal\+\_\+regridding\+::fill\+\_\+boundaries Interface Reference}
\label{interfacemom__horizontal__regridding_1_1fill__boundaries}\index{mom\_horizontal\_regridding::fill\_boundaries@{mom\_horizontal\_regridding::fill\_boundaries}}


\doxysubsection{Detailed Description}
Fill grid edges. 

Definition at line 47 of file M\+O\+M\+\_\+horizontal\+\_\+regridding.\+F90.

\doxysubsection*{Private functions}
\begin{DoxyCompactItemize}
\item 
real function, dimension(0\+:size(m, 1)+1, 0\+:size(m, 2)+1) \mbox{\hyperlink{interfacemom__horizontal__regridding_1_1fill__boundaries_ad19196616d96a8b9287cefb79827b7b3}{fill\+\_\+boundaries\+\_\+real}} (m, cyclic\+\_\+x, tripolar\+\_\+n)
\begin{DoxyCompactList}\small\item\em Fill grid edges for real data. \end{DoxyCompactList}\item 
integer function, dimension(0\+:size(m, 1)+1, 0\+:size(m, 2)+1) \mbox{\hyperlink{interfacemom__horizontal__regridding_1_1fill__boundaries_a6aadbea4d5cb4dd50731f8969cfc6282}{fill\+\_\+boundaries\+\_\+int}} (m, cyclic\+\_\+x, tripolar\+\_\+n)
\begin{DoxyCompactList}\small\item\em Fill grid edges for integer data. \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{Detailed Description}
Fill grid edges. 

Definition at line 47 of file M\+O\+M\+\_\+horizontal\+\_\+regridding.\+F90.



\doxysubsection{Functions and subroutines}
\mbox{\Hypertarget{interfacemom__horizontal__regridding_1_1fill__boundaries_a6aadbea4d5cb4dd50731f8969cfc6282}\label{interfacemom__horizontal__regridding_1_1fill__boundaries_a6aadbea4d5cb4dd50731f8969cfc6282}} 
\index{mom\_horizontal\_regridding::fill\_boundaries@{mom\_horizontal\_regridding::fill\_boundaries}!fill\_boundaries\_int@{fill\_boundaries\_int}}
\index{fill\_boundaries\_int@{fill\_boundaries\_int}!mom\_horizontal\_regridding::fill\_boundaries@{mom\_horizontal\_regridding::fill\_boundaries}}
\doxysubsubsection{\texorpdfstring{fill\_boundaries\_int()}{fill\_boundaries\_int()}}
{\footnotesize\ttfamily integer function, dimension(0\+:size(m,1)+1,0\+:size(m,2)+1) mom\+\_\+horizontal\+\_\+regridding\+::fill\+\_\+boundaries\+::fill\+\_\+boundaries\+\_\+int (\begin{DoxyParamCaption}\item[{integer, dimension(\+:,\+:), intent(in)}]{m,  }\item[{logical, intent(in)}]{cyclic\+\_\+x,  }\item[{logical, intent(in)}]{tripolar\+\_\+n }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Fill grid edges for integer data. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em m} & input array (ND) \\
\hline
\mbox{\texttt{ in}}  & {\em cyclic\+\_\+x} & True if domain is zonally re-\/entrant \\
\hline
\mbox{\texttt{ in}}  & {\em tripolar\+\_\+n} & True if domain has an Arctic fold \\
\hline
\end{DoxyParams}


Definition at line 951 of file M\+O\+M\+\_\+horizontal\+\_\+regridding.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{951   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{intent(in)}             :: m\textcolor{comment}{ !< input array (ND)}}
\DoxyCodeLine{952   \textcolor{keywordtype}{logical},                 \textcolor{keywordtype}{intent(in)}             :: cyclic\_x\textcolor{comment}{ !< True if domain is zonally re-\/entrant}}
\DoxyCodeLine{953   \textcolor{keywordtype}{logical},                 \textcolor{keywordtype}{intent(in)}             :: tripolar\_n\textcolor{comment}{ !< True if domain has an Arctic fold}}
\DoxyCodeLine{954   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(0:size(m,1)+1,0:size(m,2)+1)} :: mp}
\DoxyCodeLine{955 }
\DoxyCodeLine{956 \textcolor{keywordtype}{  real},    \textcolor{keywordtype}{dimension(size(m,1),size(m,2))}         :: m\_real}
\DoxyCodeLine{957 \textcolor{keywordtype}{  real},    \textcolor{keywordtype}{dimension(0:size(m,1)+1,0:size(m,2)+1)} :: mp\_real}
\DoxyCodeLine{958 }
\DoxyCodeLine{959   m\_real = real(m)}
\DoxyCodeLine{960 }
\DoxyCodeLine{961   mp\_real = fill\_boundaries\_real(m\_real,cyclic\_x,tripolar\_n)}
\DoxyCodeLine{962 }
\DoxyCodeLine{963   mp = int(mp\_real)}
\DoxyCodeLine{964 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__horizontal__regridding_1_1fill__boundaries_ad19196616d96a8b9287cefb79827b7b3}\label{interfacemom__horizontal__regridding_1_1fill__boundaries_ad19196616d96a8b9287cefb79827b7b3}} 
\index{mom\_horizontal\_regridding::fill\_boundaries@{mom\_horizontal\_regridding::fill\_boundaries}!fill\_boundaries\_real@{fill\_boundaries\_real}}
\index{fill\_boundaries\_real@{fill\_boundaries\_real}!mom\_horizontal\_regridding::fill\_boundaries@{mom\_horizontal\_regridding::fill\_boundaries}}
\doxysubsubsection{\texorpdfstring{fill\_boundaries\_real()}{fill\_boundaries\_real()}}
{\footnotesize\ttfamily real function, dimension(0\+:size(m,1)+1,0\+:size(m,2)+1) mom\+\_\+horizontal\+\_\+regridding\+::fill\+\_\+boundaries\+::fill\+\_\+boundaries\+\_\+real (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:), intent(in)}]{m,  }\item[{logical, intent(in)}]{cyclic\+\_\+x,  }\item[{logical, intent(in)}]{tripolar\+\_\+n }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Fill grid edges for real data. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em m} & input array (ND) \\
\hline
\mbox{\texttt{ in}}  & {\em cyclic\+\_\+x} & True if domain is zonally re-\/entrant \\
\hline
\mbox{\texttt{ in}}  & {\em tripolar\+\_\+n} & True if domain has an Arctic fold \\
\hline
\end{DoxyParams}


Definition at line 969 of file M\+O\+M\+\_\+horizontal\+\_\+regridding.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{969 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{intent(in)}             :: m\textcolor{comment}{ !< input array (ND)}}
\DoxyCodeLine{970   \textcolor{keywordtype}{logical},              \textcolor{keywordtype}{intent(in)}             :: cyclic\_x\textcolor{comment}{ !< True if domain is zonally re-\/entrant}}
\DoxyCodeLine{971   \textcolor{keywordtype}{logical},              \textcolor{keywordtype}{intent(in)}             :: tripolar\_n\textcolor{comment}{ !< True if domain has an Arctic fold}}
\DoxyCodeLine{972 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(0:size(m,1)+1,0:size(m,2)+1)} :: mp}
\DoxyCodeLine{973 }
\DoxyCodeLine{974   \textcolor{keywordtype}{integer} :: ni,nj,i,j}
\DoxyCodeLine{975 }
\DoxyCodeLine{976   ni=\textcolor{keyword}{size}(m,1); nj=\textcolor{keyword}{size}(m,2)}
\DoxyCodeLine{977 }
\DoxyCodeLine{978   mp(1:ni,1:nj)=m(:,:)}
\DoxyCodeLine{979 }
\DoxyCodeLine{980   \textcolor{keywordflow}{if} (cyclic\_x) \textcolor{keywordflow}{then}}
\DoxyCodeLine{981     mp(0,1:nj)=m(ni,1:nj)}
\DoxyCodeLine{982     mp(ni+1,1:nj)=m(1,1:nj)}
\DoxyCodeLine{983   \textcolor{keywordflow}{else}}
\DoxyCodeLine{984     mp(0,1:nj)=m(1,1:nj)}
\DoxyCodeLine{985     mp(ni+1,1:nj)=m(ni,1:nj)}
\DoxyCodeLine{986 \textcolor{keywordflow}{  endif}}
\DoxyCodeLine{987 }
\DoxyCodeLine{988   mp(1:ni,0)=m(1:ni,1)}
\DoxyCodeLine{989   \textcolor{keywordflow}{if} (tripolar\_n) \textcolor{keywordflow}{then}}
\DoxyCodeLine{990     \textcolor{keywordflow}{do} i=1,ni}
\DoxyCodeLine{991       mp(i,nj+1)=m(ni-\/i+1,nj)}
\DoxyCodeLine{992 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{993   \textcolor{keywordflow}{else}}
\DoxyCodeLine{994     mp(1:ni,nj+1)=m(1:ni,nj)}
\DoxyCodeLine{995 \textcolor{keywordflow}{  endif}}
\DoxyCodeLine{996 }

\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\+\_\+horizontal\+\_\+regridding.\+F90\end{DoxyCompactItemize}