\hypertarget{structmom__set__visc_1_1set__visc__cs}{}\section{mom\+\_\+set\+\_\+visc\+::set\+\_\+visc\+\_\+cs Type Reference}
\label{structmom__set__visc_1_1set__visc__cs}\index{mom\_set\_visc::set\_visc\_cs@{mom\_set\_visc::set\_visc\_cs}}


\subsection{Detailed Description}
Control structure for M\+O\+M\+\_\+set\+\_\+visc. 

Definition at line 45 of file M\+O\+M\+\_\+set\+\_\+viscosity.\+F90.



Collaboration diagram for mom\+\_\+set\+\_\+visc\+::set\+\_\+visc\+\_\+cs\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{structmom__set__visc_1_1set__visc__cs__coll__graph}
\end{center}
\end{figure}
\subsection*{Public variables and constants}
\begin{DoxyCompactItemize}
\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a20768c8872b3eab25e59dfe7c5ff62a0}\label{structmom__set__visc_1_1set__visc__cs_a20768c8872b3eab25e59dfe7c5ff62a0}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a20768c8872b3eab25e59dfe7c5ff62a0}{hbbl}}
\begin{DoxyCompactList}\small\item\em The static bottom boundary layer thickness \mbox{[}H $\sim$$>$ m or kg m-\/2\mbox{]}. Runtime parameter {\ttfamily H\+B\+BL}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_aed9fb01bc4608a92a4c3817e8b82026b}\label{structmom__set__visc_1_1set__visc__cs_aed9fb01bc4608a92a4c3817e8b82026b}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_aed9fb01bc4608a92a4c3817e8b82026b}{cdrag}}
\begin{DoxyCompactList}\small\item\em The quadratic drag coefficient. Runtime parameter {\ttfamily C\+D\+R\+AG}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a7468380ee0a6c98c833d9829cc0a4bd1}\label{structmom__set__visc_1_1set__visc__cs_a7468380ee0a6c98c833d9829cc0a4bd1}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a7468380ee0a6c98c833d9829cc0a4bd1}{c\+\_\+smag}}
\begin{DoxyCompactList}\small\item\em The Laplacian Smagorinsky coefficient for calculating the drag in channels. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a8e5f72291c7e5c5e602c9b4765d63ae0}\label{structmom__set__visc_1_1set__visc__cs_a8e5f72291c7e5c5e602c9b4765d63ae0}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a8e5f72291c7e5c5e602c9b4765d63ae0}{drag\+\_\+bg\+\_\+vel}}
\begin{DoxyCompactList}\small\item\em An assumed unresolved background velocity for calculating the bottom drag \mbox{[}L T-\/1 $\sim$$>$ m s-\/1\mbox{]}. Runtime parameter {\ttfamily D\+R\+A\+G\+\_\+\+B\+G\+\_\+\+V\+EL}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_af5bba32c1f02f863a814ae84adf1c485}\label{structmom__set__visc_1_1set__visc__cs_af5bba32c1f02f863a814ae84adf1c485}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_af5bba32c1f02f863a814ae84adf1c485}{bbl\+\_\+thick\+\_\+min}}
\begin{DoxyCompactList}\small\item\em The minimum bottom boundary layer thickness \mbox{[}H $\sim$$>$ m or kg m-\/2\mbox{]}. This might be Kv / (cdrag $\ast$ drag\+\_\+bg\+\_\+vel) to give Kv as the minimum near-\/bottom viscosity. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a83756effef0ede459573d1f87f1edb43}\label{structmom__set__visc_1_1set__visc__cs_a83756effef0ede459573d1f87f1edb43}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a83756effef0ede459573d1f87f1edb43}{htbl\+\_\+shelf}}
\begin{DoxyCompactList}\small\item\em A nominal thickness of the surface boundary layer for use in calculating the near-\/surface velocity \mbox{[}H $\sim$$>$ m or kg m-\/2\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a0cbe060677c6ad30e8fa72d470aac1ba}\label{structmom__set__visc_1_1set__visc__cs_a0cbe060677c6ad30e8fa72d470aac1ba}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a0cbe060677c6ad30e8fa72d470aac1ba}{htbl\+\_\+shelf\+\_\+min}}
\begin{DoxyCompactList}\small\item\em The minimum surface boundary layer thickness \mbox{[}H $\sim$$>$ m or kg m-\/2\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a79892e0504f50a57127ac0578c29d13f}\label{structmom__set__visc_1_1set__visc__cs_a79892e0504f50a57127ac0578c29d13f}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a79892e0504f50a57127ac0578c29d13f}{kv\+\_\+bbl\+\_\+min}}
\begin{DoxyCompactList}\small\item\em The minimum viscosity in the bottom boundary layer \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_ac40635b4c0f7d100ca5125f8d4ba3a3c}\label{structmom__set__visc_1_1set__visc__cs_ac40635b4c0f7d100ca5125f8d4ba3a3c}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_ac40635b4c0f7d100ca5125f8d4ba3a3c}{kv\+\_\+tbl\+\_\+min}}
\begin{DoxyCompactList}\small\item\em The minimum viscosity in the top boundary layer \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_aca87adb9636e724f7ccb78e7c640f399}\label{structmom__set__visc_1_1set__visc__cs_aca87adb9636e724f7ccb78e7c640f399}} 
logical \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_aca87adb9636e724f7ccb78e7c640f399}{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. The velocity magnitude may be an assumed value or it may be based on the actual velocity in the bottommost {\ttfamily H\+B\+BL}, depending on whether linear\+\_\+drag is true. Runtime parameter {\ttfamily B\+O\+T\+T\+O\+M\+D\+R\+A\+G\+L\+AW}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a89d0fc1b461da7b92a13d88a775f467a}\label{structmom__set__visc_1_1set__visc__cs_a89d0fc1b461da7b92a13d88a775f467a}} 
logical \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a89d0fc1b461da7b92a13d88a775f467a}{bbl\+\_\+use\+\_\+eos}}
\begin{DoxyCompactList}\small\item\em If true, use the equation of state in determining the properties of the bottom boundary layer. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a081031895fa84caef378bf4507095fd1}\label{structmom__set__visc_1_1set__visc__cs_a081031895fa84caef378bf4507095fd1}} 
logical \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a081031895fa84caef378bf4507095fd1}{linear\+\_\+drag}}
\begin{DoxyCompactList}\small\item\em If true, the drag law is cdrag$\ast${\ttfamily D\+R\+A\+G\+\_\+\+B\+G\+\_\+\+V\+EL}$\ast$u. Runtime parameter {\ttfamily L\+I\+N\+E\+A\+R\+\_\+\+D\+R\+AG}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a447192ef2c7724a34f3bb18cab38a1e9}\label{structmom__set__visc_1_1set__visc__cs_a447192ef2c7724a34f3bb18cab38a1e9}} 
logical \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a447192ef2c7724a34f3bb18cab38a1e9}{channel\+\_\+drag}}
\begin{DoxyCompactList}\small\item\em If true, the drag is exerted directly on each layer according to what fraction of the bottom they overlie. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_aff0c2827fb211ae69bf1dfd512c26142}\label{structmom__set__visc_1_1set__visc__cs_aff0c2827fb211ae69bf1dfd512c26142}} 
logical \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_aff0c2827fb211ae69bf1dfd512c26142}{correct\+\_\+bbl\+\_\+bounds}}
\begin{DoxyCompactList}\small\item\em If true, uses the correct bounds on the B\+BL thickness and viscosity so that the bottom layer feels the intended drag. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_abf6d0c52b4c7697848e11790fed715dc}\label{structmom__set__visc_1_1set__visc__cs_abf6d0c52b4c7697848e11790fed715dc}} 
logical \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_abf6d0c52b4c7697848e11790fed715dc}{rino\+\_\+mix}}
\begin{DoxyCompactList}\small\item\em If true, use Richardson number dependent mixing. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_afadcc6cf5b628725b08e0f12a826df5f}\label{structmom__set__visc_1_1set__visc__cs_afadcc6cf5b628725b08e0f12a826df5f}} 
logical \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_afadcc6cf5b628725b08e0f12a826df5f}{dynamic\+\_\+viscous\+\_\+ml}}
\begin{DoxyCompactList}\small\item\em If true, use a bulk Richardson number criterion to determine the mixed layer thickness for viscosity. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a983bdeff4065da03fc3f5efd8ecbce98}\label{structmom__set__visc_1_1set__visc__cs_a983bdeff4065da03fc3f5efd8ecbce98}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a983bdeff4065da03fc3f5efd8ecbce98}{bulk\+\_\+ri\+\_\+ml}}
\begin{DoxyCompactList}\small\item\em The bulk mixed layer used to determine the thickness of the viscous mixed layer. Nondim. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a7b5ed06a0e4ffbaf7c3f9ab964934cf1}\label{structmom__set__visc_1_1set__visc__cs_a7b5ed06a0e4ffbaf7c3f9ab964934cf1}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a7b5ed06a0e4ffbaf7c3f9ab964934cf1}{omega}}
\begin{DoxyCompactList}\small\item\em The Earth\textquotesingle{}s rotation rate \mbox{[}T-\/1 $\sim$$>$ s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a1dbc170cb7413c77db64f950deb14f39}\label{structmom__set__visc_1_1set__visc__cs_a1dbc170cb7413c77db64f950deb14f39}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a1dbc170cb7413c77db64f950deb14f39}{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 should not affect the solution. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a05122220f8714fdb12cd5323e95fadb1}\label{structmom__set__visc_1_1set__visc__cs_a05122220f8714fdb12cd5323e95fadb1}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a05122220f8714fdb12cd5323e95fadb1}{tke\+\_\+decay}}
\begin{DoxyCompactList}\small\item\em The ratio of the natural Ekman depth to the T\+KE decay scale, nondimensional. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a949d04b33b44503dc3bf8b9f583e3932}\label{structmom__set__visc_1_1set__visc__cs_a949d04b33b44503dc3bf8b9f583e3932}} 
real \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a949d04b33b44503dc3bf8b9f583e3932}{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 sqrt((1-\/of)$\ast$f$^\wedge$2 + of$\ast$4$\ast$omega$^\wedge$2). \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a5e73277d3715a71844b1b7718cef2c47}\label{structmom__set__visc_1_1set__visc__cs_a5e73277d3715a71844b1b7718cef2c47}} 
logical \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a5e73277d3715a71844b1b7718cef2c47}{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__visc_1_1set__visc__cs_a0d83d33f4bb2e93b3f26fd76c07c05e0}\label{structmom__set__visc_1_1set__visc__cs_a0d83d33f4bb2e93b3f26fd76c07c05e0}} 
logical \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a0d83d33f4bb2e93b3f26fd76c07c05e0}{debug}}
\begin{DoxyCompactList}\small\item\em If true, write verbose checksums for debugging purposes. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a1564bb5965c9ddbef7503f54f09f3b69}\label{structmom__set__visc_1_1set__visc__cs_a1564bb5965c9ddbef7503f54f09f3b69}} 
logical \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a1564bb5965c9ddbef7503f54f09f3b69}{bbl\+\_\+use\+\_\+tidal\+\_\+bg}}
\begin{DoxyCompactList}\small\item\em If true, use a tidal background amplitude for the bottom velocity when computing the bottom stress. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a88a89f5b6e98277a1df6cbc2c719f407}\label{structmom__set__visc_1_1set__visc__cs_a88a89f5b6e98277a1df6cbc2c719f407}} 
character(len=200) \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a88a89f5b6e98277a1df6cbc2c719f407}{inputdir}}
\begin{DoxyCompactList}\small\item\em The directory for input files. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a4960c26d7d7ee67335496fd4011aa9d4}\label{structmom__set__visc_1_1set__visc__cs_a4960c26d7d7ee67335496fd4011aa9d4}} 
type(ocean\+\_\+obc\+\_\+type), pointer \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a4960c26d7d7ee67335496fd4011aa9d4}{obc}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em Open boundaries control structure. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a430b6c639231fdc457a0a883a1286f71}\label{structmom__set__visc_1_1set__visc__cs_a430b6c639231fdc457a0a883a1286f71}} 
type(diag\+\_\+ctrl), pointer \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a430b6c639231fdc457a0a883a1286f71}{diag}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em A structure that is used to regulate the timing of diagnostic output. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a765c0eec288ee86e83afc501b757a821}\label{structmom__set__visc_1_1set__visc__cs_a765c0eec288ee86e83afc501b757a821}} 
real, dimension(\+:,\+:), allocatable \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a765c0eec288ee86e83afc501b757a821}{tideamp}}
\begin{DoxyCompactList}\small\item\em R\+MS tidal amplitude at h points \mbox{[}Z T-\/1 $\sim$$>$ m s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_afba35cd5715288e2e8e897e7f2fa1ccb}\label{structmom__set__visc_1_1set__visc__cs_afba35cd5715288e2e8e897e7f2fa1ccb}} 
real, dimension(\+:,\+:), allocatable \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_afba35cd5715288e2e8e897e7f2fa1ccb}{bbl\+\_\+u}}
\begin{DoxyCompactList}\small\item\em B\+BL mean U current \mbox{[}L T-\/1 $\sim$$>$ m s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a29bc1720b14b784b49b21581b8985022}\label{structmom__set__visc_1_1set__visc__cs_a29bc1720b14b784b49b21581b8985022}} 
real, dimension(\+:,\+:), allocatable \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a29bc1720b14b784b49b21581b8985022}{bbl\+\_\+v}}
\begin{DoxyCompactList}\small\item\em B\+BL mean V current \mbox{[}L T-\/1 $\sim$$>$ m s-\/1\mbox{]}. \end{DoxyCompactList}\end{DoxyCompactItemize}
\textbf{ }\par
\begin{DoxyCompactItemize}
\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a470ab66c77dedf6b43fbc550c374c4c8}\label{structmom__set__visc_1_1set__visc__cs_a470ab66c77dedf6b43fbc550c374c4c8}} 
integer \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a470ab66c77dedf6b43fbc550c374c4c8}{id\+\_\+bbl\+\_\+thick\+\_\+u}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostics handles. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a903460d4226f41115777a23fb73726e7}\label{structmom__set__visc_1_1set__visc__cs_a903460d4226f41115777a23fb73726e7}} 
integer \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a903460d4226f41115777a23fb73726e7}{id\+\_\+kv\+\_\+bbl\+\_\+u}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostics handles. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a0371d9bd070ba2e6cbe81bca566a00df}\label{structmom__set__visc_1_1set__visc__cs_a0371d9bd070ba2e6cbe81bca566a00df}} 
integer \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a0371d9bd070ba2e6cbe81bca566a00df}{id\+\_\+bbl\+\_\+u}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostics handles. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_aa466dcd52f1cc0ee3157fc0130e3c483}\label{structmom__set__visc_1_1set__visc__cs_aa466dcd52f1cc0ee3157fc0130e3c483}} 
integer \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_aa466dcd52f1cc0ee3157fc0130e3c483}{id\+\_\+bbl\+\_\+thick\+\_\+v}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostics handles. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a0f2c1c1693cdb1c001a86fdf5c6641ab}\label{structmom__set__visc_1_1set__visc__cs_a0f2c1c1693cdb1c001a86fdf5c6641ab}} 
integer \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a0f2c1c1693cdb1c001a86fdf5c6641ab}{id\+\_\+kv\+\_\+bbl\+\_\+v}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostics handles. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_aeb003715d8b60b161463c5f63333f6fe}\label{structmom__set__visc_1_1set__visc__cs_aeb003715d8b60b161463c5f63333f6fe}} 
integer \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_aeb003715d8b60b161463c5f63333f6fe}{id\+\_\+bbl\+\_\+v}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostics handles. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a175d85ae9bbaf132d6839021fb439145}\label{structmom__set__visc_1_1set__visc__cs_a175d85ae9bbaf132d6839021fb439145}} 
integer \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a175d85ae9bbaf132d6839021fb439145}{id\+\_\+ray\+\_\+u}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostics handles. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_ab545a747b1f07fdc4070e5da3afcff4a}\label{structmom__set__visc_1_1set__visc__cs_ab545a747b1f07fdc4070e5da3afcff4a}} 
integer \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_ab545a747b1f07fdc4070e5da3afcff4a}{id\+\_\+ray\+\_\+v}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostics handles. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_ac43002c38cff6a7ffa20f81b5d021dfb}\label{structmom__set__visc_1_1set__visc__cs_ac43002c38cff6a7ffa20f81b5d021dfb}} 
integer \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_ac43002c38cff6a7ffa20f81b5d021dfb}{id\+\_\+nkml\+\_\+visc\+\_\+u}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostics handles. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__set__visc_1_1set__visc__cs_a44d9ea0c00e2c8e110bc014ff310f12a}\label{structmom__set__visc_1_1set__visc__cs_a44d9ea0c00e2c8e110bc014ff310f12a}} 
integer \mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs_a44d9ea0c00e2c8e110bc014ff310f12a}{id\+\_\+nkml\+\_\+visc\+\_\+v}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostics handles. \end{DoxyCompactList}\end{DoxyCompactItemize}



\subsection{Detailed Description}
Control structure for M\+O\+M\+\_\+set\+\_\+visc. 

Definition at line 45 of file M\+O\+M\+\_\+set\+\_\+viscosity.\+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\+\_\+viscosity.\+F90\end{DoxyCompactItemize}
