\hypertarget{interfacemom__horizontal__regridding_1_1fill__boundaries}{}\section{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}}


\subsection{Detailed Description}
Fill grid edges. 

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

\subsection*{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}


\subsection{Detailed Description}
Fill grid edges. 

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



\subsection{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}}
\subsubsection{\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{\tt in}  & {\em m} & input array (ND)\\
\hline
\mbox{\tt in}  & {\em cyclic\+\_\+x} & True if domain is zonally re-\/entrant\\
\hline
\mbox{\tt 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}
951   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{intent(in)}             :: m\textcolor{comment}{ !< input array (ND)}
952   \textcolor{keywordtype}{logical},                 \textcolor{keywordtype}{intent(in)}             :: cyclic\_x\textcolor{comment}{ !< True if domain is zonally re-entrant}
953   \textcolor{keywordtype}{logical},                 \textcolor{keywordtype}{intent(in)}             :: tripolar\_n\textcolor{comment}{ !< True if domain has an Arctic fold}
954   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(0:size(m,1)+1,0:size(m,2)+1)} :: mp
955 
956   \textcolor{keywordtype}{real},    \textcolor{keywordtype}{dimension(size(m,1),size(m,2))}         :: m\_real
957   \textcolor{keywordtype}{real},    \textcolor{keywordtype}{dimension(0:size(m,1)+1,0:size(m,2)+1)} :: mp\_real
958 
959   m\_real = \textcolor{keywordtype}{real}(m)
960 
961   mp\_real = fill\_boundaries\_real(m\_real,cyclic\_x,tripolar\_n)
962 
963   mp = int(mp\_real)
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}}
\subsubsection{\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{\tt in}  & {\em m} & input array (ND)\\
\hline
\mbox{\tt in}  & {\em cyclic\+\_\+x} & True if domain is zonally re-\/entrant\\
\hline
\mbox{\tt 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}
969   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{intent(in)}             :: m\textcolor{comment}{ !< input array (ND)}
970   \textcolor{keywordtype}{logical},              \textcolor{keywordtype}{intent(in)}             :: cyclic\_x\textcolor{comment}{ !< True if domain is zonally re-entrant}
971   \textcolor{keywordtype}{logical},              \textcolor{keywordtype}{intent(in)}             :: tripolar\_n\textcolor{comment}{ !< True if domain has an Arctic fold}
972   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(0:size(m,1)+1,0:size(m,2)+1)} :: mp
973 
974   \textcolor{keywordtype}{integer} :: ni,nj,i,j
975 
976   ni=\textcolor{keyword}{size}(m,1); nj=\textcolor{keyword}{size}(m,2)
977 
978   mp(1:ni,1:nj)=m(:,:)
979 
980   \textcolor{keywordflow}{if} (cyclic\_x) \textcolor{keywordflow}{then}
981     mp(0,1:nj)=m(ni,1:nj)
982     mp(ni+1,1:nj)=m(1,1:nj)
983   \textcolor{keywordflow}{else}
984     mp(0,1:nj)=m(1,1:nj)
985     mp(ni+1,1:nj)=m(ni,1:nj)
986 \textcolor{keywordflow}{  endif}
987 
988   mp(1:ni,0)=m(1:ni,1)
989   \textcolor{keywordflow}{if} (tripolar\_n) \textcolor{keywordflow}{then}
990     \textcolor{keywordflow}{do} i=1,ni
991       mp(i,nj+1)=m(ni-i+1,nj)
992 \textcolor{keywordflow}{    enddo}
993   \textcolor{keywordflow}{else}
994     mp(1:ni,nj+1)=m(1:ni,nj)
995 \textcolor{keywordflow}{  endif}
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}
