\hypertarget{structmom__vert__friction_1_1vertvisc__cs}{}\doxysection{mom\+\_\+vert\+\_\+friction\+::vertvisc\+\_\+cs Type Reference}
\label{structmom__vert__friction_1_1vertvisc__cs}\index{mom\_vert\_friction::vertvisc\_cs@{mom\_vert\_friction::vertvisc\_cs}}


\doxysubsection{Detailed Description}
The control structure with parameters and memory for the M\+O\+M\+\_\+vert\+\_\+friction module. 

Definition at line 39 of file M\+O\+M\+\_\+vert\+\_\+friction.\+F90.



Collaboration diagram for mom\+\_\+vert\+\_\+friction\+::vertvisc\+\_\+cs\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{structmom__vert__friction_1_1vertvisc__cs__coll__graph}
\end{center}
\end{figure}
\doxysubsection*{Public variables and constants}
\begin{DoxyCompactItemize}
\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a3053601d97faab564bf790b8a223a2c0}\label{structmom__vert__friction_1_1vertvisc__cs_a3053601d97faab564bf790b8a223a2c0}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a3053601d97faab564bf790b8a223a2c0}{hmix}}
\begin{DoxyCompactList}\small\item\em The mixed layer thickness in thickness units \mbox{[}H $\sim$$>$ m or kg m-\/2\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a5af8c65471aad3138316926c4523b054}\label{structmom__vert__friction_1_1vertvisc__cs_a5af8c65471aad3138316926c4523b054}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a5af8c65471aad3138316926c4523b054}{hmix\+\_\+stress}}
\begin{DoxyCompactList}\small\item\em The mixed layer thickness over which the wind stress is applied with direct\+\_\+stress \mbox{[}H $\sim$$>$ m or kg m-\/2\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_afb6fc988190066c772dbf050d7fb438f}\label{structmom__vert__friction_1_1vertvisc__cs_afb6fc988190066c772dbf050d7fb438f}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_afb6fc988190066c772dbf050d7fb438f}{kvml}}
\begin{DoxyCompactList}\small\item\em The mixed layer vertical viscosity \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a47d628c298468d3cc008bdb23ba4805c}\label{structmom__vert__friction_1_1vertvisc__cs_a47d628c298468d3cc008bdb23ba4805c}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a47d628c298468d3cc008bdb23ba4805c}{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__vert__friction_1_1vertvisc__cs_a105abc53984ac049a550edfd7b8ba8bf}\label{structmom__vert__friction_1_1vertvisc__cs_a105abc53984ac049a550edfd7b8ba8bf}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a105abc53984ac049a550edfd7b8ba8bf}{hbbl}}
\begin{DoxyCompactList}\small\item\em The static bottom boundary layer thickness \mbox{[}H $\sim$$>$ m or kg m-\/2\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_af626cfc954fccc73a71134be3c88ae21}\label{structmom__vert__friction_1_1vertvisc__cs_af626cfc954fccc73a71134be3c88ae21}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_af626cfc954fccc73a71134be3c88ae21}{kvbbl}}
\begin{DoxyCompactList}\small\item\em The vertical viscosity in the bottom boundary layer \mbox{[}Z2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_abfc0216a78caaff388156aea8a2501bb}\label{structmom__vert__friction_1_1vertvisc__cs_abfc0216a78caaff388156aea8a2501bb}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_abfc0216a78caaff388156aea8a2501bb}{maxvel}}
\begin{DoxyCompactList}\small\item\em Velocity components greater than maxvel are truncated \mbox{[}L T-\/1 $\sim$$>$ m s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_acca4478902062d69182bca791ef98459}\label{structmom__vert__friction_1_1vertvisc__cs_acca4478902062d69182bca791ef98459}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_acca4478902062d69182bca791ef98459}{vel\+\_\+underflow}}
\begin{DoxyCompactList}\small\item\em Velocity components smaller than vel\+\_\+underflow are set to 0 \mbox{[}L T-\/1 $\sim$$>$ m s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_af4a1925161558c3f0d3bc8028cc1ac56}\label{structmom__vert__friction_1_1vertvisc__cs_af4a1925161558c3f0d3bc8028cc1ac56}} 
logical \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_af4a1925161558c3f0d3bc8028cc1ac56}{cfl\+\_\+based\+\_\+trunc}}
\begin{DoxyCompactList}\small\item\em If true, base truncations on C\+FL numbers, not absolute velocities. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a52061125fba1437d85a2e6ae43fc1f87}\label{structmom__vert__friction_1_1vertvisc__cs_a52061125fba1437d85a2e6ae43fc1f87}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a52061125fba1437d85a2e6ae43fc1f87}{cfl\+\_\+trunc}}
\begin{DoxyCompactList}\small\item\em Velocity components will be truncated when they are large enough that the corresponding C\+FL number exceeds this value, nondim. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_aef31e4cc1fe1ac798630c57c64489aa8}\label{structmom__vert__friction_1_1vertvisc__cs_aef31e4cc1fe1ac798630c57c64489aa8}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_aef31e4cc1fe1ac798630c57c64489aa8}{cfl\+\_\+report}}
\begin{DoxyCompactList}\small\item\em The value of the C\+FL number that will cause the accelerations to be reported, nondim. C\+F\+L\+\_\+report will often equal C\+F\+L\+\_\+trunc. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a530fe12eda6a167ba33d5f5aea128a35}\label{structmom__vert__friction_1_1vertvisc__cs_a530fe12eda6a167ba33d5f5aea128a35}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a530fe12eda6a167ba33d5f5aea128a35}{truncramptime}}
\begin{DoxyCompactList}\small\item\em The time-\/scale over which to ramp up the value of C\+F\+L\+\_\+trunc from C\+F\+L\+\_\+truncS to C\+F\+L\+\_\+truncE. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a91de382f91f2084d2264314b95599398}\label{structmom__vert__friction_1_1vertvisc__cs_a91de382f91f2084d2264314b95599398}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a91de382f91f2084d2264314b95599398}{cfl\+\_\+truncs}}
\begin{DoxyCompactList}\small\item\em The start value of C\+F\+L\+\_\+trunc. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a14c21468046e2d3405485400ae4e76c1}\label{structmom__vert__friction_1_1vertvisc__cs_a14c21468046e2d3405485400ae4e76c1}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a14c21468046e2d3405485400ae4e76c1}{cfl\+\_\+trunce}}
\begin{DoxyCompactList}\small\item\em The end/target value of C\+F\+L\+\_\+trunc. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a7e66b5e2761e521101f131a1ea5cb1c4}\label{structmom__vert__friction_1_1vertvisc__cs_a7e66b5e2761e521101f131a1ea5cb1c4}} 
logical \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a7e66b5e2761e521101f131a1ea5cb1c4}{cflrampingisactivated}} = .false.
\begin{DoxyCompactList}\small\item\em True if the ramping has been initialized. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a9e369f6619bfcb08e1b81ef1ea983edc}\label{structmom__vert__friction_1_1vertvisc__cs_a9e369f6619bfcb08e1b81ef1ea983edc}} 
type(time\+\_\+type) \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a9e369f6619bfcb08e1b81ef1ea983edc}{rampstarttime}}
\begin{DoxyCompactList}\small\item\em The time at which the ramping of C\+F\+L\+\_\+trunc starts. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_af16fe3106ab069f70ef1494eed36bd96}\label{structmom__vert__friction_1_1vertvisc__cs_af16fe3106ab069f70ef1494eed36bd96}} 
real, dimension(\+:, \+:, \+:), allocatable \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_af16fe3106ab069f70ef1494eed36bd96}{a\+\_\+u}}
\begin{DoxyCompactList}\small\item\em The u-\/drag coefficient across an interface \mbox{[}Z T-\/1 $\sim$$>$ m s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_aea99b69c782d1c7190c9a9336635ea3c}\label{structmom__vert__friction_1_1vertvisc__cs_aea99b69c782d1c7190c9a9336635ea3c}} 
real, dimension(\+:, \+:, \+:), allocatable \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_aea99b69c782d1c7190c9a9336635ea3c}{h\+\_\+u}}
\begin{DoxyCompactList}\small\item\em The effective layer thickness at u-\/points \mbox{[}H $\sim$$>$ m or kg m-\/2\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a1f4e074cb2389c307db0b1b4f5bc720c}\label{structmom__vert__friction_1_1vertvisc__cs_a1f4e074cb2389c307db0b1b4f5bc720c}} 
real, dimension(\+:, \+:, \+:), allocatable \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a1f4e074cb2389c307db0b1b4f5bc720c}{a\+\_\+v}}
\begin{DoxyCompactList}\small\item\em The v-\/drag coefficient across an interface \mbox{[}Z T-\/1 $\sim$$>$ m s-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a192eb3fac450ad5d1c6e33f04b03e03f}\label{structmom__vert__friction_1_1vertvisc__cs_a192eb3fac450ad5d1c6e33f04b03e03f}} 
real, dimension(\+:, \+:, \+:), allocatable \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a192eb3fac450ad5d1c6e33f04b03e03f}{h\+\_\+v}}
\begin{DoxyCompactList}\small\item\em The effective layer thickness at v-\/points \mbox{[}H $\sim$$>$ m or kg m-\/2\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a7a6aaa47e2da60f0a638ac33163f05a6}\label{structmom__vert__friction_1_1vertvisc__cs_a7a6aaa47e2da60f0a638ac33163f05a6}} 
real, dimension(\+:,\+:), pointer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a7a6aaa47e2da60f0a638ac33163f05a6}{a1\+\_\+shelf\+\_\+u}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em The u-\/momentum coupling coefficient under ice shelves \mbox{[}Z T-\/1 $\sim$$>$ m s-\/1\mbox{]}. Retained to determine stress under shelves. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a17b20569614cc2acc79b2f96f5ad2e46}\label{structmom__vert__friction_1_1vertvisc__cs_a17b20569614cc2acc79b2f96f5ad2e46}} 
real, dimension(\+:,\+:), pointer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a17b20569614cc2acc79b2f96f5ad2e46}{a1\+\_\+shelf\+\_\+v}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em The v-\/momentum coupling coefficient under ice shelves \mbox{[}Z T-\/1 $\sim$$>$ m s-\/1\mbox{]}. Retained to determine stress under shelves. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a2df36eb70ba9ea3879cb654bdd47ba2e}\label{structmom__vert__friction_1_1vertvisc__cs_a2df36eb70ba9ea3879cb654bdd47ba2e}} 
logical \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a2df36eb70ba9ea3879cb654bdd47ba2e}{split}}
\begin{DoxyCompactList}\small\item\em If true, use the split time stepping scheme. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a4118945f069d102682bce027445b7d71}\label{structmom__vert__friction_1_1vertvisc__cs_a4118945f069d102682bce027445b7d71}} 
logical \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a4118945f069d102682bce027445b7d71}{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 H\+B\+BL, depending on whether linear\+\_\+drag is true. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a2087ac6791beaecb26ba4f0dd20c2a52}\label{structmom__vert__friction_1_1vertvisc__cs_a2087ac6791beaecb26ba4f0dd20c2a52}} 
logical \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a2087ac6791beaecb26ba4f0dd20c2a52}{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__vert__friction_1_1vertvisc__cs_a1f73a9cd5a96ea0dfae8ff4c2c063b84}\label{structmom__vert__friction_1_1vertvisc__cs_a1f73a9cd5a96ea0dfae8ff4c2c063b84}} 
logical \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a1f73a9cd5a96ea0dfae8ff4c2c063b84}{harmonic\+\_\+visc}}
\begin{DoxyCompactList}\small\item\em If true, the harmonic mean thicknesses are used to calculate the viscous coupling between layers except near the bottom. Otherwise the arithmetic mean thickness is used except near the bottom. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a64d219a8deef70c5ca9312f38b78292b}\label{structmom__vert__friction_1_1vertvisc__cs_a64d219a8deef70c5ca9312f38b78292b}} 
real \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a64d219a8deef70c5ca9312f38b78292b}{harm\+\_\+bl\+\_\+val}}
\begin{DoxyCompactList}\small\item\em A scale to determine when water is in the boundary layers based solely on harmonic mean thicknesses for the purpose of determining the extent to which the thicknesses used in the viscosities are upwinded. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a2e612b53e82d575dcd6886c7d9e8740e}\label{structmom__vert__friction_1_1vertvisc__cs_a2e612b53e82d575dcd6886c7d9e8740e}} 
logical \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a2e612b53e82d575dcd6886c7d9e8740e}{direct\+\_\+stress}}
\begin{DoxyCompactList}\small\item\em If true, the wind stress is distributed over the topmost Hmix\+\_\+stress of fluid and K\+V\+ML may be very small. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_af4b0cd53dc34f466ee590c42b90fc36b}\label{structmom__vert__friction_1_1vertvisc__cs_af4b0cd53dc34f466ee590c42b90fc36b}} 
logical \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_af4b0cd53dc34f466ee590c42b90fc36b}{dynamic\+\_\+viscous\+\_\+ml}}
\begin{DoxyCompactList}\small\item\em If true, use the results from a dynamic calculation, perhaps based on a bulk Richardson number criterion, to determine the mixed layer thickness for viscosity. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a94bc4cfa7ce7db44bc49b4fb1b0ae6ca}\label{structmom__vert__friction_1_1vertvisc__cs_a94bc4cfa7ce7db44bc49b4fb1b0ae6ca}} 
logical \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a94bc4cfa7ce7db44bc49b4fb1b0ae6ca}{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 expressions that do not use an arbitary and hard-\/coded maximum viscous coupling coefficient between layers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a436374293143a7233af4c3dc92eebcf4}\label{structmom__vert__friction_1_1vertvisc__cs_a436374293143a7233af4c3dc92eebcf4}} 
logical \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a436374293143a7233af4c3dc92eebcf4}{debug}}
\begin{DoxyCompactList}\small\item\em If true, write verbose checksums for debugging purposes. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_ab4934d2e97dcb88f02a2737c68859433}\label{structmom__vert__friction_1_1vertvisc__cs_ab4934d2e97dcb88f02a2737c68859433}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_ab4934d2e97dcb88f02a2737c68859433}{nkml}}
\begin{DoxyCompactList}\small\item\em The number of layers in the mixed layer. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a04b959d5c6c5cc40089ec134d6ba6ff9}\label{structmom__vert__friction_1_1vertvisc__cs_a04b959d5c6c5cc40089ec134d6ba6ff9}} 
integer, pointer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a04b959d5c6c5cc40089ec134d6ba6ff9}{ntrunc}}
\begin{DoxyCompactList}\small\item\em The number of times the velocity has been truncated since the last call to write\+\_\+energy. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_abdb200e8e75d4a5fed36dfb9db579d41}\label{structmom__vert__friction_1_1vertvisc__cs_abdb200e8e75d4a5fed36dfb9db579d41}} 
character(len=200) \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_abdb200e8e75d4a5fed36dfb9db579d41}{u\+\_\+trunc\+\_\+file}}
\begin{DoxyCompactList}\small\item\em The complete path to a file in which a column of u-\/accelerations are written if velocity truncations occur. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a53e912097d15ed887aa262b9a7891186}\label{structmom__vert__friction_1_1vertvisc__cs_a53e912097d15ed887aa262b9a7891186}} 
character(len=200) \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a53e912097d15ed887aa262b9a7891186}{v\+\_\+trunc\+\_\+file}}
\begin{DoxyCompactList}\small\item\em The complete path to a file in which a column of v-\/accelerations are written if velocity truncations occur. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a7ec759e569fa99617345c84541486945}\label{structmom__vert__friction_1_1vertvisc__cs_a7ec759e569fa99617345c84541486945}} 
logical \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a7ec759e569fa99617345c84541486945}{stokesmixing}}
\begin{DoxyCompactList}\small\item\em If true, do Stokes drift mixing via the Lagrangian current (Eulerian plus Stokes drift). False by default and set via S\+T\+O\+K\+E\+S\+\_\+\+M\+I\+X\+I\+N\+G\+\_\+\+C\+O\+M\+B\+I\+N\+ED. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a823e7a86796db63440c0d3c9812f9c20}\label{structmom__vert__friction_1_1vertvisc__cs_a823e7a86796db63440c0d3c9812f9c20}} 
type(\mbox{\hyperlink{structmom__diag__mediator_1_1diag__ctrl}{diag\+\_\+ctrl}}), pointer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a823e7a86796db63440c0d3c9812f9c20}{diag}}
\begin{DoxyCompactList}\small\item\em A structure that is used to regulate the timing of diagnostic output. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a96de2db88e9a448df61a6f5aba562b0d}\label{structmom__vert__friction_1_1vertvisc__cs_a96de2db88e9a448df61a6f5aba562b0d}} 
type(\mbox{\hyperlink{structmom__pointaccel_1_1pointaccel__cs}{pointaccel\+\_\+cs}}), pointer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a96de2db88e9a448df61a6f5aba562b0d}{pointaccel\+\_\+csp}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em A pointer to the control structure for recording accelerations leading to velocity truncations. \end{DoxyCompactList}\end{DoxyCompactItemize}
\textbf{ }\par
\begin{DoxyCompactItemize}
\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_ab922bee478555ea16d234adcfc5a6f8f}\label{structmom__vert__friction_1_1vertvisc__cs_ab922bee478555ea16d234adcfc5a6f8f}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_ab922bee478555ea16d234adcfc5a6f8f}{id\+\_\+du\+\_\+dt\+\_\+visc}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_ac07080103ae7a53db6cb1004ae104a9a}\label{structmom__vert__friction_1_1vertvisc__cs_ac07080103ae7a53db6cb1004ae104a9a}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_ac07080103ae7a53db6cb1004ae104a9a}{id\+\_\+dv\+\_\+dt\+\_\+visc}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a90ca35737ca561192909733ab9c33eb7}\label{structmom__vert__friction_1_1vertvisc__cs_a90ca35737ca561192909733ab9c33eb7}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a90ca35737ca561192909733ab9c33eb7}{id\+\_\+au\+\_\+vv}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a0acb66e48a48ec2424f7d3d22fc6c748}\label{structmom__vert__friction_1_1vertvisc__cs_a0acb66e48a48ec2424f7d3d22fc6c748}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a0acb66e48a48ec2424f7d3d22fc6c748}{id\+\_\+av\+\_\+vv}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_ac07021917c9a89feb734c466e507814c}\label{structmom__vert__friction_1_1vertvisc__cs_ac07021917c9a89feb734c466e507814c}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_ac07021917c9a89feb734c466e507814c}{id\+\_\+h\+\_\+u}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_acacf1a8bd516884da7d4c7716aa89296}\label{structmom__vert__friction_1_1vertvisc__cs_acacf1a8bd516884da7d4c7716aa89296}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_acacf1a8bd516884da7d4c7716aa89296}{id\+\_\+h\+\_\+v}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_aafd5b1ff2f2aeea581497dff76967780}\label{structmom__vert__friction_1_1vertvisc__cs_aafd5b1ff2f2aeea581497dff76967780}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_aafd5b1ff2f2aeea581497dff76967780}{id\+\_\+hml\+\_\+u}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_aace5e5de32e29a6c1d01bf1d18523b2b}\label{structmom__vert__friction_1_1vertvisc__cs_aace5e5de32e29a6c1d01bf1d18523b2b}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_aace5e5de32e29a6c1d01bf1d18523b2b}{id\+\_\+hml\+\_\+v}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a61b0626aecd4d90ae64a6f7108395580}\label{structmom__vert__friction_1_1vertvisc__cs_a61b0626aecd4d90ae64a6f7108395580}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a61b0626aecd4d90ae64a6f7108395580}{id\+\_\+taux\+\_\+bot}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a835b125962c8b35a7a2a8826451cbef2}\label{structmom__vert__friction_1_1vertvisc__cs_a835b125962c8b35a7a2a8826451cbef2}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a835b125962c8b35a7a2a8826451cbef2}{id\+\_\+tauy\+\_\+bot}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a1f0399a7de8c1c53afb3340271ebc705}\label{structmom__vert__friction_1_1vertvisc__cs_a1f0399a7de8c1c53afb3340271ebc705}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a1f0399a7de8c1c53afb3340271ebc705}{id\+\_\+kv\+\_\+slow}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_a3969edc0b5be118cf3cc0deb22f276da}\label{structmom__vert__friction_1_1vertvisc__cs_a3969edc0b5be118cf3cc0deb22f276da}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_a3969edc0b5be118cf3cc0deb22f276da}{id\+\_\+kv\+\_\+u}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_aaee4d07d57009087c5e149109da3f46b}\label{structmom__vert__friction_1_1vertvisc__cs_aaee4d07d57009087c5e149109da3f46b}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_aaee4d07d57009087c5e149109da3f46b}{id\+\_\+kv\+\_\+v}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_ad02d560cc6e8c55c2071ec879e738664}\label{structmom__vert__friction_1_1vertvisc__cs_ad02d560cc6e8c55c2071ec879e738664}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_ad02d560cc6e8c55c2071ec879e738664}{id\+\_\+hf\+\_\+du\+\_\+dt\+\_\+visc\+\_\+2d}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__vert__friction_1_1vertvisc__cs_af1a98970b9b374928175b9339ba18c2f}\label{structmom__vert__friction_1_1vertvisc__cs_af1a98970b9b374928175b9339ba18c2f}} 
integer \mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs_af1a98970b9b374928175b9339ba18c2f}{id\+\_\+hf\+\_\+dv\+\_\+dt\+\_\+visc\+\_\+2d}} = -\/1
\begin{DoxyCompactList}\small\item\em Diagnostic identifiers. \end{DoxyCompactList}\end{DoxyCompactItemize}



\doxysubsection{Detailed Description}
The control structure with parameters and memory for the M\+O\+M\+\_\+vert\+\_\+friction module. 

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