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