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