\hypertarget{interfaceocean__model__mod_1_1ocean__model__data__get}{}\doxysection{ocean\+\_\+model\+\_\+mod\+::ocean\+\_\+model\+\_\+data\+\_\+get Interface Reference} \label{interfaceocean__model__mod_1_1ocean__model__data__get}\index{ocean\_model\_mod::ocean\_model\_data\_get@{ocean\_model\_mod::ocean\_model\_data\_get}} \doxysubsection{Detailed Description} This interface extracts a named scalar field or array from the ocean surface or public type. Definition at line 84 of file ocean\+\_\+model\+\_\+\+M\+O\+M.\+F90. \doxysubsection*{Private functions} \begin{DoxyCompactItemize} \item subroutine \mbox{\hyperlink{interfaceocean__model__mod_1_1ocean__model__data__get_a844a7b9a4d1dade9cf657ac00477db94}{ocean\+\_\+model\+\_\+data1d\+\_\+get}} (OS, Ocean, name, value) \begin{DoxyCompactList}\small\item\em This subroutine extracts a named scalar field from the ocean surface or public type. \end{DoxyCompactList}\item subroutine \mbox{\hyperlink{interfaceocean__model__mod_1_1ocean__model__data__get_ad493240c6eb21e329541b378db546924}{ocean\+\_\+model\+\_\+data2d\+\_\+get}} (OS, Ocean, name, array2D, isc, jsc) \begin{DoxyCompactList}\small\item\em This subroutine extracts a named 2-\/D field from the ocean surface or public type. \end{DoxyCompactList}\end{DoxyCompactItemize} \doxysubsection{Detailed Description} This interface extracts a named scalar field or array from the ocean surface or public type. Definition at line 84 of file ocean\+\_\+model\+\_\+\+M\+O\+M.\+F90. \doxysubsection{Functions and subroutines} \mbox{\Hypertarget{interfaceocean__model__mod_1_1ocean__model__data__get_a844a7b9a4d1dade9cf657ac00477db94}\label{interfaceocean__model__mod_1_1ocean__model__data__get_a844a7b9a4d1dade9cf657ac00477db94}} \index{ocean\_model\_mod::ocean\_model\_data\_get@{ocean\_model\_mod::ocean\_model\_data\_get}!ocean\_model\_data1d\_get@{ocean\_model\_data1d\_get}} \index{ocean\_model\_data1d\_get@{ocean\_model\_data1d\_get}!ocean\_model\_mod::ocean\_model\_data\_get@{ocean\_model\_mod::ocean\_model\_data\_get}} \doxysubsubsection{\texorpdfstring{ocean\_model\_data1d\_get()}{ocean\_model\_data1d\_get()}} {\footnotesize\ttfamily subroutine ocean\+\_\+model\+\_\+mod\+::ocean\+\_\+model\+\_\+data\+\_\+get\+::ocean\+\_\+model\+\_\+data1d\+\_\+get (\begin{DoxyParamCaption}\item[{type(\mbox{\hyperlink{structocean__model__mod_1_1ocean__state__type}{ocean\+\_\+state\+\_\+type}}), pointer}]{OS, }\item[{type(\mbox{\hyperlink{structocean__model__mod_1_1ocean__public__type}{ocean\+\_\+public\+\_\+type}}), intent(in)}]{Ocean, }\item[{character(len=$\ast$), intent(in)}]{name, }\item[{real, intent(out)}]{value }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}} This subroutine extracts a named scalar field from the ocean surface or public type. \begin{DoxyParams}[1]{Parameters} & {\em os} & A pointer to the structure containing the internal ocean state (intent in). \\ \hline \mbox{\texttt{ in}} & {\em ocean} & A structure containing various publicly visible ocean surface fields. \\ \hline \mbox{\texttt{ in}} & {\em name} & The name of the field to extract \\ \hline \mbox{\texttt{ out}} & {\em value} & The value of the named field \\ \hline \end{DoxyParams} Definition at line 1075 of file ocean\+\_\+model\+\_\+\+M\+O\+M.\+F90. \begin{DoxyCode}{0} \DoxyCodeLine{1075 \textcolor{keywordtype}{type}(ocean\_state\_type), \textcolor{keywordtype}{pointer} :: OS\textcolor{comment}{ !< A pointer to the structure containing the}} \DoxyCodeLine{1076 \textcolor{comment}{ !! internal ocean state (intent in).}} \DoxyCodeLine{1077 \textcolor{keywordtype}{type}(ocean\_public\_type), \textcolor{keywordtype}{intent(in)} :: Ocean\textcolor{comment}{ !< A structure containing various publicly}} \DoxyCodeLine{1078 \textcolor{comment}{ !! visible ocean surface fields.}} \DoxyCodeLine{1079 \textcolor{keywordtype}{character(len=*)} , \textcolor{keywordtype}{intent(in)} :: name\textcolor{comment}{ !< The name of the field to extract}} \DoxyCodeLine{1080 \textcolor{keywordtype}{ real} , \textcolor{keywordtype}{intent(out)}:: \textcolor{keywordtype}{value}\textcolor{comment}{ !< The value of the named field}} \DoxyCodeLine{1081 } \DoxyCodeLine{1082 \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(os)) \textcolor{keywordflow}{return}} \DoxyCodeLine{1083 \textcolor{keywordflow}{if} (.not.os\%is\_ocean\_pe) \textcolor{keywordflow}{return}} \DoxyCodeLine{1084 } \DoxyCodeLine{1085 \textcolor{keywordflow}{select case}(name)} \DoxyCodeLine{1086 \textcolor{keywordflow}{case}(\textcolor{stringliteral}{'c\_p'})} \DoxyCodeLine{1087 \textcolor{keywordtype}{value} = os\%C\_p} \DoxyCodeLine{1088 \textcolor{keywordflow}{ case default}} \DoxyCodeLine{1089 \textcolor{keyword}{call }mom\_error(fatal,\textcolor{stringliteral}{'get\_ocean\_grid\_data1D: unknown argument name='}//name)} \DoxyCodeLine{1090 \textcolor{keywordflow}{ end select}} \DoxyCodeLine{1091 } \end{DoxyCode} \mbox{\Hypertarget{interfaceocean__model__mod_1_1ocean__model__data__get_ad493240c6eb21e329541b378db546924}\label{interfaceocean__model__mod_1_1ocean__model__data__get_ad493240c6eb21e329541b378db546924}} \index{ocean\_model\_mod::ocean\_model\_data\_get@{ocean\_model\_mod::ocean\_model\_data\_get}!ocean\_model\_data2d\_get@{ocean\_model\_data2d\_get}} \index{ocean\_model\_data2d\_get@{ocean\_model\_data2d\_get}!ocean\_model\_mod::ocean\_model\_data\_get@{ocean\_model\_mod::ocean\_model\_data\_get}} \doxysubsubsection{\texorpdfstring{ocean\_model\_data2d\_get()}{ocean\_model\_data2d\_get()}} {\footnotesize\ttfamily subroutine ocean\+\_\+model\+\_\+mod\+::ocean\+\_\+model\+\_\+data\+\_\+get\+::ocean\+\_\+model\+\_\+data2d\+\_\+get (\begin{DoxyParamCaption}\item[{type(\mbox{\hyperlink{structocean__model__mod_1_1ocean__state__type}{ocean\+\_\+state\+\_\+type}}), pointer}]{OS, }\item[{type(\mbox{\hyperlink{structocean__model__mod_1_1ocean__public__type}{ocean\+\_\+public\+\_\+type}}), intent(in)}]{Ocean, }\item[{character(len=$\ast$), intent(in)}]{name, }\item[{real, dimension(isc\+:,jsc\+:), intent(out)}]{array2D, }\item[{integer, intent(in)}]{isc, }\item[{integer, intent(in)}]{jsc }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}} This subroutine extracts a named 2-\/D field from the ocean surface or public type. \begin{DoxyParams}[1]{Parameters} & {\em os} & A pointer to the structure containing the internal ocean state (intent in). \\ \hline \mbox{\texttt{ in}} & {\em ocean} & A structure containing various publicly visible ocean surface fields. \\ \hline \mbox{\texttt{ in}} & {\em name} & The name of the field to extract \\ \hline \mbox{\texttt{ out}} & {\em array2d} & The values of the named field, it must cover only the computational domain \\ \hline \mbox{\texttt{ in}} & {\em isc} & The starting i-\/index of array2D \\ \hline \mbox{\texttt{ in}} & {\em jsc} & The starting j-\/index of array2D \\ \hline \end{DoxyParams} Definition at line 1013 of file ocean\+\_\+model\+\_\+\+M\+O\+M.\+F90. \begin{DoxyCode}{0} \DoxyCodeLine{1013 \textcolor{keywordtype}{use }\mbox{\hyperlink{namespacemom__constants}{mom\_constants}}, \textcolor{keywordtype}{only} : celsius\_kelvin\_offset} \DoxyCodeLine{1014 \textcolor{keywordtype}{type}(ocean\_state\_type), \textcolor{keywordtype}{pointer} :: OS\textcolor{comment}{ !< A pointer to the structure containing the}} \DoxyCodeLine{1015 \textcolor{comment}{ !! internal ocean state (intent in).}} \DoxyCodeLine{1016 \textcolor{keywordtype}{type}(ocean\_public\_type), \textcolor{keywordtype}{intent(in)} :: Ocean\textcolor{comment}{ !< A structure containing various publicly}} \DoxyCodeLine{1017 \textcolor{comment}{ !! visible ocean surface fields.}} \DoxyCodeLine{1018 \textcolor{keywordtype}{character(len=*)} , \textcolor{keywordtype}{intent(in)} :: name\textcolor{comment}{ !< The name of the field to extract}} \DoxyCodeLine{1019 \textcolor{keywordtype}{ real}, \textcolor{keywordtype}{dimension(isc:,jsc:)}, \textcolor{keywordtype}{intent(out)}:: array2D\textcolor{comment}{ !< The values of the named field, it must}} \DoxyCodeLine{1020 \textcolor{comment}{ !! cover only the computational domain}} \DoxyCodeLine{1021 \textcolor{keywordtype}{integer} , \textcolor{keywordtype}{intent(in)} :: isc\textcolor{comment}{ !< The starting i-\/index of array2D}} \DoxyCodeLine{1022 \textcolor{keywordtype}{integer} , \textcolor{keywordtype}{intent(in)} :: jsc\textcolor{comment}{ !< The starting j-\/index of array2D}} \DoxyCodeLine{1023 } \DoxyCodeLine{1024 \textcolor{keywordtype}{integer} :: g\_isc, g\_iec, g\_jsc, g\_jec,g\_isd, g\_ied, g\_jsd, g\_jed, i, j} \DoxyCodeLine{1025 } \DoxyCodeLine{1026 \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(os)) \textcolor{keywordflow}{return}} \DoxyCodeLine{1027 \textcolor{keywordflow}{if} (.not.os\%is\_ocean\_pe) \textcolor{keywordflow}{return}} \DoxyCodeLine{1028 } \DoxyCodeLine{1029 \textcolor{comment}{! The problem is \%areaT is on MOM domain but Ice\_Ocean\_Boundary\%... is on mpp domain.}} \DoxyCodeLine{1030 \textcolor{comment}{! We want to return the MOM data on the mpp (compute) domain}} \DoxyCodeLine{1031 \textcolor{comment}{! Get MOM domain extents}} \DoxyCodeLine{1032 \textcolor{keyword}{call }mpp\_get\_compute\_domain(os\%grid\%Domain\%mpp\_domain, g\_isc, g\_iec, g\_jsc, g\_jec)} \DoxyCodeLine{1033 \textcolor{keyword}{call }mpp\_get\_data\_domain (os\%grid\%Domain\%mpp\_domain, g\_isd, g\_ied, g\_jsd, g\_jed)} \DoxyCodeLine{1034 } \DoxyCodeLine{1035 g\_isc = g\_isc-\/g\_isd+1 ; g\_iec = g\_iec-\/g\_isd+1 ; g\_jsc = g\_jsc-\/g\_jsd+1 ; g\_jec = g\_jec-\/g\_jsd+1} \DoxyCodeLine{1036 } \DoxyCodeLine{1037 } \DoxyCodeLine{1038 \textcolor{keywordflow}{select case}(name)} \DoxyCodeLine{1039 \textcolor{keywordflow}{case}(\textcolor{stringliteral}{'area'})} \DoxyCodeLine{1040 array2d(isc:,jsc:) = os\%US\%L\_to\_m**2*os\%grid\%areaT(g\_isc:g\_iec,g\_jsc:g\_jec)} \DoxyCodeLine{1041 \textcolor{keywordflow}{case}(\textcolor{stringliteral}{'mask'})} \DoxyCodeLine{1042 array2d(isc:,jsc:) = os\%grid\%mask2dT(g\_isc:g\_iec,g\_jsc:g\_jec)} \DoxyCodeLine{1043 \textcolor{comment}{!OR same result}} \DoxyCodeLine{1044 \textcolor{comment}{! do j=g\_jsc,g\_jec ; do i=g\_isc,g\_iec}} \DoxyCodeLine{1045 \textcolor{comment}{! array2D(isc+i-\/g\_isc,jsc+j-\/g\_jsc) = OS\%grid\%mask2dT(i,j)}} \DoxyCodeLine{1046 \textcolor{comment}{! enddo ; enddo}} \DoxyCodeLine{1047 \textcolor{keywordflow}{case}(\textcolor{stringliteral}{'t\_surf'})} \DoxyCodeLine{1048 array2d(isc:,jsc:) = ocean\%t\_surf(isc:,jsc:)-\/celsius\_kelvin\_offset} \DoxyCodeLine{1049 \textcolor{keywordflow}{case}(\textcolor{stringliteral}{'t\_pme'})} \DoxyCodeLine{1050 array2d(isc:,jsc:) = ocean\%t\_surf(isc:,jsc:)-\/celsius\_kelvin\_offset} \DoxyCodeLine{1051 \textcolor{keywordflow}{case}(\textcolor{stringliteral}{'t\_runoff'})} \DoxyCodeLine{1052 array2d(isc:,jsc:) = ocean\%t\_surf(isc:,jsc:)-\/celsius\_kelvin\_offset} \DoxyCodeLine{1053 \textcolor{keywordflow}{case}(\textcolor{stringliteral}{'t\_calving'})} \DoxyCodeLine{1054 array2d(isc:,jsc:) = ocean\%t\_surf(isc:,jsc:)-\/celsius\_kelvin\_offset} \DoxyCodeLine{1055 \textcolor{keywordflow}{case}(\textcolor{stringliteral}{'btfHeat'})} \DoxyCodeLine{1056 array2d(isc:,jsc:) = 0} \DoxyCodeLine{1057 \textcolor{keywordflow}{case}(\textcolor{stringliteral}{'cos\_rot'})} \DoxyCodeLine{1058 array2d(isc:,jsc:) = os\%grid\%cos\_rot(g\_isc:g\_iec,g\_jsc:g\_jec) \textcolor{comment}{! =1}} \DoxyCodeLine{1059 \textcolor{keywordflow}{case}(\textcolor{stringliteral}{'sin\_rot'})} \DoxyCodeLine{1060 array2d(isc:,jsc:) = os\%grid\%sin\_rot(g\_isc:g\_iec,g\_jsc:g\_jec) \textcolor{comment}{! =0}} \DoxyCodeLine{1061 \textcolor{keywordflow}{case}(\textcolor{stringliteral}{'s\_surf'})} \DoxyCodeLine{1062 array2d(isc:,jsc:) = ocean\%s\_surf(isc:,jsc:)} \DoxyCodeLine{1063 \textcolor{keywordflow}{case}(\textcolor{stringliteral}{'sea\_lev'})} \DoxyCodeLine{1064 array2d(isc:,jsc:) = ocean\%sea\_lev(isc:,jsc:)} \DoxyCodeLine{1065 \textcolor{keywordflow}{case}(\textcolor{stringliteral}{'frazil'})} \DoxyCodeLine{1066 array2d(isc:,jsc:) = ocean\%frazil(isc:,jsc:)} \DoxyCodeLine{1067 \textcolor{keywordflow}{ case default}} \DoxyCodeLine{1068 \textcolor{keyword}{call }mom\_error(fatal,\textcolor{stringliteral}{'get\_ocean\_grid\_data2D: unknown argument name='}//name)} \DoxyCodeLine{1069 \textcolor{keywordflow}{ end select}} \DoxyCodeLine{1070 } \end{DoxyCode} The documentation for this interface was generated from the following file\+:\begin{DoxyCompactItemize} \item /home/cermak/src/\+M\+O\+M6.\+devrob/config\+\_\+src/coupled\+\_\+driver/ocean\+\_\+model\+\_\+\+M\+O\+M.\+F90\end{DoxyCompactItemize}