\hypertarget{interfacemom__io_1_1mom__read__data}{}\doxysection{mom\+\_\+io\+::mom\+\_\+read\+\_\+data Interface Reference}
\label{interfacemom__io_1_1mom__read__data}\index{mom\_io::mom\_read\_data@{mom\_io::mom\_read\_data}}


\doxysubsection{Detailed Description}
Read a data field from a file. 

Definition at line 74 of file M\+O\+M\+\_\+io.\+F90.

\doxysubsection*{Private functions}
\begin{DoxyCompactItemize}
\item 
subroutine \mbox{\hyperlink{interfacemom__io_1_1mom__read__data_a2bb1880532b2332ec27cae5076cdeecd}{mom\+\_\+read\+\_\+data\+\_\+4d}} (filename, fieldname, data, M\+O\+M\+\_\+\+Domain, timelevel, position, scale)
\begin{DoxyCompactList}\small\item\em This function uses the fms\+\_\+io function read\+\_\+data to read a distributed 4-\/D data field named \char`\"{}fieldname\char`\"{} from file \char`\"{}filename\char`\"{}. Valid values for \char`\"{}position\char`\"{} include C\+O\+R\+N\+ER, C\+E\+N\+T\+ER, E\+A\+S\+T\+\_\+\+F\+A\+CE and N\+O\+R\+T\+H\+\_\+\+F\+A\+CE. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{interfacemom__io_1_1mom__read__data_a8d8b4317fa8b790ec2cecfd15befd3dd}{mom\+\_\+read\+\_\+data\+\_\+3d}} (filename, fieldname, data, M\+O\+M\+\_\+\+Domain, timelevel, position, scale)
\begin{DoxyCompactList}\small\item\em This function uses the fms\+\_\+io function read\+\_\+data to read a distributed 3-\/D data field named \char`\"{}fieldname\char`\"{} from file \char`\"{}filename\char`\"{}. Valid values for \char`\"{}position\char`\"{} include C\+O\+R\+N\+ER, C\+E\+N\+T\+ER, E\+A\+S\+T\+\_\+\+F\+A\+CE and N\+O\+R\+T\+H\+\_\+\+F\+A\+CE. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{interfacemom__io_1_1mom__read__data_a3dfc4ff2a1046e81623c2de711036206}{mom\+\_\+read\+\_\+data\+\_\+2d}} (filename, fieldname, data, M\+O\+M\+\_\+\+Domain, timelevel, position, scale)
\begin{DoxyCompactList}\small\item\em This function uses the fms\+\_\+io function read\+\_\+data to read a distributed 2-\/D data field named \char`\"{}fieldname\char`\"{} from file \char`\"{}filename\char`\"{}. Valid values for \char`\"{}position\char`\"{} include C\+O\+R\+N\+ER, C\+E\+N\+T\+ER, E\+A\+S\+T\+\_\+\+F\+A\+CE and N\+O\+R\+T\+H\+\_\+\+F\+A\+CE. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{interfacemom__io_1_1mom__read__data_a1654977ec3a066c709eb80476c9565f9}{mom\+\_\+read\+\_\+data\+\_\+1d}} (filename, fieldname, data, timelevel, scale)
\begin{DoxyCompactList}\small\item\em This function uses the fms\+\_\+io function read\+\_\+data to read 1-\/D data field named \char`\"{}fieldname\char`\"{} from file \char`\"{}filename\char`\"{}. \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{Detailed Description}
Read a data field from a file. 

Definition at line 74 of file M\+O\+M\+\_\+io.\+F90.



\doxysubsection{Functions and subroutines}
\mbox{\Hypertarget{interfacemom__io_1_1mom__read__data_a1654977ec3a066c709eb80476c9565f9}\label{interfacemom__io_1_1mom__read__data_a1654977ec3a066c709eb80476c9565f9}} 
\index{mom\_io::mom\_read\_data@{mom\_io::mom\_read\_data}!mom\_read\_data\_1d@{mom\_read\_data\_1d}}
\index{mom\_read\_data\_1d@{mom\_read\_data\_1d}!mom\_io::mom\_read\_data@{mom\_io::mom\_read\_data}}
\doxysubsubsection{\texorpdfstring{mom\_read\_data\_1d()}{mom\_read\_data\_1d()}}
{\footnotesize\ttfamily subroutine mom\+\_\+io\+::mom\+\_\+read\+\_\+data\+::mom\+\_\+read\+\_\+data\+\_\+1d (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{filename,  }\item[{character(len=$\ast$), intent(in)}]{fieldname,  }\item[{real, dimension(\+:), intent(inout)}]{data,  }\item[{integer, intent(in), optional}]{timelevel,  }\item[{real, intent(in), optional}]{scale }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



This function uses the fms\+\_\+io function read\+\_\+data to read 1-\/D data field named \char`\"{}fieldname\char`\"{} from file \char`\"{}filename\char`\"{}. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em filename} & The name of the file to read \\
\hline
\mbox{\texttt{ in}}  & {\em fieldname} & The variable name of the data in the file \\
\hline
\mbox{\texttt{ in,out}}  & {\em data} & The 1-\/dimensional array into which the data \\
\hline
\mbox{\texttt{ in}}  & {\em timelevel} & The time level in the file to read \\
\hline
\mbox{\texttt{ in}}  & {\em scale} & A scaling factor that the field is multiplied by before they are returned. \\
\hline
\end{DoxyParams}


Definition at line 849 of file M\+O\+M\+\_\+io.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{850   \textcolor{keywordtype}{character(len=*)},       \textcolor{keywordtype}{intent(in)}    :: filename\textcolor{comment}{  !< The name of the file to read}}
\DoxyCodeLine{851   \textcolor{keywordtype}{character(len=*)},       \textcolor{keywordtype}{intent(in)}    :: fieldname\textcolor{comment}{ !< The variable name of the data in the file}}
\DoxyCodeLine{852 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:)},     \textcolor{keywordtype}{intent(inout)} :: data\textcolor{comment}{      !< The 1-\/dimensional array into which the data}}
\DoxyCodeLine{853   \textcolor{keywordtype}{integer},      \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: timelevel\textcolor{comment}{ !< The time level in the file to read}}
\DoxyCodeLine{854 \textcolor{keywordtype}{  real},         \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: scale\textcolor{comment}{     !< A scaling factor that the field is multiplied}}
\DoxyCodeLine{855 \textcolor{comment}{                                                     !! by before they are returned.}}
\DoxyCodeLine{856 }
\DoxyCodeLine{857   \textcolor{keyword}{call }read\_data(filename, fieldname, \textcolor{keyword}{data}, timelevel=timelevel, no\_domain=.true.)}
\DoxyCodeLine{858 }
\DoxyCodeLine{859   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(scale)) \textcolor{keywordflow}{then} ; \textcolor{keywordflow}{if} (scale /= 1.0) \textcolor{keywordflow}{then}}
\DoxyCodeLine{860     \textcolor{keyword}{data}(:) = scale*\textcolor{keyword}{data}(:)}
\DoxyCodeLine{861 \textcolor{keywordflow}{  endif} ;\textcolor{keywordflow}{ endif}}
\DoxyCodeLine{862 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__io_1_1mom__read__data_a3dfc4ff2a1046e81623c2de711036206}\label{interfacemom__io_1_1mom__read__data_a3dfc4ff2a1046e81623c2de711036206}} 
\index{mom\_io::mom\_read\_data@{mom\_io::mom\_read\_data}!mom\_read\_data\_2d@{mom\_read\_data\_2d}}
\index{mom\_read\_data\_2d@{mom\_read\_data\_2d}!mom\_io::mom\_read\_data@{mom\_io::mom\_read\_data}}
\doxysubsubsection{\texorpdfstring{mom\_read\_data\_2d()}{mom\_read\_data\_2d()}}
{\footnotesize\ttfamily subroutine mom\+\_\+io\+::mom\+\_\+read\+\_\+data\+::mom\+\_\+read\+\_\+data\+\_\+2d (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{filename,  }\item[{character(len=$\ast$), intent(in)}]{fieldname,  }\item[{real, dimension(\+:,\+:), intent(inout)}]{data,  }\item[{type(\mbox{\hyperlink{structmom__domains_1_1mom__domain__type}{mom\+\_\+domain\+\_\+type}}), intent(in)}]{M\+O\+M\+\_\+\+Domain,  }\item[{integer, intent(in), optional}]{timelevel,  }\item[{integer, intent(in), optional}]{position,  }\item[{real, intent(in), optional}]{scale }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



This function uses the fms\+\_\+io function read\+\_\+data to read a distributed 2-\/D data field named \char`\"{}fieldname\char`\"{} from file \char`\"{}filename\char`\"{}. Valid values for \char`\"{}position\char`\"{} include C\+O\+R\+N\+ER, C\+E\+N\+T\+ER, E\+A\+S\+T\+\_\+\+F\+A\+CE and N\+O\+R\+T\+H\+\_\+\+F\+A\+CE. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em filename} & The name of the file to read \\
\hline
\mbox{\texttt{ in}}  & {\em fieldname} & The variable name of the data in the file \\
\hline
\mbox{\texttt{ in,out}}  & {\em data} & The 2-\/dimensional array into which the data should be read \\
\hline
\mbox{\texttt{ in}}  & {\em mom\+\_\+domain} & The M\+O\+M\+\_\+\+Domain that describes the decomposition \\
\hline
\mbox{\texttt{ in}}  & {\em timelevel} & The time level in the file to read \\
\hline
\mbox{\texttt{ in}}  & {\em position} & A flag indicating where this data is located \\
\hline
\mbox{\texttt{ in}}  & {\em scale} & A scaling factor that the field is multiplied by before they are returned. \\
\hline
\end{DoxyParams}


Definition at line 868 of file M\+O\+M\+\_\+io.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{870   \textcolor{keywordtype}{character(len=*)},       \textcolor{keywordtype}{intent(in)}    :: filename\textcolor{comment}{  !< The name of the file to read}}
\DoxyCodeLine{871   \textcolor{keywordtype}{character(len=*)},       \textcolor{keywordtype}{intent(in)}    :: fieldname\textcolor{comment}{ !< The variable name of the data in the file}}
\DoxyCodeLine{872 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:)},   \textcolor{keywordtype}{intent(inout)} :: data\textcolor{comment}{      !< The 2-\/dimensional array into which the data}}
\DoxyCodeLine{873 \textcolor{comment}{                                                     !! should be read}}
\DoxyCodeLine{874   \textcolor{keywordtype}{type}(MOM\_domain\_type),  \textcolor{keywordtype}{intent(in)}    :: MOM\_Domain\textcolor{comment}{ !< The MOM\_Domain that describes the decomposition}}
\DoxyCodeLine{875   \textcolor{keywordtype}{integer},      \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: timelevel\textcolor{comment}{ !< The time level in the file to read}}
\DoxyCodeLine{876   \textcolor{keywordtype}{integer},      \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: position\textcolor{comment}{  !< A flag indicating where this data is located}}
\DoxyCodeLine{877 \textcolor{keywordtype}{  real},         \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: scale\textcolor{comment}{     !< A scaling factor that the field is multiplied}}
\DoxyCodeLine{878 \textcolor{comment}{                                                     !! by before they are returned.}}
\DoxyCodeLine{879 }
\DoxyCodeLine{880   \textcolor{keywordtype}{integer} :: is, ie, js, je}
\DoxyCodeLine{881 }
\DoxyCodeLine{882   \textcolor{keyword}{call }read\_data(filename, fieldname, \textcolor{keyword}{data}, mom\_domain\%mpp\_domain, \&}
\DoxyCodeLine{883                  timelevel=timelevel, position=position)}
\DoxyCodeLine{884 }
\DoxyCodeLine{885   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(scale)) \textcolor{keywordflow}{then} ; \textcolor{keywordflow}{if} (scale /= 1.0) \textcolor{keywordflow}{then}}
\DoxyCodeLine{886     \textcolor{keyword}{call }get\_simple\_array\_i\_ind(mom\_domain, \textcolor{keyword}{size}(\textcolor{keyword}{data},1), is, ie)}
\DoxyCodeLine{887     \textcolor{keyword}{call }get\_simple\_array\_j\_ind(mom\_domain, \textcolor{keyword}{size}(\textcolor{keyword}{data},2), js, je)}
\DoxyCodeLine{888     \textcolor{keyword}{data}(is:ie,js:je) = scale*\textcolor{keyword}{data}(is:ie,js:je)}
\DoxyCodeLine{889 \textcolor{keywordflow}{  endif} ;\textcolor{keywordflow}{ endif}}
\DoxyCodeLine{890 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__io_1_1mom__read__data_a8d8b4317fa8b790ec2cecfd15befd3dd}\label{interfacemom__io_1_1mom__read__data_a8d8b4317fa8b790ec2cecfd15befd3dd}} 
\index{mom\_io::mom\_read\_data@{mom\_io::mom\_read\_data}!mom\_read\_data\_3d@{mom\_read\_data\_3d}}
\index{mom\_read\_data\_3d@{mom\_read\_data\_3d}!mom\_io::mom\_read\_data@{mom\_io::mom\_read\_data}}
\doxysubsubsection{\texorpdfstring{mom\_read\_data\_3d()}{mom\_read\_data\_3d()}}
{\footnotesize\ttfamily subroutine mom\+\_\+io\+::mom\+\_\+read\+\_\+data\+::mom\+\_\+read\+\_\+data\+\_\+3d (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{filename,  }\item[{character(len=$\ast$), intent(in)}]{fieldname,  }\item[{real, dimension(\+:,\+:,\+:), intent(inout)}]{data,  }\item[{type(\mbox{\hyperlink{structmom__domains_1_1mom__domain__type}{mom\+\_\+domain\+\_\+type}}), intent(in)}]{M\+O\+M\+\_\+\+Domain,  }\item[{integer, intent(in), optional}]{timelevel,  }\item[{integer, intent(in), optional}]{position,  }\item[{real, intent(in), optional}]{scale }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



This function uses the fms\+\_\+io function read\+\_\+data to read a distributed 3-\/D data field named \char`\"{}fieldname\char`\"{} from file \char`\"{}filename\char`\"{}. Valid values for \char`\"{}position\char`\"{} include C\+O\+R\+N\+ER, C\+E\+N\+T\+ER, E\+A\+S\+T\+\_\+\+F\+A\+CE and N\+O\+R\+T\+H\+\_\+\+F\+A\+CE. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em filename} & The name of the file to read \\
\hline
\mbox{\texttt{ in}}  & {\em fieldname} & The variable name of the data in the file \\
\hline
\mbox{\texttt{ in,out}}  & {\em data} & The 3-\/dimensional array into which the data should be read \\
\hline
\mbox{\texttt{ in}}  & {\em mom\+\_\+domain} & The M\+O\+M\+\_\+\+Domain that describes the decomposition \\
\hline
\mbox{\texttt{ in}}  & {\em timelevel} & The time level in the file to read \\
\hline
\mbox{\texttt{ in}}  & {\em position} & A flag indicating where this data is located \\
\hline
\mbox{\texttt{ in}}  & {\em scale} & A scaling factor that the field is multiplied by before they are returned. \\
\hline
\end{DoxyParams}


Definition at line 896 of file M\+O\+M\+\_\+io.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{898   \textcolor{keywordtype}{character(len=*)},       \textcolor{keywordtype}{intent(in)}    :: filename\textcolor{comment}{  !< The name of the file to read}}
\DoxyCodeLine{899   \textcolor{keywordtype}{character(len=*)},       \textcolor{keywordtype}{intent(in)}    :: fieldname\textcolor{comment}{ !< The variable name of the data in the file}}
\DoxyCodeLine{900 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{intent(inout)} :: data\textcolor{comment}{      !< The 3-\/dimensional array into which the data}}
\DoxyCodeLine{901 \textcolor{comment}{                                                     !! should be read}}
\DoxyCodeLine{902   \textcolor{keywordtype}{type}(MOM\_domain\_type),  \textcolor{keywordtype}{intent(in)}    :: MOM\_Domain\textcolor{comment}{ !< The MOM\_Domain that describes the decomposition}}
\DoxyCodeLine{903   \textcolor{keywordtype}{integer},      \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: timelevel\textcolor{comment}{ !< The time level in the file to read}}
\DoxyCodeLine{904   \textcolor{keywordtype}{integer},      \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: position\textcolor{comment}{  !< A flag indicating where this data is located}}
\DoxyCodeLine{905 \textcolor{keywordtype}{  real},         \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: scale\textcolor{comment}{     !< A scaling factor that the field is multiplied}}
\DoxyCodeLine{906 \textcolor{comment}{                                                     !! by before they are returned.}}
\DoxyCodeLine{907 }
\DoxyCodeLine{908   \textcolor{keywordtype}{integer} :: is, ie, js, je}
\DoxyCodeLine{909 }
\DoxyCodeLine{910   \textcolor{keyword}{call }read\_data(filename, fieldname, \textcolor{keyword}{data}, mom\_domain\%mpp\_domain, \&}
\DoxyCodeLine{911                  timelevel=timelevel, position=position)}
\DoxyCodeLine{912 }
\DoxyCodeLine{913   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(scale)) \textcolor{keywordflow}{then} ; \textcolor{keywordflow}{if} (scale /= 1.0) \textcolor{keywordflow}{then}}
\DoxyCodeLine{914     \textcolor{keyword}{call }get\_simple\_array\_i\_ind(mom\_domain, \textcolor{keyword}{size}(\textcolor{keyword}{data},1), is, ie)}
\DoxyCodeLine{915     \textcolor{keyword}{call }get\_simple\_array\_j\_ind(mom\_domain, \textcolor{keyword}{size}(\textcolor{keyword}{data},2), js, je)}
\DoxyCodeLine{916     \textcolor{keyword}{data}(is:ie,js:je,:) = scale*\textcolor{keyword}{data}(is:ie,js:je,:)}
\DoxyCodeLine{917 \textcolor{keywordflow}{  endif} ;\textcolor{keywordflow}{ endif}}
\DoxyCodeLine{918 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__io_1_1mom__read__data_a2bb1880532b2332ec27cae5076cdeecd}\label{interfacemom__io_1_1mom__read__data_a2bb1880532b2332ec27cae5076cdeecd}} 
\index{mom\_io::mom\_read\_data@{mom\_io::mom\_read\_data}!mom\_read\_data\_4d@{mom\_read\_data\_4d}}
\index{mom\_read\_data\_4d@{mom\_read\_data\_4d}!mom\_io::mom\_read\_data@{mom\_io::mom\_read\_data}}
\doxysubsubsection{\texorpdfstring{mom\_read\_data\_4d()}{mom\_read\_data\_4d()}}
{\footnotesize\ttfamily subroutine mom\+\_\+io\+::mom\+\_\+read\+\_\+data\+::mom\+\_\+read\+\_\+data\+\_\+4d (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{filename,  }\item[{character(len=$\ast$), intent(in)}]{fieldname,  }\item[{real, dimension(\+:,\+:,\+:,\+:), intent(inout)}]{data,  }\item[{type(\mbox{\hyperlink{structmom__domains_1_1mom__domain__type}{mom\+\_\+domain\+\_\+type}}), intent(in)}]{M\+O\+M\+\_\+\+Domain,  }\item[{integer, intent(in), optional}]{timelevel,  }\item[{integer, intent(in), optional}]{position,  }\item[{real, intent(in), optional}]{scale }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



This function uses the fms\+\_\+io function read\+\_\+data to read a distributed 4-\/D data field named \char`\"{}fieldname\char`\"{} from file \char`\"{}filename\char`\"{}. Valid values for \char`\"{}position\char`\"{} include C\+O\+R\+N\+ER, C\+E\+N\+T\+ER, E\+A\+S\+T\+\_\+\+F\+A\+CE and N\+O\+R\+T\+H\+\_\+\+F\+A\+CE. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em filename} & The name of the file to read \\
\hline
\mbox{\texttt{ in}}  & {\em fieldname} & The variable name of the data in the file \\
\hline
\mbox{\texttt{ in,out}}  & {\em data} & The 4-\/dimensional array into which the data should be read \\
\hline
\mbox{\texttt{ in}}  & {\em mom\+\_\+domain} & The M\+O\+M\+\_\+\+Domain that describes the decomposition \\
\hline
\mbox{\texttt{ in}}  & {\em timelevel} & The time level in the file to read \\
\hline
\mbox{\texttt{ in}}  & {\em position} & A flag indicating where this data is located \\
\hline
\mbox{\texttt{ in}}  & {\em scale} & A scaling factor that the field is multiplied by before they are returned. \\
\hline
\end{DoxyParams}


Definition at line 924 of file M\+O\+M\+\_\+io.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{926   \textcolor{keywordtype}{character(len=*)},       \textcolor{keywordtype}{intent(in)}    :: filename\textcolor{comment}{  !< The name of the file to read}}
\DoxyCodeLine{927   \textcolor{keywordtype}{character(len=*)},       \textcolor{keywordtype}{intent(in)}    :: fieldname\textcolor{comment}{ !< The variable name of the data in the file}}
\DoxyCodeLine{928 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:,:,:)}, \textcolor{keywordtype}{intent(inout)} :: data\textcolor{comment}{    !< The 4-\/dimensional array into which the data}}
\DoxyCodeLine{929 \textcolor{comment}{                                                     !! should be read}}
\DoxyCodeLine{930   \textcolor{keywordtype}{type}(MOM\_domain\_type),  \textcolor{keywordtype}{intent(in)}    :: MOM\_Domain\textcolor{comment}{ !< The MOM\_Domain that describes the decomposition}}
\DoxyCodeLine{931   \textcolor{keywordtype}{integer},      \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: timelevel\textcolor{comment}{ !< The time level in the file to read}}
\DoxyCodeLine{932   \textcolor{keywordtype}{integer},      \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: position\textcolor{comment}{  !< A flag indicating where this data is located}}
\DoxyCodeLine{933 \textcolor{keywordtype}{  real},         \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: scale\textcolor{comment}{     !< A scaling factor that the field is multiplied}}
\DoxyCodeLine{934 \textcolor{comment}{                                                     !! by before they are returned.}}
\DoxyCodeLine{935 }
\DoxyCodeLine{936   \textcolor{keywordtype}{integer} :: is, ie, js, je}
\DoxyCodeLine{937 }
\DoxyCodeLine{938   \textcolor{keyword}{call }read\_data(filename, fieldname, \textcolor{keyword}{data}, mom\_domain\%mpp\_domain, \&}
\DoxyCodeLine{939                  timelevel=timelevel, position=position)}
\DoxyCodeLine{940 }
\DoxyCodeLine{941   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(scale)) \textcolor{keywordflow}{then} ; \textcolor{keywordflow}{if} (scale /= 1.0) \textcolor{keywordflow}{then}}
\DoxyCodeLine{942     \textcolor{keyword}{call }get\_simple\_array\_i\_ind(mom\_domain, \textcolor{keyword}{size}(\textcolor{keyword}{data},1), is, ie)}
\DoxyCodeLine{943     \textcolor{keyword}{call }get\_simple\_array\_j\_ind(mom\_domain, \textcolor{keyword}{size}(\textcolor{keyword}{data},2), js, je)}
\DoxyCodeLine{944     \textcolor{keyword}{data}(is:ie,js:je,:,:) = scale*\textcolor{keyword}{data}(is:ie,js:je,:,:)}
\DoxyCodeLine{945 \textcolor{keywordflow}{  endif} ;\textcolor{keywordflow}{ endif}}
\DoxyCodeLine{946 }

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