\hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs}{}\doxysection{mom\+\_\+set\+\_\+diffusivity\+::set\+\_\+diffusivity\+\_\+cs Type Reference}
\label{structmom__set__diffusivity_1_1set__diffusivity__cs}\index{mom\_set\_diffusivity::set\_diffusivity\_cs@{mom\_set\_diffusivity::set\_diffusivity\_cs}}


\doxysubsection{Detailed Description}
This control structure contains parameters for M\+O\+M\+\_\+set\+\_\+diffusivity. 

Definition at line 58 of file M\+O\+M\+\_\+set\+\_\+diffusivity.\+F90.



Collaboration diagram for mom\+\_\+set\+\_\+diffusivity\+::set\+\_\+diffusivity\+\_\+cs\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[height=550pt]{structmom__set__diffusivity_1_1set__diffusivity__cs__coll__graph}
\end{center}
\end{figure}
\doxysubsection*{Public variables and constants}
\begin{DoxyCompactItemize}
\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a95ddbc0a1c539e7f4e840bcf5e9b00ff}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a95ddbc0a1c539e7f4e840bcf5e9b00ff}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a95ddbc0a1c539e7f4e840bcf5e9b00ff}{debug}}
\begin{DoxyCompactList}\small\item\em If true, write verbose checksums for debugging. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_ae0d5ec562bf0bbc584f8ed6662998c82}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_ae0d5ec562bf0bbc584f8ed6662998c82}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_ae0d5ec562bf0bbc584f8ed6662998c82}{bulkmixedlayer}}
\begin{DoxyCompactList}\small\item\em If true, a refined bulk mixed layer is used with GVnk\+\_\+rho\+\_\+varies variable density mixed \& buffer layers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a761417505e2768138e350cadd7c33e2e}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a761417505e2768138e350cadd7c33e2e}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a761417505e2768138e350cadd7c33e2e}{fluxri\+\_\+max}}
\begin{DoxyCompactList}\small\item\em The flux Richardson number where the stratification is large enough that N2 $>$ omega2 \mbox{[}nondim\mbox{]}. The full expression for the Flux Richardson number is usually F\+L\+U\+X\+\_\+\+R\+I\+\_\+\+M\+A\+X$\ast$\+N2/(N2+\+O\+M\+E\+G\+A2). The default is 0.\+2. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a0d8b6dfa52e3c6feaeba39604fb609b7}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a0d8b6dfa52e3c6feaeba39604fb609b7}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a0d8b6dfa52e3c6feaeba39604fb609b7}{bottomdraglaw}}
\begin{DoxyCompactList}\small\item\em If true, the bottom stress is calculated with a drag law c\+\_\+drag$\ast$$\vert$u$\vert$$\ast$u. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_aac3e841fb3ae101a240ef128b6babee0}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_aac3e841fb3ae101a240ef128b6babee0}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_aac3e841fb3ae101a240ef128b6babee0}{bbl\+\_\+mixing\+\_\+as\+\_\+max}}
\begin{DoxyCompactList}\small\item\em If true, take the maximum of the diffusivity from the B\+BL mixing and the other diffusivities. Otherwise, diffusivities from the B\+B\+L\+\_\+mixing is added. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a4527f21a797b77fb615280d7cc546def}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a4527f21a797b77fb615280d7cc546def}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a4527f21a797b77fb615280d7cc546def}{use\+\_\+lotw\+\_\+bbl\+\_\+diffusivity}}
\begin{DoxyCompactList}\small\item\em If true, use simpler/less precise, B\+BL diffusivity. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a6311f986da946a7c0fc5e2a93b181d3e}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a6311f986da946a7c0fc5e2a93b181d3e}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a6311f986da946a7c0fc5e2a93b181d3e}{lotw\+\_\+bbl\+\_\+use\+\_\+omega}}
\begin{DoxyCompactList}\small\item\em If true, use simpler/less precise, B\+BL diffusivity. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a3230f42750256e6beeac372d60f9a9e0}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a3230f42750256e6beeac372d60f9a9e0}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a3230f42750256e6beeac372d60f9a9e0}{bbl\+\_\+effic}}
\begin{DoxyCompactList}\small\item\em efficiency with which the energy extracted by bottom drag drives B\+BL diffusion \mbox{[}nondim\mbox{]} \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_ae1faa74732e8e05e22ba193eed56cd2b}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_ae1faa74732e8e05e22ba193eed56cd2b}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_ae1faa74732e8e05e22ba193eed56cd2b}{cdrag}}
\begin{DoxyCompactList}\small\item\em quadratic drag coefficient \mbox{[}nondim\mbox{]} \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a7eacb5c106f3c3ed59725e703095bbec}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a7eacb5c106f3c3ed59725e703095bbec}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a7eacb5c106f3c3ed59725e703095bbec}{imax\+\_\+decay}}
\begin{DoxyCompactList}\small\item\em inverse of a maximum decay scale for bottom-\/drag driven turbulence \mbox{[}Z-\/1 $\sim$$>$ m-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a1d2895218b2dcab2aca94e2b25a4e037}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a1d2895218b2dcab2aca94e2b25a4e037}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a1d2895218b2dcab2aca94e2b25a4e037}{kv}}
\begin{DoxyCompactList}\small\item\em The interior vertical viscosity \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_ac17e53d11352ef95a4d28910f21d074b}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_ac17e53d11352ef95a4d28910f21d074b}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_ac17e53d11352ef95a4d28910f21d074b}{kd}}
\begin{DoxyCompactList}\small\item\em interior diapycnal diffusivity \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a3018a99f779d095519b2c48bf3795d51}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a3018a99f779d095519b2c48bf3795d51}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a3018a99f779d095519b2c48bf3795d51}{kd\+\_\+min}}
\begin{DoxyCompactList}\small\item\em minimum diapycnal diffusivity \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_acc22b62e4f48621223545550705f75fd}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_acc22b62e4f48621223545550705f75fd}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_acc22b62e4f48621223545550705f75fd}{kd\+\_\+max}}
\begin{DoxyCompactList}\small\item\em maximum increment for diapycnal diffusivity \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. Set to a negative value to have no limit. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a10e67e44e995a7a555b2ab01159a9f84}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a10e67e44e995a7a555b2ab01159a9f84}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a10e67e44e995a7a555b2ab01159a9f84}{kd\+\_\+add}}
\begin{DoxyCompactList}\small\item\em uniform diffusivity added everywhere without filtering or scaling \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a8cb85457a51c21957ee88e6f6f734088}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a8cb85457a51c21957ee88e6f6f734088}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a8cb85457a51c21957ee88e6f6f734088}{kd\+\_\+smooth}}
\begin{DoxyCompactList}\small\item\em Vertical diffusivity used to interpolate more sensible values of T \& S into thin layers \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a011e9d044f6fbb6d5c669cf8080127d3}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a011e9d044f6fbb6d5c669cf8080127d3}} 
type(\mbox{\hyperlink{structmom__diag__mediator_1_1diag__ctrl}{diag\+\_\+ctrl}}), pointer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a011e9d044f6fbb6d5c669cf8080127d3}{diag}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em structure to regulate diagnostic output timing \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_ac531ad116cd57691bb59610389d9a610}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_ac531ad116cd57691bb59610389d9a610}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_ac531ad116cd57691bb59610389d9a610}{limit\+\_\+dissipation}}
\begin{DoxyCompactList}\small\item\em If enabled, dissipation is limited to be larger than the following\+: \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a857fd412ab6ae4e9f66e58b34afe9c34}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a857fd412ab6ae4e9f66e58b34afe9c34}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a857fd412ab6ae4e9f66e58b34afe9c34}{dissip\+\_\+min}}
\begin{DoxyCompactList}\small\item\em Minimum dissipation \mbox{[}R Z2 T-\/3 $\sim$$>$ W m-\/3\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a714c7ed0172a25e5880317fcf543cd38}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a714c7ed0172a25e5880317fcf543cd38}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a714c7ed0172a25e5880317fcf543cd38}{dissip\+\_\+n0}}
\begin{DoxyCompactList}\small\item\em Coefficient a in minimum dissipation = a+b$\ast$N \mbox{[}R Z2 T-\/3 $\sim$$>$ W m-\/3\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a7d30eb853f2f3d0c4dc4d8293cab07db}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a7d30eb853f2f3d0c4dc4d8293cab07db}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a7d30eb853f2f3d0c4dc4d8293cab07db}{dissip\+\_\+n1}}
\begin{DoxyCompactList}\small\item\em Coefficient b in minimum dissipation = a+b$\ast$N \mbox{[}R Z2 T-\/2 $\sim$$>$ J m-\/3\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_affaf25dd04b0743e94729211ad720b91}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_affaf25dd04b0743e94729211ad720b91}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_affaf25dd04b0743e94729211ad720b91}{dissip\+\_\+n2}}
\begin{DoxyCompactList}\small\item\em Coefficient c in minimum dissipation = c$\ast$\+N2 \mbox{[}R Z2 T-\/1 $\sim$$>$ J s m-\/3\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_adcddf45021fe31460c96bb48b16520b9}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_adcddf45021fe31460c96bb48b16520b9}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_adcddf45021fe31460c96bb48b16520b9}{dissip\+\_\+kd\+\_\+min}}
\begin{DoxyCompactList}\small\item\em Minimum Kd \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}, with dissipation Rho0$\ast$\+Kd\+\_\+min$\ast$\+N$^\wedge$2. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_aa1bb6ef3e913624e457e3601eec4ba29}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_aa1bb6ef3e913624e457e3601eec4ba29}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_aa1bb6ef3e913624e457e3601eec4ba29}{omega}}
\begin{DoxyCompactList}\small\item\em Earth\textquotesingle{}s rotation frequency \mbox{[}T-\/1 $\sim$$>$ s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a16150a4b9a050ffac409cc55916cea3f}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a16150a4b9a050ffac409cc55916cea3f}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a16150a4b9a050ffac409cc55916cea3f}{ml\+\_\+radiation}}
\begin{DoxyCompactList}\small\item\em allow a fraction of T\+KE available from wind work to penetrate below mixed layer base with a vertical decay scale determined by the minimum of (1) The depth of the mixed layer, or (2) An Ekman length scale. Energy available to drive mixing below the mixed layer is given by E = M\+L\+\_\+\+R\+A\+D\+\_\+\+C\+O\+E\+F\+F$\ast$\+M\+S\+T\+A\+R$\ast$\+U\+S\+T\+A\+R$\ast$$\ast$3. Optionally, if M\+L\+\_\+rad\+\_\+\+T\+K\+E\+\_\+decay is true, this is further reduced by a factor of exp(-\/h\+\_\+\+M\+L$\ast$\+Idecay\+\_\+len\+\_\+\+TkE), where Idecay\+\_\+len\+\_\+\+T\+KE is calculated the same way as in the mixed layer code. The diapycnal diffusivity is K\+D(k) = E/(N2(k)+O\+M\+E\+G\+A2), where N2 is the squared buoyancy frequency \mbox{[}T-\/2 $\sim$$>$ s-\/2\mbox{]} and O\+M\+E\+G\+A2 is the rotation rate of the earth squared. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a2c7d9a5b4a9c305fc924650728f30580}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a2c7d9a5b4a9c305fc924650728f30580}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a2c7d9a5b4a9c305fc924650728f30580}{ml\+\_\+rad\+\_\+kd\+\_\+max}}
\begin{DoxyCompactList}\small\item\em Maximum diapycnal diffusivity due to turbulence radiated from the base of the mixed layer \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_abd4df7fb0baf51838e1aca7bbad0a729}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_abd4df7fb0baf51838e1aca7bbad0a729}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_abd4df7fb0baf51838e1aca7bbad0a729}{ml\+\_\+rad\+\_\+efold\+\_\+coeff}}
\begin{DoxyCompactList}\small\item\em non-\/dim coefficient to scale penetration depth \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a38666e9299b9e48e7d1c79e0e36ecf0a}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a38666e9299b9e48e7d1c79e0e36ecf0a}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a38666e9299b9e48e7d1c79e0e36ecf0a}{ml\+\_\+rad\+\_\+coeff}}
\begin{DoxyCompactList}\small\item\em coefficient, which scales M\+S\+T\+A\+R$\ast$\+U\+S\+T\+A\+R$^\wedge$3 to obtain energy available for mixing below mixed layer base \mbox{[}nondim\mbox{]} \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a8b9c07d13c51d5bac1fa01355d73237b}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a8b9c07d13c51d5bac1fa01355d73237b}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a8b9c07d13c51d5bac1fa01355d73237b}{ml\+\_\+rad\+\_\+bug}}
\begin{DoxyCompactList}\small\item\em If true use code with a bug that reduces the energy available in the transition layer by a factor of the inverse of the energy deposition lenthscale (in m). \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a13939d1209941f0eae285ac712ea0480}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a13939d1209941f0eae285ac712ea0480}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a13939d1209941f0eae285ac712ea0480}{ml\+\_\+rad\+\_\+tke\+\_\+decay}}
\begin{DoxyCompactList}\small\item\em If true, apply same exponential decay to M\+L\+\_\+rad as applied to the other surface sources of T\+KE in the mixed layer code. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_ae2253507d8cf64ac1c626c5fdfca82f7}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_ae2253507d8cf64ac1c626c5fdfca82f7}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_ae2253507d8cf64ac1c626c5fdfca82f7}{ustar\+\_\+min}}
\begin{DoxyCompactList}\small\item\em A minimum value of ustar to avoid numerical problems \mbox{[}Z T-\/1 $\sim$$>$ m s-\/1\mbox{]}. If the value is small enough, this parameter should not affect the solution. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_aca05b08438ce900ee5ea810bf7c8db9d}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_aca05b08438ce900ee5ea810bf7c8db9d}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_aca05b08438ce900ee5ea810bf7c8db9d}{tke\+\_\+decay}}
\begin{DoxyCompactList}\small\item\em ratio of natural Ekman depth to T\+KE decay scale \mbox{[}nondim\mbox{]} \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_aae22d1bdc58c71e326c589aa1fad2682}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_aae22d1bdc58c71e326c589aa1fad2682}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_aae22d1bdc58c71e326c589aa1fad2682}{mstar}}
\begin{DoxyCompactList}\small\item\em ratio of friction velocity cubed to T\+KE input to the mixed layer \mbox{[}nondim\mbox{]} \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_ab0fa44a4fd11e43d46a203488112116f}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_ab0fa44a4fd11e43d46a203488112116f}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_ab0fa44a4fd11e43d46a203488112116f}{ml\+\_\+use\+\_\+omega}}
\begin{DoxyCompactList}\small\item\em If true, use absolute rotation rate instead of the vertical component of rotation when setting the decay scale for mixed layer turbulence. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a17d528a0911868200951c8df03b8a88c}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a17d528a0911868200951c8df03b8a88c}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a17d528a0911868200951c8df03b8a88c}{ml\+\_\+omega\+\_\+frac}}
\begin{DoxyCompactList}\small\item\em When setting the decay scale for turbulence, use this fraction of the absolute rotation rate blended with the local value of f, as f$^\wedge$2 $\sim$= (1-\/of)$\ast$f$^\wedge$2 + of$\ast$4$\ast$omega$^\wedge$2. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a7d53f482f9ab10f82f3bd91c0bf735de}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a7d53f482f9ab10f82f3bd91c0bf735de}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a7d53f482f9ab10f82f3bd91c0bf735de}{user\+\_\+change\+\_\+diff}}
\begin{DoxyCompactList}\small\item\em If true, call user-\/defined code to change diffusivity. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_ad63befd3c2f96ae687694dc5976d81f8}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_ad63befd3c2f96ae687694dc5976d81f8}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_ad63befd3c2f96ae687694dc5976d81f8}{usekappashear}}
\begin{DoxyCompactList}\small\item\em If true, use the kappa\+\_\+shear module to find the shear-\/driven diapycnal diffusivity. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a131962e99b3f652c0f13c49007c28dc3}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a131962e99b3f652c0f13c49007c28dc3}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a131962e99b3f652c0f13c49007c28dc3}{vertex\+\_\+shear}}
\begin{DoxyCompactList}\small\item\em If true, do the calculations of the shear-\/driven mixing at the cell vertices (i.\+e., the vorticity points). \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a6738ec61fbe533b499d25ec15c5e539b}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a6738ec61fbe533b499d25ec15c5e539b}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a6738ec61fbe533b499d25ec15c5e539b}{use\+\_\+cvmix\+\_\+shear}}
\begin{DoxyCompactList}\small\item\em If true, use one of the C\+V\+Mix modules to find shear-\/driven diapycnal diffusivity. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_af2f0a5117361f85b17e45027d378c15e}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_af2f0a5117361f85b17e45027d378c15e}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_af2f0a5117361f85b17e45027d378c15e}{double\+\_\+diffusion}}
\begin{DoxyCompactList}\small\item\em If true, enable double-\/diffusive mixing using an old method. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a985026588438405515722a2ea58cf870}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a985026588438405515722a2ea58cf870}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a985026588438405515722a2ea58cf870}{use\+\_\+cvmix\+\_\+ddiff}}
\begin{DoxyCompactList}\small\item\em If true, enable double-\/diffusive mixing via C\+V\+Mix. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a580638da9eaba4b4c4b3f03399195a54}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a580638da9eaba4b4c4b3f03399195a54}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a580638da9eaba4b4c4b3f03399195a54}{use\+\_\+tidal\+\_\+mixing}}
\begin{DoxyCompactList}\small\item\em If true, activate tidal mixing diffusivity. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a7dd07a38210928ffaeb539fe917a80e1}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a7dd07a38210928ffaeb539fe917a80e1}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a7dd07a38210928ffaeb539fe917a80e1}{simple\+\_\+tke\+\_\+to\+\_\+kd}}
\begin{DoxyCompactList}\small\item\em If true, uses a simple estimate of Kd/\+T\+KE that does not rely on a layer-\/formulation. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a283f55a458a50ac7abce8d7b61fff0c0}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a283f55a458a50ac7abce8d7b61fff0c0}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a283f55a458a50ac7abce8d7b61fff0c0}{max\+\_\+rrho\+\_\+salt\+\_\+fingers}}
\begin{DoxyCompactList}\small\item\em max density ratio for salt fingering \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a139fb1a1deae31abc831e7875095e1fa}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a139fb1a1deae31abc831e7875095e1fa}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a139fb1a1deae31abc831e7875095e1fa}{max\+\_\+salt\+\_\+diff\+\_\+salt\+\_\+fingers}}
\begin{DoxyCompactList}\small\item\em max salt diffusivity for salt fingers \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]} \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a426b76d7cd2892cc75dd608303a6fc35}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a426b76d7cd2892cc75dd608303a6fc35}} 
real \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a426b76d7cd2892cc75dd608303a6fc35}{kv\+\_\+molecular}}
\begin{DoxyCompactList}\small\item\em molecular visc for double diff convect \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]} \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_afbca78b98fef608f7b73ff9dd7abc46f}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_afbca78b98fef608f7b73ff9dd7abc46f}} 
logical \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_afbca78b98fef608f7b73ff9dd7abc46f}{answers\+\_\+2018}}
\begin{DoxyCompactList}\small\item\em If true, use the order of arithmetic and expressions that recover the answers from the end of 2018. Otherwise, use updated and more robust forms of the same expressions. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a06b233f5488a54f0c57325760560623b}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a06b233f5488a54f0c57325760560623b}} 
character(len=200) \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a06b233f5488a54f0c57325760560623b}{inputdir}}
\begin{DoxyCompactList}\small\item\em The directory in which input files are found. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_acf8a4617b99124062ab1ee316323bc9f}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_acf8a4617b99124062ab1ee316323bc9f}} 
type(\mbox{\hyperlink{structuser__change__diffusivity_1_1user__change__diff__cs}{user\+\_\+change\+\_\+diff\+\_\+cs}}), pointer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_acf8a4617b99124062ab1ee316323bc9f}{user\+\_\+change\+\_\+diff\+\_\+csp}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em Control structure for a child module. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_ae66b441bd1b2059866f2ac7ef2dce2cb}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_ae66b441bd1b2059866f2ac7ef2dce2cb}} 
type(\mbox{\hyperlink{structmom__kappa__shear_1_1kappa__shear__cs}{kappa\+\_\+shear\+\_\+cs}}), pointer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_ae66b441bd1b2059866f2ac7ef2dce2cb}{kappashear\+\_\+csp}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em Control structure for a child module. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a279fccf5e9293af07c99b83f245f812d}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a279fccf5e9293af07c99b83f245f812d}} 
type(\mbox{\hyperlink{structmom__cvmix__shear_1_1cvmix__shear__cs}{cvmix\+\_\+shear\+\_\+cs}}), pointer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a279fccf5e9293af07c99b83f245f812d}{cvmix\+\_\+shear\+\_\+csp}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em Control structure for a child module. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_aa025d665c5d00bfc4d6271986ed8c011}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_aa025d665c5d00bfc4d6271986ed8c011}} 
type(\mbox{\hyperlink{structmom__cvmix__ddiff_1_1cvmix__ddiff__cs}{cvmix\+\_\+ddiff\+\_\+cs}}), pointer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_aa025d665c5d00bfc4d6271986ed8c011}{cvmix\+\_\+ddiff\+\_\+csp}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em Control structure for a child module. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_aaaf7cdd1adada8f993ca2dc3eccd0731}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_aaaf7cdd1adada8f993ca2dc3eccd0731}} 
type(\mbox{\hyperlink{structmom__bkgnd__mixing_1_1bkgnd__mixing__cs}{bkgnd\+\_\+mixing\+\_\+cs}}), pointer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_aaaf7cdd1adada8f993ca2dc3eccd0731}{bkgnd\+\_\+mixing\+\_\+csp}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em Control structure for a child module. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_ad33dc26fbb850efcf1305ec9c0e8f701}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_ad33dc26fbb850efcf1305ec9c0e8f701}} 
type(\mbox{\hyperlink{structmom__internal__tides_1_1int__tide__cs}{int\+\_\+tide\+\_\+cs}}), pointer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_ad33dc26fbb850efcf1305ec9c0e8f701}{int\+\_\+tide\+\_\+csp}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em Control structure for a child module. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a462fd3d8b13de97ed147f13b1dad2c8f}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a462fd3d8b13de97ed147f13b1dad2c8f}} 
type(\mbox{\hyperlink{structmom__tidal__mixing_1_1tidal__mixing__cs}{tidal\+\_\+mixing\+\_\+cs}}), pointer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a462fd3d8b13de97ed147f13b1dad2c8f}{tidal\+\_\+mixing\+\_\+csp}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em Control structure for a child module. \end{DoxyCompactList}\end{DoxyCompactItemize}
\textbf{ }\par
\begin{DoxyCompactItemize}
\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a10b48612fd2ff21b5ce4f089dab388e9}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a10b48612fd2ff21b5ce4f089dab388e9}} 
integer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a10b48612fd2ff21b5ce4f089dab388e9}{id\+\_\+maxtke}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_aa7528282375fe67bc16c130b9d2aa54f}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_aa7528282375fe67bc16c130b9d2aa54f}} 
integer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_aa7528282375fe67bc16c130b9d2aa54f}{id\+\_\+tke\+\_\+to\+\_\+kd}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_afe9d4db42243c6a3d2ac640faef141da}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_afe9d4db42243c6a3d2ac640faef141da}} 
integer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_afe9d4db42243c6a3d2ac640faef141da}{id\+\_\+kd\+\_\+user}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a4ff7ccc1ac81c715c5a863290508bde5}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a4ff7ccc1ac81c715c5a863290508bde5}} 
integer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a4ff7ccc1ac81c715c5a863290508bde5}{id\+\_\+kd\+\_\+layer}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a71700d8205b4a70f396bb4abb7fc9644}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a71700d8205b4a70f396bb4abb7fc9644}} 
integer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a71700d8205b4a70f396bb4abb7fc9644}{id\+\_\+kd\+\_\+bbl}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_ab0c2153844aa889a7a660c28f8417110}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_ab0c2153844aa889a7a660c28f8417110}} 
integer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_ab0c2153844aa889a7a660c28f8417110}{id\+\_\+n2}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a753563ba2b57be6c3eb3c3e9433eec7d}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a753563ba2b57be6c3eb3c3e9433eec7d}} 
integer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a753563ba2b57be6c3eb3c3e9433eec7d}{id\+\_\+kd\+\_\+work}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a3a27609d20770e657fcdaff3f9363433}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a3a27609d20770e657fcdaff3f9363433}} 
integer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a3a27609d20770e657fcdaff3f9363433}{id\+\_\+kt\+\_\+extra}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a0e6df18a647981364aee2fdfab8c50e5}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a0e6df18a647981364aee2fdfab8c50e5}} 
integer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a0e6df18a647981364aee2fdfab8c50e5}{id\+\_\+ks\+\_\+extra}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a558cd8ff5709e13351f4d047467965e4}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a558cd8ff5709e13351f4d047467965e4}} 
integer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a558cd8ff5709e13351f4d047467965e4}{id\+\_\+r\+\_\+rho}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a2f574e6377ce5baab37f98f986a1856c}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a2f574e6377ce5baab37f98f986a1856c}} 
integer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a2f574e6377ce5baab37f98f986a1856c}{id\+\_\+kd\+\_\+bkgnd}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__diffusivity_1_1set__diffusivity__cs_a8b343a18b6565843d904782bc14369c9}\label{structmom__set__diffusivity_1_1set__diffusivity__cs_a8b343a18b6565843d904782bc14369c9}} 
integer \mbox{\hyperlink{structmom__set__diffusivity_1_1set__diffusivity__cs_a8b343a18b6565843d904782bc14369c9}{id\+\_\+kv\+\_\+bkgnd}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\end{DoxyCompactItemize}



\doxysubsection{Detailed Description}
This control structure contains parameters for M\+O\+M\+\_\+set\+\_\+diffusivity. 

Definition at line 58 of file M\+O\+M\+\_\+set\+\_\+diffusivity.\+F90.



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