\hypertarget{interfacemom__ale__sponge_1_1set__up__ale__sponge__vel__field}{}\doxysection{mom\+\_\+ale\+\_\+sponge\+::set\+\_\+up\+\_\+ale\+\_\+sponge\+\_\+vel\+\_\+field Interface Reference}
\label{interfacemom__ale__sponge_1_1set__up__ale__sponge__vel__field}\index{mom\_ale\_sponge::set\_up\_ale\_sponge\_vel\_field@{mom\_ale\_sponge::set\_up\_ale\_sponge\_vel\_field}}


\doxysubsection{Detailed Description}
This subroutine stores the reference profile at u and v points for a vector. 

Definition at line 40 of file M\+O\+M\+\_\+\+A\+L\+E\+\_\+sponge.\+F90.

\doxysubsection*{Private functions}
\begin{DoxyCompactItemize}
\item 
subroutine \mbox{\hyperlink{interfacemom__ale__sponge_1_1set__up__ale__sponge__vel__field_aa0daa07893ebcc910b5f5dcdae3eaf81}{set\+\_\+up\+\_\+ale\+\_\+sponge\+\_\+vel\+\_\+field\+\_\+fixed}} (u\+\_\+val, v\+\_\+val, G, u\+\_\+ptr, v\+\_\+ptr, CS)
\begin{DoxyCompactList}\small\item\em This subroutine stores the reference profile at u and v points for the variable whose address is given by u\+\_\+ptr and v\+\_\+ptr. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{interfacemom__ale__sponge_1_1set__up__ale__sponge__vel__field_aae74143786257b294a22b4e450bb6a67}{set\+\_\+up\+\_\+ale\+\_\+sponge\+\_\+vel\+\_\+field\+\_\+varying}} (filename\+\_\+u, fieldname\+\_\+u, filename\+\_\+v, fieldname\+\_\+v, Time, G, US, CS, u\+\_\+ptr, v\+\_\+ptr)
\begin{DoxyCompactList}\small\item\em This subroutine stores the reference profile at uand v points for the variable whose address is given by u\+\_\+ptr and v\+\_\+ptr. \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{Detailed Description}
This subroutine stores the reference profile at u and v points for a vector. 

Definition at line 40 of file M\+O\+M\+\_\+\+A\+L\+E\+\_\+sponge.\+F90.



\doxysubsection{Functions and subroutines}
\mbox{\Hypertarget{interfacemom__ale__sponge_1_1set__up__ale__sponge__vel__field_aa0daa07893ebcc910b5f5dcdae3eaf81}\label{interfacemom__ale__sponge_1_1set__up__ale__sponge__vel__field_aa0daa07893ebcc910b5f5dcdae3eaf81}} 
\index{mom\_ale\_sponge::set\_up\_ale\_sponge\_vel\_field@{mom\_ale\_sponge::set\_up\_ale\_sponge\_vel\_field}!set\_up\_ale\_sponge\_vel\_field\_fixed@{set\_up\_ale\_sponge\_vel\_field\_fixed}}
\index{set\_up\_ale\_sponge\_vel\_field\_fixed@{set\_up\_ale\_sponge\_vel\_field\_fixed}!mom\_ale\_sponge::set\_up\_ale\_sponge\_vel\_field@{mom\_ale\_sponge::set\_up\_ale\_sponge\_vel\_field}}
\doxysubsubsection{\texorpdfstring{set\_up\_ale\_sponge\_vel\_field\_fixed()}{set\_up\_ale\_sponge\_vel\_field\_fixed()}}
{\footnotesize\ttfamily subroutine mom\+\_\+ale\+\_\+sponge\+::set\+\_\+up\+\_\+ale\+\_\+sponge\+\_\+vel\+\_\+field\+::set\+\_\+up\+\_\+ale\+\_\+sponge\+\_\+vel\+\_\+field\+\_\+fixed (\begin{DoxyParamCaption}\item[{real, dimension( g \%isdb\+: g \%iedb, g \%jsd\+: g \%jed,cs\%nz\+\_\+data), intent(in)}]{u\+\_\+val,  }\item[{real, dimension( g \%isd\+: g \%ied, g \%jsdb\+: g \%jedb,cs\%nz\+\_\+data), intent(in)}]{v\+\_\+val,  }\item[{type(ocean\+\_\+grid\+\_\+type), intent(in)}]{G,  }\item[{real, dimension( g \%isdb\+: g \%iedb, g \%jsd\+: g \%jed, g \%ke), intent(in), target}]{u\+\_\+ptr,  }\item[{real, dimension( g \%isd\+: g \%ied, g \%jsdb\+: g \%jedb, g \%ke), intent(in), target}]{v\+\_\+ptr,  }\item[{type(\mbox{\hyperlink{structmom__ale__sponge_1_1ale__sponge__cs}{ale\+\_\+sponge\+\_\+cs}}), pointer}]{CS }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



This subroutine stores the reference profile at u and v points for the variable whose address is given by u\+\_\+ptr and v\+\_\+ptr. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em g} & Grid structure (in). \\
\hline
 & {\em cs} & Sponge structure (in/out). \\
\hline
\mbox{\texttt{ in}}  & {\em u\+\_\+val} & u field to be used in the sponge, it has arbritary number of layers. \\
\hline
\mbox{\texttt{ in}}  & {\em v\+\_\+val} & v field to be used in the sponge, it has arbritary number of layers. \\
\hline
\mbox{\texttt{ in}}  & {\em u\+\_\+ptr} & u pointer to the field to be damped \\
\hline
\mbox{\texttt{ in}}  & {\em v\+\_\+ptr} & v pointer to the field to be damped \\
\hline
\end{DoxyParams}


Definition at line 665 of file M\+O\+M\+\_\+\+A\+L\+E\+\_\+sponge.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{666   \textcolor{keywordtype}{type}(ocean\_grid\_type), \textcolor{keywordtype}{intent(in)} :: G\textcolor{comment}{  !< Grid structure (in).}}
\DoxyCodeLine{667   \textcolor{keywordtype}{type}(ALE\_sponge\_CS),   \textcolor{keywordtype}{pointer}    :: CS\textcolor{comment}{ !< Sponge structure (in/out).}}
\DoxyCodeLine{668 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(SZIB\_(G),SZJ\_(G),CS\%nz\_data)}, \&}
\DoxyCodeLine{669                          \textcolor{keywordtype}{intent(in)} :: u\_val\textcolor{comment}{ !< u field to be used in the sponge, it has arbritary number of layers.}}
\DoxyCodeLine{670 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(SZI\_(G),SZJB\_(G),CS\%nz\_data)}, \&}
\DoxyCodeLine{671                          \textcolor{keywordtype}{intent(in)} :: v\_val\textcolor{comment}{ !< v field to be used in the sponge, it has arbritary number of layers.}}
\DoxyCodeLine{672 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(SZIB\_(G),SZJ\_(G),SZK\_(G))}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: u\_ptr\textcolor{comment}{ !< u pointer to the field to be damped}}
\DoxyCodeLine{673 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(SZI\_(G),SZJB\_(G),SZK\_(G))}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: v\_ptr\textcolor{comment}{ !< v pointer to the field to be damped}}
\DoxyCodeLine{674 }
\DoxyCodeLine{675   \textcolor{keywordtype}{integer} :: j, k, col}
\DoxyCodeLine{676   \textcolor{keywordtype}{character(len=256)} :: mesg \textcolor{comment}{! String for error messages}}
\DoxyCodeLine{677 }
\DoxyCodeLine{678   \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(cs)) \textcolor{keywordflow}{return}}
\DoxyCodeLine{679 }
\DoxyCodeLine{680   \textcolor{comment}{! stores the reference profile}}
\DoxyCodeLine{681   \textcolor{keyword}{allocate}(cs\%Ref\_val\_u\%p(cs\%nz\_data,cs\%num\_col\_u))}
\DoxyCodeLine{682   cs\%Ref\_val\_u\%p(:,:) = 0.0}
\DoxyCodeLine{683   \textcolor{keywordflow}{do} col=1,cs\%num\_col\_u}
\DoxyCodeLine{684     \textcolor{keywordflow}{do} k=1,cs\%nz\_data}
\DoxyCodeLine{685       cs\%Ref\_val\_u\%p(k,col) = u\_val(cs\%col\_i\_u(col),cs\%col\_j\_u(col),k)}
\DoxyCodeLine{686 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{687 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{688   cs\%var\_u\%p => u\_ptr}
\DoxyCodeLine{689   \textcolor{keyword}{allocate}(cs\%Ref\_val\_v\%p(cs\%nz\_data,cs\%num\_col\_v))}
\DoxyCodeLine{690   cs\%Ref\_val\_v\%p(:,:) = 0.0}
\DoxyCodeLine{691   \textcolor{keywordflow}{do} col=1,cs\%num\_col\_v}
\DoxyCodeLine{692     \textcolor{keywordflow}{do} k=1,cs\%nz\_data}
\DoxyCodeLine{693       cs\%Ref\_val\_v\%p(k,col) = v\_val(cs\%col\_i\_v(col),cs\%col\_j\_v(col),k)}
\DoxyCodeLine{694 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{695 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{696   cs\%var\_v\%p => v\_ptr}
\DoxyCodeLine{697 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__ale__sponge_1_1set__up__ale__sponge__vel__field_aae74143786257b294a22b4e450bb6a67}\label{interfacemom__ale__sponge_1_1set__up__ale__sponge__vel__field_aae74143786257b294a22b4e450bb6a67}} 
\index{mom\_ale\_sponge::set\_up\_ale\_sponge\_vel\_field@{mom\_ale\_sponge::set\_up\_ale\_sponge\_vel\_field}!set\_up\_ale\_sponge\_vel\_field\_varying@{set\_up\_ale\_sponge\_vel\_field\_varying}}
\index{set\_up\_ale\_sponge\_vel\_field\_varying@{set\_up\_ale\_sponge\_vel\_field\_varying}!mom\_ale\_sponge::set\_up\_ale\_sponge\_vel\_field@{mom\_ale\_sponge::set\_up\_ale\_sponge\_vel\_field}}
\doxysubsubsection{\texorpdfstring{set\_up\_ale\_sponge\_vel\_field\_varying()}{set\_up\_ale\_sponge\_vel\_field\_varying()}}
{\footnotesize\ttfamily subroutine mom\+\_\+ale\+\_\+sponge\+::set\+\_\+up\+\_\+ale\+\_\+sponge\+\_\+vel\+\_\+field\+::set\+\_\+up\+\_\+ale\+\_\+sponge\+\_\+vel\+\_\+field\+\_\+varying (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{filename\+\_\+u,  }\item[{character(len=$\ast$), intent(in)}]{fieldname\+\_\+u,  }\item[{character(len=$\ast$), intent(in)}]{filename\+\_\+v,  }\item[{character(len=$\ast$), intent(in)}]{fieldname\+\_\+v,  }\item[{type(time\+\_\+type), intent(in)}]{Time,  }\item[{type(ocean\+\_\+grid\+\_\+type), intent(inout)}]{G,  }\item[{type(unit\+\_\+scale\+\_\+type), intent(in)}]{US,  }\item[{type(\mbox{\hyperlink{structmom__ale__sponge_1_1ale__sponge__cs}{ale\+\_\+sponge\+\_\+cs}}), pointer}]{CS,  }\item[{real, dimension( g \%isdb\+: g \%iedb, g \%jsd\+: g \%jed, g \%ke), intent(in), target}]{u\+\_\+ptr,  }\item[{real, dimension( g \%isd\+: g \%ied, g \%jsdb\+: g \%jedb, g \%ke), intent(in), target}]{v\+\_\+ptr }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



This subroutine stores the reference profile at uand v points for the variable whose address is given by u\+\_\+ptr and v\+\_\+ptr. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em filename\+\_\+u} & File name for u field \\
\hline
\mbox{\texttt{ in}}  & {\em fieldname\+\_\+u} & Name of u variable in file \\
\hline
\mbox{\texttt{ in}}  & {\em filename\+\_\+v} & File name for v field \\
\hline
\mbox{\texttt{ in}}  & {\em fieldname\+\_\+v} & Name of v variable in file \\
\hline
\mbox{\texttt{ in}}  & {\em time} & Model time \\
\hline
\mbox{\texttt{ in,out}}  & {\em g} & Ocean grid (in) \\
\hline
\mbox{\texttt{ in}}  & {\em us} & A dimensional unit scaling type \\
\hline
 & {\em cs} & Sponge structure (in/out). \\
\hline
\mbox{\texttt{ in}}  & {\em u\+\_\+ptr} & u pointer to the field to be damped (in). \\
\hline
\mbox{\texttt{ in}}  & {\em v\+\_\+ptr} & v pointer to the field to be damped (in). \\
\hline
\end{DoxyParams}


Definition at line 702 of file M\+O\+M\+\_\+\+A\+L\+E\+\_\+sponge.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{704   \textcolor{keywordtype}{character(len=*)}, \textcolor{keywordtype}{intent(in)}    :: filename\_u\textcolor{comment}{  !< File name for u field}}
\DoxyCodeLine{705   \textcolor{keywordtype}{character(len=*)}, \textcolor{keywordtype}{intent(in)}    :: fieldname\_u\textcolor{comment}{ !< Name of u variable in file}}
\DoxyCodeLine{706   \textcolor{keywordtype}{character(len=*)}, \textcolor{keywordtype}{intent(in)}    :: filename\_v\textcolor{comment}{  !< File name for v field}}
\DoxyCodeLine{707   \textcolor{keywordtype}{character(len=*)}, \textcolor{keywordtype}{intent(in)}    :: fieldname\_v\textcolor{comment}{ !< Name of v variable in file}}
\DoxyCodeLine{708   \textcolor{keywordtype}{type}(time\_type),  \textcolor{keywordtype}{intent(in)}    :: Time\textcolor{comment}{        !< Model time}}
\DoxyCodeLine{709   \textcolor{keywordtype}{type}(ocean\_grid\_type), \textcolor{keywordtype}{intent(inout)} :: G\textcolor{comment}{      !< Ocean grid (in)}}
\DoxyCodeLine{710   \textcolor{keywordtype}{type}(unit\_scale\_type), \textcolor{keywordtype}{intent(in)}    :: US\textcolor{comment}{     !< A dimensional unit scaling type}}
\DoxyCodeLine{711   \textcolor{keywordtype}{type}(ALE\_sponge\_CS), \textcolor{keywordtype}{pointer}    :: CS\textcolor{comment}{          !< Sponge structure (in/out).}}
\DoxyCodeLine{712 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(SZIB\_(G),SZJ\_(G),SZK\_(G))}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: u\_ptr\textcolor{comment}{ !< u pointer to the field to be damped (in).}}
\DoxyCodeLine{713 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(SZI\_(G),SZJB\_(G),SZK\_(G))}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: v\_ptr\textcolor{comment}{ !< v pointer to the field to be damped (in).}}
\DoxyCodeLine{714   \textcolor{comment}{! Local variables}}
\DoxyCodeLine{715 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{allocatable}, \textcolor{keywordtype}{dimension(:,:,:)} :: u\_val\textcolor{comment}{ !< U field to be used in the sponge.}}
\DoxyCodeLine{716 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{allocatable}, \textcolor{keywordtype}{dimension(:,:,:)} :: mask\_u\textcolor{comment}{ !< U field mask for the sponge data.}}
\DoxyCodeLine{717 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{allocatable}, \textcolor{keywordtype}{dimension(:,:,:)} :: v\_val\textcolor{comment}{ !< V field to be used in the sponge.}}
\DoxyCodeLine{718 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{allocatable}, \textcolor{keywordtype}{dimension(:,:,:)} :: mask\_v\textcolor{comment}{ !< V field mask for the sponge data.}}
\DoxyCodeLine{719 }
\DoxyCodeLine{720 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{allocatable}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{target} :: z\_in, z\_edges\_in}
\DoxyCodeLine{721 \textcolor{keywordtype}{  real} :: missing\_value}
\DoxyCodeLine{722 }
\DoxyCodeLine{723   \textcolor{keywordtype}{integer} :: j, k, col}
\DoxyCodeLine{724   \textcolor{keywordtype}{integer} :: isd, ied, jsd, jed}
\DoxyCodeLine{725   \textcolor{keywordtype}{integer} :: isdB, iedB, jsdB, jedB}
\DoxyCodeLine{726   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(4)} :: fld\_sz}
\DoxyCodeLine{727   \textcolor{keywordtype}{character(len=256)} :: mesg \textcolor{comment}{! String for error messages}}
\DoxyCodeLine{728 }
\DoxyCodeLine{729   \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(cs)) \textcolor{keywordflow}{return}}
\DoxyCodeLine{730 }
\DoxyCodeLine{731   isd = g\%isd; ied = g\%ied; jsd = g\%jsd; jed = g\%jed}
\DoxyCodeLine{732   isdb = g\%isdB; iedb = g\%iedB; jsdb = g\%jsdB; jedb = g\%jedB}
\DoxyCodeLine{733   \textcolor{comment}{! get a unique id for this field which will allow us to return an array}}
\DoxyCodeLine{734   \textcolor{comment}{! containing time-\/interpolated values from an external file corresponding}}
\DoxyCodeLine{735   \textcolor{comment}{! to the current model date.}}
\DoxyCodeLine{736   cs\%Ref\_val\_u\%id = init\_external\_field(filename\_u, fieldname\_u)}
\DoxyCodeLine{737   fld\_sz(1:4)=-\/1}
\DoxyCodeLine{738   fld\_sz = get\_external\_field\_size(cs\%Ref\_val\_u\%id)}
\DoxyCodeLine{739   cs\%Ref\_val\_u\%nz\_data = fld\_sz(3)}
\DoxyCodeLine{740   cs\%Ref\_val\_u\%num\_tlevs = fld\_sz(4)}
\DoxyCodeLine{741   cs\%Ref\_val\_v\%id = init\_external\_field(filename\_v, fieldname\_v)}
\DoxyCodeLine{742   fld\_sz(1:4)=-\/1}
\DoxyCodeLine{743   fld\_sz = get\_external\_field\_size(cs\%Ref\_val\_v\%id)}
\DoxyCodeLine{744   cs\%Ref\_val\_v\%nz\_data = fld\_sz(3)}
\DoxyCodeLine{745   cs\%Ref\_val\_v\%num\_tlevs = fld\_sz(4)}
\DoxyCodeLine{746   \textcolor{keyword}{allocate}( u\_val(isdb:iedb,jsd:jed, fld\_sz(3)) )}
\DoxyCodeLine{747   \textcolor{keyword}{allocate}( mask\_u(isdb:iedb,jsd:jed, fld\_sz(3)) )}
\DoxyCodeLine{748   \textcolor{keyword}{allocate}( v\_val(isd:ied,jsdb:jedb, fld\_sz(3)) )}
\DoxyCodeLine{749   \textcolor{keyword}{allocate}( mask\_v(isd:ied,jsdb:jedb, fld\_sz(3)) )}
\DoxyCodeLine{750   \textcolor{comment}{! Interpolate external file data to the model grid}}
\DoxyCodeLine{751   \textcolor{comment}{! I am hard-\/wiring this call to assume that the input grid is zonally re-\/entrant}}
\DoxyCodeLine{752   \textcolor{comment}{! In the future, this should be generalized using an interface to return the}}
\DoxyCodeLine{753   \textcolor{comment}{! modulo attribute of the zonal axis (mjh).}}
\DoxyCodeLine{754   \textcolor{keyword}{call }horiz\_interp\_and\_extrap\_tracer(cs\%Ref\_val\_u\%id, time, 1.0, g, u\_val, mask\_u, z\_in, z\_edges\_in, \&}
\DoxyCodeLine{755                                       missing\_value, .true., .false., .false., m\_to\_z=us\%m\_to\_Z, \&}
\DoxyCodeLine{756                                       answers\_2018=cs\%hor\_regrid\_answers\_2018)}
\DoxyCodeLine{757   \textcolor{comment}{!!! TODO: add a velocity interface! (mjh)}}
\DoxyCodeLine{758   \textcolor{comment}{! Interpolate external file data to the model grid}}
\DoxyCodeLine{759   \textcolor{comment}{! I am hard-\/wiring this call to assume that the input grid is zonally re-\/entrant}}
\DoxyCodeLine{760   \textcolor{comment}{! In the future, this should be generalized using an interface to return the}}
\DoxyCodeLine{761   \textcolor{comment}{! modulo attribute of the zonal axis (mjh).}}
\DoxyCodeLine{762   \textcolor{keyword}{call }horiz\_interp\_and\_extrap\_tracer(cs\%Ref\_val\_v\%id, time, 1.0, g, v\_val, mask\_v, z\_in, z\_edges\_in, \&}
\DoxyCodeLine{763                                       missing\_value, .true., .false., .false., m\_to\_z=us\%m\_to\_Z, \&}
\DoxyCodeLine{764                                       answers\_2018=cs\%hor\_regrid\_answers\_2018)}
\DoxyCodeLine{765   \textcolor{comment}{! stores the reference profile}}
\DoxyCodeLine{766   \textcolor{keyword}{allocate}(cs\%Ref\_val\_u\%p(fld\_sz(3),cs\%num\_col\_u))}
\DoxyCodeLine{767   cs\%Ref\_val\_u\%p(:,:) = 0.0}
\DoxyCodeLine{768   \textcolor{keywordflow}{do} col=1,cs\%num\_col\_u}
\DoxyCodeLine{769     \textcolor{keywordflow}{do} k=1,fld\_sz(3)}
\DoxyCodeLine{770       cs\%Ref\_val\_u\%p(k,col) = u\_val(cs\%col\_i\_u(col),cs\%col\_j\_u(col),k)}
\DoxyCodeLine{771 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{772 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{773   cs\%var\_u\%p => u\_ptr}
\DoxyCodeLine{774   \textcolor{keyword}{allocate}(cs\%Ref\_val\_v\%p(fld\_sz(3),cs\%num\_col\_v))}
\DoxyCodeLine{775   cs\%Ref\_val\_v\%p(:,:) = 0.0}
\DoxyCodeLine{776   \textcolor{keywordflow}{do} col=1,cs\%num\_col\_v}
\DoxyCodeLine{777     \textcolor{keywordflow}{do} k=1,fld\_sz(3)}
\DoxyCodeLine{778       cs\%Ref\_val\_v\%p(k,col) = v\_val(cs\%col\_i\_v(col),cs\%col\_j\_v(col),k)}
\DoxyCodeLine{779 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{780 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{781   cs\%var\_v\%p => v\_ptr}
\DoxyCodeLine{782 }

\end{DoxyCode}


The documentation for this interface was generated from the following file\+:\begin{DoxyCompactItemize}
\item 
/home/cermak/src/\+M\+O\+M6.\+devrob/src/parameterizations/vertical/M\+O\+M\+\_\+\+A\+L\+E\+\_\+sponge.\+F90\end{DoxyCompactItemize}
