\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}