\hypertarget{structmom__hor__visc_1_1hor__visc__cs}{}\doxysection{mom\+\_\+hor\+\_\+visc\+::hor\+\_\+visc\+\_\+cs Type Reference} \label{structmom__hor__visc_1_1hor__visc__cs}\index{mom\_hor\_visc::hor\_visc\_cs@{mom\_hor\_visc::hor\_visc\_cs}} \doxysubsection{Detailed Description} Control structure for horizontal viscosity. Definition at line 32 of file M\+O\+M\+\_\+hor\+\_\+visc.\+F90. Collaboration diagram for mom\+\_\+hor\+\_\+visc\+::hor\+\_\+visc\+\_\+cs\+: \nopagebreak \begin{figure}[H] \begin{center} \leavevmode \includegraphics[width=350pt]{structmom__hor__visc_1_1hor__visc__cs__coll__graph} \end{center} \end{figure} \doxysubsection*{Public variables and constants} \begin{DoxyCompactItemize} \item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_aa80a4c25693c2362de3623c9d29f5996}\label{structmom__hor__visc_1_1hor__visc__cs_aa80a4c25693c2362de3623c9d29f5996}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_aa80a4c25693c2362de3623c9d29f5996}{laplacian}} \begin{DoxyCompactList}\small\item\em Use a Laplacian horizontal viscosity if true. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_acbd59a756b2e771ff54c7fe2c09d8317}\label{structmom__hor__visc_1_1hor__visc__cs_acbd59a756b2e771ff54c7fe2c09d8317}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_acbd59a756b2e771ff54c7fe2c09d8317}{biharmonic}} \begin{DoxyCompactList}\small\item\em Use a biharmonic horizontal viscosity if true. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a59aac9946036f689e5f7b9aa2019001e}\label{structmom__hor__visc_1_1hor__visc__cs_a59aac9946036f689e5f7b9aa2019001e}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a59aac9946036f689e5f7b9aa2019001e}{debug}} \begin{DoxyCompactList}\small\item\em If true, write verbose checksums for debugging purposes. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a45b415010b94d4935cafa1f621a80021}\label{structmom__hor__visc_1_1hor__visc__cs_a45b415010b94d4935cafa1f621a80021}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a45b415010b94d4935cafa1f621a80021}{no\+\_\+slip}} \begin{DoxyCompactList}\small\item\em If true, no slip boundary conditions are used. Otherwise free slip boundary conditions are assumed. The implementation of the free slip boundary conditions on a C-\/grid is much cleaner than the no slip boundary conditions. The use of free slip b.\+c.\+s is strongly encouraged. The no slip b.\+c.\+s are not implemented with the biharmonic viscosity. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a504c9564d320c3b87876abb43826efdb}\label{structmom__hor__visc_1_1hor__visc__cs_a504c9564d320c3b87876abb43826efdb}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a504c9564d320c3b87876abb43826efdb}{bound\+\_\+kh}} \begin{DoxyCompactList}\small\item\em If true, the Laplacian coefficient is locally limited to guarantee stability. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a875377aa3fc020e4f115dddfac8f9345}\label{structmom__hor__visc_1_1hor__visc__cs_a875377aa3fc020e4f115dddfac8f9345}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a875377aa3fc020e4f115dddfac8f9345}{better\+\_\+bound\+\_\+kh}} \begin{DoxyCompactList}\small\item\em If true, use a more careful bounding of the Laplacian viscosity to guarantee stability. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_ac82c5f3528aff47c9c0854e0dc6f44e1}\label{structmom__hor__visc_1_1hor__visc__cs_ac82c5f3528aff47c9c0854e0dc6f44e1}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_ac82c5f3528aff47c9c0854e0dc6f44e1}{bound\+\_\+ah}} \begin{DoxyCompactList}\small\item\em If true, the biharmonic coefficient is locally limited to guarantee stability. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a7eefaffebc5f1a0b14bd79e648433b1c}\label{structmom__hor__visc_1_1hor__visc__cs_a7eefaffebc5f1a0b14bd79e648433b1c}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a7eefaffebc5f1a0b14bd79e648433b1c}{better\+\_\+bound\+\_\+ah}} \begin{DoxyCompactList}\small\item\em If true, use a more careful bounding of the biharmonic viscosity to guarantee stability. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a04f71cfd1fe9b62d17608acf7c98e273}\label{structmom__hor__visc_1_1hor__visc__cs_a04f71cfd1fe9b62d17608acf7c98e273}} real \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a04f71cfd1fe9b62d17608acf7c98e273}{re\+\_\+ah}} \begin{DoxyCompactList}\small\item\em so that the biharmonic Reynolds number is equal to this. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_add6f086c4af6b48e035df7c9110a918a}\label{structmom__hor__visc_1_1hor__visc__cs_add6f086c4af6b48e035df7c9110a918a}} real \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_add6f086c4af6b48e035df7c9110a918a}{bound\+\_\+coef}} \begin{DoxyCompactList}\small\item\em The nondimensional coefficient of the ratio of the viscosity bounds to the theoretical maximum for stability without considering other terms \mbox{[}nondim\mbox{]}. The default is 0.\+8. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_aa68d2c9270f8322e22146693c7dcd0eb}\label{structmom__hor__visc_1_1hor__visc__cs_aa68d2c9270f8322e22146693c7dcd0eb}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_aa68d2c9270f8322e22146693c7dcd0eb}{smagorinsky\+\_\+kh}} \begin{DoxyCompactList}\small\item\em If true, use Smagorinsky nonlinear eddy viscosity. KH is the background value. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a4b9eb112f3b7f4590e8d1aed7c4a68c3}\label{structmom__hor__visc_1_1hor__visc__cs_a4b9eb112f3b7f4590e8d1aed7c4a68c3}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a4b9eb112f3b7f4590e8d1aed7c4a68c3}{smagorinsky\+\_\+ah}} \begin{DoxyCompactList}\small\item\em If true, use a biharmonic form of Smagorinsky nonlinear eddy viscosity. AH is the background. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a09a26615a09a7c2df53fdcee432aad5a}\label{structmom__hor__visc_1_1hor__visc__cs_a09a26615a09a7c2df53fdcee432aad5a}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a09a26615a09a7c2df53fdcee432aad5a}{leith\+\_\+kh}} \begin{DoxyCompactList}\small\item\em If true, use 2D Leith nonlinear eddy viscosity. KH is the background value. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a51966150e8cdd54447218d3701d64c0d}\label{structmom__hor__visc_1_1hor__visc__cs_a51966150e8cdd54447218d3701d64c0d}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a51966150e8cdd54447218d3701d64c0d}{modified\+\_\+leith}} \begin{DoxyCompactList}\small\item\em If true, use extra component of Leith viscosity to damp divergent flow. To use, still set Leith\+\_\+\+Kh=.T\+R\+UE. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a212d720755e1fcbdf00d4293caa890c3}\label{structmom__hor__visc_1_1hor__visc__cs_a212d720755e1fcbdf00d4293caa890c3}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a212d720755e1fcbdf00d4293caa890c3}{use\+\_\+beta\+\_\+in\+\_\+leith}} \begin{DoxyCompactList}\small\item\em If true, includes the beta term in the Leith viscosity. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a0ab8186bed9259b0704747b44905bc1f}\label{structmom__hor__visc_1_1hor__visc__cs_a0ab8186bed9259b0704747b44905bc1f}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a0ab8186bed9259b0704747b44905bc1f}{leith\+\_\+ah}} \begin{DoxyCompactList}\small\item\em If true, use a biharmonic form of 2D Leith nonlinear eddy viscosity. AH is the background. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_aaf23847881940e19e3a3f9fc7fef3411}\label{structmom__hor__visc_1_1hor__visc__cs_aaf23847881940e19e3a3f9fc7fef3411}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_aaf23847881940e19e3a3f9fc7fef3411}{use\+\_\+qg\+\_\+leith\+\_\+visc}} \begin{DoxyCompactList}\small\item\em If true, use QG Leith nonlinear eddy viscosity. KH is the background value. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a999c53d6549abacb65a67302189c2982}\label{structmom__hor__visc_1_1hor__visc__cs_a999c53d6549abacb65a67302189c2982}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a999c53d6549abacb65a67302189c2982}{bound\+\_\+coriolis}} \begin{DoxyCompactList}\small\item\em If true \& S\+M\+A\+G\+O\+R\+I\+N\+S\+K\+Y\+\_\+\+AH is used, the biharmonic viscosity is modified to include a term that scales quadratically with the velocity shears. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_add27fb9feda9603cab0ab78023729812}\label{structmom__hor__visc_1_1hor__visc__cs_add27fb9feda9603cab0ab78023729812}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_add27fb9feda9603cab0ab78023729812}{use\+\_\+kh\+\_\+bg\+\_\+2d}} \begin{DoxyCompactList}\small\item\em Read 2d background viscosity from a file. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_aef74c70f3a3edfea5c8b2389c628da48}\label{structmom__hor__visc_1_1hor__visc__cs_aef74c70f3a3edfea5c8b2389c628da48}} real \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_aef74c70f3a3edfea5c8b2389c628da48}{kh\+\_\+bg\+\_\+min}} \begin{DoxyCompactList}\small\item\em The minimum value allowed for Laplacian horizontal viscosity \mbox{[}L2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. The default is 0.\+0. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_abd4b29b2d8c6c03816a2ff3458787d96}\label{structmom__hor__visc_1_1hor__visc__cs_abd4b29b2d8c6c03816a2ff3458787d96}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_abd4b29b2d8c6c03816a2ff3458787d96}{use\+\_\+land\+\_\+mask}} \begin{DoxyCompactList}\small\item\em Use the land mask for the computation of thicknesses at velocity locations. This eliminates the dependence on arbitrary values over land or outside of the domain. Default is False to maintain answers with legacy experiments but should be changed to True for new experiments. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_afc0be8b2eb595a4fcdbfdaa37f2c342d}\label{structmom__hor__visc_1_1hor__visc__cs_afc0be8b2eb595a4fcdbfdaa37f2c342d}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_afc0be8b2eb595a4fcdbfdaa37f2c342d}{anisotropic}} \begin{DoxyCompactList}\small\item\em If true, allow anisotropic component to the viscosity. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a7db0b831b7ea3867f092827a42de125c}\label{structmom__hor__visc_1_1hor__visc__cs_a7db0b831b7ea3867f092827a42de125c}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a7db0b831b7ea3867f092827a42de125c}{add\+\_\+les\+\_\+viscosity}} \begin{DoxyCompactList}\small\item\em If true, adds the viscosity from Smagorinsky and Leith to the background viscosity instead of taking the maximum. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a63bf0c07a7d9e8988204e88c88d41433}\label{structmom__hor__visc_1_1hor__visc__cs_a63bf0c07a7d9e8988204e88c88d41433}} real \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a63bf0c07a7d9e8988204e88c88d41433}{kh\+\_\+aniso}} \begin{DoxyCompactList}\small\item\em The anisotropic viscosity \mbox{[}L2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a63fba5450bae56ed987616088bb0ccf8}\label{structmom__hor__visc_1_1hor__visc__cs_a63fba5450bae56ed987616088bb0ccf8}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a63fba5450bae56ed987616088bb0ccf8}{dynamic\+\_\+aniso}} \begin{DoxyCompactList}\small\item\em If true, the anisotropic viscosity is recomputed as a function of state. This is set depending on A\+N\+I\+S\+O\+T\+R\+O\+P\+I\+C\+\_\+\+M\+O\+DE. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a42d534df1103a2345896e16f1334d31f}\label{structmom__hor__visc_1_1hor__visc__cs_a42d534df1103a2345896e16f1334d31f}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a42d534df1103a2345896e16f1334d31f}{res\+\_\+scale\+\_\+meke}} \begin{DoxyCompactList}\small\item\em If true, the viscosity contribution from M\+E\+KE is scaled by the resolution function. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_aa6067bbb27088884b9c5ccfb0ddfe79a}\label{structmom__hor__visc_1_1hor__visc__cs_aa6067bbb27088884b9c5ccfb0ddfe79a}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_aa6067bbb27088884b9c5ccfb0ddfe79a}{use\+\_\+gme}} \begin{DoxyCompactList}\small\item\em If true, use G\+ME backscatter scheme. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a5b88c7b8acab9d01773ffe65773d05e9}\label{structmom__hor__visc_1_1hor__visc__cs_a5b88c7b8acab9d01773ffe65773d05e9}} logical \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a5b88c7b8acab9d01773ffe65773d05e9}{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__hor__visc_1_1hor__visc__cs_a99c7a8e52d0339f6505e5a29db36034a}\label{structmom__hor__visc_1_1hor__visc__cs_a99c7a8e52d0339f6505e5a29db36034a}} real \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a99c7a8e52d0339f6505e5a29db36034a}{gme\+\_\+h0}} \begin{DoxyCompactList}\small\item\em The strength of G\+ME tapers quadratically to zero when the bathymetric depth is shallower than G\+M\+E\+\_\+\+H0 \mbox{[}Z $\sim$$>$ m\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a522924f5e6d4c0287b7a3f6e793a37a1}\label{structmom__hor__visc_1_1hor__visc__cs_a522924f5e6d4c0287b7a3f6e793a37a1}} real \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a522924f5e6d4c0287b7a3f6e793a37a1}{gme\+\_\+efficiency}} \begin{DoxyCompactList}\small\item\em The nondimensional prefactor multiplying the G\+ME coefficient \mbox{[}nondim\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_af5c27c4f122a85fa04238575f21f97f0}\label{structmom__hor__visc_1_1hor__visc__cs_af5c27c4f122a85fa04238575f21f97f0}} real \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_af5c27c4f122a85fa04238575f21f97f0}{gme\+\_\+limiter}} \begin{DoxyCompactList}\small\item\em The absolute maximum value the G\+ME coefficient is allowed to take \mbox{[}L2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_ac38a79322cf09ac70a357ddac64ee8cf}\label{structmom__hor__visc_1_1hor__visc__cs_ac38a79322cf09ac70a357ddac64ee8cf}} real \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_ac38a79322cf09ac70a357ddac64ee8cf}{min\+\_\+grid\+\_\+kh}} \begin{DoxyCompactList}\small\item\em Minimum horizontal Laplacian viscosity used to limit the grid Reynolds number \mbox{[}L2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a5655236792c9b9f60e71115f9f97daa8}\label{structmom__hor__visc_1_1hor__visc__cs_a5655236792c9b9f60e71115f9f97daa8}} real \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a5655236792c9b9f60e71115f9f97daa8}{min\+\_\+grid\+\_\+ah}} \begin{DoxyCompactList}\small\item\em Minimun horizontal biharmonic viscosity used to limit grid Reynolds number \mbox{[}L4 T-\/1 $\sim$$>$ m4 s-\/1\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_af4631724b8daee34d96a6f52df8598c3}\label{structmom__hor__visc_1_1hor__visc__cs_af4631724b8daee34d96a6f52df8598c3}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_af4631724b8daee34d96a6f52df8598c3}{kh\+\_\+bg\+\_\+xx}} \begin{DoxyCompactList}\small\item\em The background Laplacian viscosity at h points \mbox{[}L2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. The actual viscosity may be the larger of this viscosity and the Smagorinsky and Leith viscosities. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a369a96cd118cce280d8a9503bec557b1}\label{structmom__hor__visc_1_1hor__visc__cs_a369a96cd118cce280d8a9503bec557b1}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a369a96cd118cce280d8a9503bec557b1}{kh\+\_\+bg\+\_\+2d}} \begin{DoxyCompactList}\small\item\em The background Laplacian viscosity at h points \mbox{[}L2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. The actual viscosity may be the larger of this viscosity and the Smagorinsky and Leith viscosities. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_ac1efd636e044acd790440f52c8dd90e2}\label{structmom__hor__visc_1_1hor__visc__cs_ac1efd636e044acd790440f52c8dd90e2}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_ac1efd636e044acd790440f52c8dd90e2}{ah\+\_\+bg\+\_\+xx}} \begin{DoxyCompactList}\small\item\em The background biharmonic viscosity at h points \mbox{[}L4 T-\/1 $\sim$$>$ m4 s-\/1\mbox{]}. The actual viscosity may be the larger of this viscosity and the Smagorinsky and Leith viscosities. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a85e797e0a8c8610d1d46b279d17447c4}\label{structmom__hor__visc_1_1hor__visc__cs_a85e797e0a8c8610d1d46b279d17447c4}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a85e797e0a8c8610d1d46b279d17447c4}{reduction\+\_\+xx}} \begin{DoxyCompactList}\small\item\em The amount by which stresses through h points are reduced due to partial barriers \mbox{[}nondim\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a155f0b991d4d50a99ff0fe6efd67903a}\label{structmom__hor__visc_1_1hor__visc__cs_a155f0b991d4d50a99ff0fe6efd67903a}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a155f0b991d4d50a99ff0fe6efd67903a}{kh\+\_\+max\+\_\+xx}} \begin{DoxyCompactList}\small\item\em The maximum permitted Laplacian viscosity \mbox{[}L2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a271a4e25b6b7e53c2b2134876d3307bc}\label{structmom__hor__visc_1_1hor__visc__cs_a271a4e25b6b7e53c2b2134876d3307bc}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a271a4e25b6b7e53c2b2134876d3307bc}{ah\+\_\+max\+\_\+xx}} \begin{DoxyCompactList}\small\item\em The maximum permitted biharmonic viscosity \mbox{[}L4 T-\/1 $\sim$$>$ m4 s-\/1\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a2b29fec52bd5179435d41d0b5aa1c27f}\label{structmom__hor__visc_1_1hor__visc__cs_a2b29fec52bd5179435d41d0b5aa1c27f}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a2b29fec52bd5179435d41d0b5aa1c27f}{n1n2\+\_\+h}} \begin{DoxyCompactList}\small\item\em Factor n1$\ast$n2 in the anisotropic direction tensor at h-\/points. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a535fc44c81b5a7ca94885e3487d8c553}\label{structmom__hor__visc_1_1hor__visc__cs_a535fc44c81b5a7ca94885e3487d8c553}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a535fc44c81b5a7ca94885e3487d8c553}{n1n1\+\_\+m\+\_\+n2n2\+\_\+h}} \begin{DoxyCompactList}\small\item\em Factor n1$\ast$$\ast$2-\/n2$\ast$$\ast$2 in the anisotropic direction tensor at h-\/points. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a238d5697a99ea42927734bf34dc90d69}\label{structmom__hor__visc_1_1hor__visc__cs_a238d5697a99ea42927734bf34dc90d69}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a238d5697a99ea42927734bf34dc90d69}{grid\+\_\+sp\+\_\+h2}} \begin{DoxyCompactList}\small\item\em Harmonic mean of the squares of the grid \mbox{[}L2 $\sim$$>$ m2\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_ac85d856a91bcc1870a5449491ffd38f7}\label{structmom__hor__visc_1_1hor__visc__cs_ac85d856a91bcc1870a5449491ffd38f7}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_ac85d856a91bcc1870a5449491ffd38f7}{grid\+\_\+sp\+\_\+h3}} \begin{DoxyCompactList}\small\item\em Harmonic mean of the squares of the grid$^\wedge$(3/2) \mbox{[}L3 $\sim$$>$ m3\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a8f19c83d0e7ccc81b206cdf8dfe276f4}\label{structmom__hor__visc_1_1hor__visc__cs_a8f19c83d0e7ccc81b206cdf8dfe276f4}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a8f19c83d0e7ccc81b206cdf8dfe276f4}{kh\+\_\+bg\+\_\+xy}} \begin{DoxyCompactList}\small\item\em The background Laplacian viscosity at q points \mbox{[}L2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. The actual viscosity may be the larger of this viscosity and the Smagorinsky and Leith viscosities. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a0d88370f21172942f12542a60fddfd4b}\label{structmom__hor__visc_1_1hor__visc__cs_a0d88370f21172942f12542a60fddfd4b}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a0d88370f21172942f12542a60fddfd4b}{ah\+\_\+bg\+\_\+xy}} \begin{DoxyCompactList}\small\item\em The background biharmonic viscosity at q points \mbox{[}L4 T-\/1 $\sim$$>$ m4 s-\/1\mbox{]}. The actual viscosity may be the larger of this viscosity and the Smagorinsky and Leith viscosities. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a7f994c493f16b11af70f3ef93493110c}\label{structmom__hor__visc_1_1hor__visc__cs_a7f994c493f16b11af70f3ef93493110c}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a7f994c493f16b11af70f3ef93493110c}{reduction\+\_\+xy}} \begin{DoxyCompactList}\small\item\em The amount by which stresses through q points are reduced due to partial barriers \mbox{[}nondim\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_af6e089f2309b30a3b20b95b72c38f2a1}\label{structmom__hor__visc_1_1hor__visc__cs_af6e089f2309b30a3b20b95b72c38f2a1}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_af6e089f2309b30a3b20b95b72c38f2a1}{kh\+\_\+max\+\_\+xy}} \begin{DoxyCompactList}\small\item\em The maximum permitted Laplacian viscosity \mbox{[}L2 T-\/1 $\sim$$>$ m2 s-\/1\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a0bd2395a076ab5ba5224c8b201815957}\label{structmom__hor__visc_1_1hor__visc__cs_a0bd2395a076ab5ba5224c8b201815957}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a0bd2395a076ab5ba5224c8b201815957}{ah\+\_\+max\+\_\+xy}} \begin{DoxyCompactList}\small\item\em The maximum permitted biharmonic viscosity \mbox{[}L4 T-\/1 $\sim$$>$ m4 s-\/1\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_ae9345a891e26586f19f4d6f9c94e66e8}\label{structmom__hor__visc_1_1hor__visc__cs_ae9345a891e26586f19f4d6f9c94e66e8}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_ae9345a891e26586f19f4d6f9c94e66e8}{n1n2\+\_\+q}} \begin{DoxyCompactList}\small\item\em Factor n1$\ast$n2 in the anisotropic direction tensor at q-\/points. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a5f532472ffa020246e6adebddc7222e6}\label{structmom__hor__visc_1_1hor__visc__cs_a5f532472ffa020246e6adebddc7222e6}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a5f532472ffa020246e6adebddc7222e6}{n1n1\+\_\+m\+\_\+n2n2\+\_\+q}} \begin{DoxyCompactList}\small\item\em Factor n1$\ast$$\ast$2-\/n2$\ast$$\ast$2 in the anisotropic direction tensor at q-\/points. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_af859f726810a9c89fe0909e31aa78e7a}\label{structmom__hor__visc_1_1hor__visc__cs_af859f726810a9c89fe0909e31aa78e7a}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_af859f726810a9c89fe0909e31aa78e7a}{dx2h}} \begin{DoxyCompactList}\small\item\em Pre-\/calculated dx$^\wedge$2 at h points \mbox{[}L2 $\sim$$>$ m2\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a65aa4d6734e2eab735054967e16b3b6f}\label{structmom__hor__visc_1_1hor__visc__cs_a65aa4d6734e2eab735054967e16b3b6f}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a65aa4d6734e2eab735054967e16b3b6f}{dy2h}} \begin{DoxyCompactList}\small\item\em Pre-\/calculated dy$^\wedge$2 at h points \mbox{[}L2 $\sim$$>$ m2\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a34e80346b4f77929e145b4c729b1a7a4}\label{structmom__hor__visc_1_1hor__visc__cs_a34e80346b4f77929e145b4c729b1a7a4}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a34e80346b4f77929e145b4c729b1a7a4}{dx\+\_\+dyt}} \begin{DoxyCompactList}\small\item\em Pre-\/calculated dx/dy at h points \mbox{[}nondim\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a6216da9cb41f86aa87a5d2dcccbc1772}\label{structmom__hor__visc_1_1hor__visc__cs_a6216da9cb41f86aa87a5d2dcccbc1772}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a6216da9cb41f86aa87a5d2dcccbc1772}{dy\+\_\+dxt}} \begin{DoxyCompactList}\small\item\em Pre-\/calculated dy/dx at h points \mbox{[}nondim\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a3aca9dee3ade9eb6631cb1d245dac8f9}\label{structmom__hor__visc_1_1hor__visc__cs_a3aca9dee3ade9eb6631cb1d245dac8f9}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a3aca9dee3ade9eb6631cb1d245dac8f9}{dx2q}} \begin{DoxyCompactList}\small\item\em Pre-\/calculated dx$^\wedge$2 at q points \mbox{[}L2 $\sim$$>$ m2\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a7ed7e63233c715ee1952ec1e22527058}\label{structmom__hor__visc_1_1hor__visc__cs_a7ed7e63233c715ee1952ec1e22527058}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a7ed7e63233c715ee1952ec1e22527058}{dy2q}} \begin{DoxyCompactList}\small\item\em Pre-\/calculated dy$^\wedge$2 at q points \mbox{[}L2 $\sim$$>$ m2\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a3d7fd543a4f06fa1f82ea53b6784713f}\label{structmom__hor__visc_1_1hor__visc__cs_a3d7fd543a4f06fa1f82ea53b6784713f}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a3d7fd543a4f06fa1f82ea53b6784713f}{dx\+\_\+dybu}} \begin{DoxyCompactList}\small\item\em Pre-\/calculated dx/dy at q points \mbox{[}nondim\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_aab0d9551147c3917b63e562c943b5a23}\label{structmom__hor__visc_1_1hor__visc__cs_aab0d9551147c3917b63e562c943b5a23}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_aab0d9551147c3917b63e562c943b5a23}{dy\+\_\+dxbu}} \begin{DoxyCompactList}\small\item\em Pre-\/calculated dy/dx at q points \mbox{[}nondim\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_acc842022799e8b4f3d5a619201fb712a}\label{structmom__hor__visc_1_1hor__visc__cs_acc842022799e8b4f3d5a619201fb712a}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_acc842022799e8b4f3d5a619201fb712a}{idx2dycu}} \begin{DoxyCompactList}\small\item\em 1/(dx$^\wedge$2 dy) at u points \mbox{[}L-\/3 $\sim$$>$ m-\/3\mbox{]} \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a2ab13a8fe0d34ad1fd7df4209220ab5a}\label{structmom__hor__visc_1_1hor__visc__cs_a2ab13a8fe0d34ad1fd7df4209220ab5a}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a2ab13a8fe0d34ad1fd7df4209220ab5a}{idxdy2u}} \begin{DoxyCompactList}\small\item\em 1/(dx dy$^\wedge$2) at u points \mbox{[}L-\/3 $\sim$$>$ m-\/3\mbox{]} \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_af5c9593664c250ea505a829987a24f92}\label{structmom__hor__visc_1_1hor__visc__cs_af5c9593664c250ea505a829987a24f92}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_af5c9593664c250ea505a829987a24f92}{idx2dycv}} \begin{DoxyCompactList}\small\item\em 1/(dx$^\wedge$2 dy) at v points \mbox{[}L-\/3 $\sim$$>$ m-\/3\mbox{]} \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_ab2fc4017188d252f984b0ee365c0d973}\label{structmom__hor__visc_1_1hor__visc__cs_ab2fc4017188d252f984b0ee365c0d973}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_ab2fc4017188d252f984b0ee365c0d973}{idxdy2v}} \begin{DoxyCompactList}\small\item\em 1/(dx dy$^\wedge$2) at v points \mbox{[}L-\/3 $\sim$$>$ m-\/3\mbox{]} \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_aa85ae828257142e8a2a5d5af5dbfa9e8}\label{structmom__hor__visc_1_1hor__visc__cs_aa85ae828257142e8a2a5d5af5dbfa9e8}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_aa85ae828257142e8a2a5d5af5dbfa9e8}{laplac2\+\_\+const\+\_\+xx}} \begin{DoxyCompactList}\small\item\em Laplacian metric-\/dependent constants \mbox{[}L2 $\sim$$>$ m2\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_aa80e967cae10203f03a9d3968a8d8320}\label{structmom__hor__visc_1_1hor__visc__cs_aa80e967cae10203f03a9d3968a8d8320}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_aa80e967cae10203f03a9d3968a8d8320}{biharm6\+\_\+const\+\_\+xx}} \begin{DoxyCompactList}\small\item\em Biharmonic metric-\/dependent constants \mbox{[}L6 $\sim$$>$ m6\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a52df9f359693c69f114190dfdc9ec5f7}\label{structmom__hor__visc_1_1hor__visc__cs_a52df9f359693c69f114190dfdc9ec5f7}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a52df9f359693c69f114190dfdc9ec5f7}{laplac3\+\_\+const\+\_\+xx}} \begin{DoxyCompactList}\small\item\em Laplacian metric-\/dependent constants \mbox{[}L3 $\sim$$>$ m3\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_ab0ce08f0b8e5b79c98c4d9fedfaa489c}\label{structmom__hor__visc_1_1hor__visc__cs_ab0ce08f0b8e5b79c98c4d9fedfaa489c}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_ab0ce08f0b8e5b79c98c4d9fedfaa489c}{biharm\+\_\+const\+\_\+xx}} \begin{DoxyCompactList}\small\item\em Biharmonic metric-\/dependent constants \mbox{[}L4 $\sim$$>$ m4\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a0f55ecff0939baaea23557a42b6e9247}\label{structmom__hor__visc_1_1hor__visc__cs_a0f55ecff0939baaea23557a42b6e9247}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a0f55ecff0939baaea23557a42b6e9247}{biharm\+\_\+const2\+\_\+xx}} \begin{DoxyCompactList}\small\item\em Biharmonic metric-\/dependent constants \mbox{[}T L4 $\sim$$>$ s m4\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_ae4e22a0f12c0a293382b869f4884ccf0}\label{structmom__hor__visc_1_1hor__visc__cs_ae4e22a0f12c0a293382b869f4884ccf0}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_ae4e22a0f12c0a293382b869f4884ccf0}{re\+\_\+ah\+\_\+const\+\_\+xx}} \begin{DoxyCompactList}\small\item\em Biharmonic metric-\/dependent constants \mbox{[}L3 $\sim$$>$ m3\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a0aa6e0b0ca29f8f84276e59e3d881ce8}\label{structmom__hor__visc_1_1hor__visc__cs_a0aa6e0b0ca29f8f84276e59e3d881ce8}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a0aa6e0b0ca29f8f84276e59e3d881ce8}{laplac2\+\_\+const\+\_\+xy}} \begin{DoxyCompactList}\small\item\em Laplacian metric-\/dependent constants \mbox{[}L2 $\sim$$>$ m2\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a1b49671522cab98f62d9c8a8336cc129}\label{structmom__hor__visc_1_1hor__visc__cs_a1b49671522cab98f62d9c8a8336cc129}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a1b49671522cab98f62d9c8a8336cc129}{biharm6\+\_\+const\+\_\+xy}} \begin{DoxyCompactList}\small\item\em Biharmonic metric-\/dependent constants \mbox{[}L6 $\sim$$>$ m6\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a325a267e88b351b28253f623fe7df3c9}\label{structmom__hor__visc_1_1hor__visc__cs_a325a267e88b351b28253f623fe7df3c9}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a325a267e88b351b28253f623fe7df3c9}{laplac3\+\_\+const\+\_\+xy}} \begin{DoxyCompactList}\small\item\em Laplacian metric-\/dependent constants \mbox{[}L3 $\sim$$>$ m3\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a8ec4cdb275dd12f3a33e1533db80c155}\label{structmom__hor__visc_1_1hor__visc__cs_a8ec4cdb275dd12f3a33e1533db80c155}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a8ec4cdb275dd12f3a33e1533db80c155}{biharm\+\_\+const\+\_\+xy}} \begin{DoxyCompactList}\small\item\em Biharmonic metric-\/dependent constants \mbox{[}L4 $\sim$$>$ m4\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a7aa014d32feb7f72c07bcb5054bf9847}\label{structmom__hor__visc_1_1hor__visc__cs_a7aa014d32feb7f72c07bcb5054bf9847}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a7aa014d32feb7f72c07bcb5054bf9847}{biharm\+\_\+const2\+\_\+xy}} \begin{DoxyCompactList}\small\item\em Biharmonic metric-\/dependent constants \mbox{[}T L4 $\sim$$>$ s m4\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a733797042ef889349d174ed67d486dc5}\label{structmom__hor__visc_1_1hor__visc__cs_a733797042ef889349d174ed67d486dc5}} real, dimension(\+:, \+:), allocatable \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a733797042ef889349d174ed67d486dc5}{re\+\_\+ah\+\_\+const\+\_\+xy}} \begin{DoxyCompactList}\small\item\em Biharmonic metric-\/dependent constants \mbox{[}L3 $\sim$$>$ m3\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a647efc022b832ecb257936746f8bb9ca}\label{structmom__hor__visc_1_1hor__visc__cs_a647efc022b832ecb257936746f8bb9ca}} type(diag\+\_\+ctrl), pointer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a647efc022b832ecb257936746f8bb9ca}{diag}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em structure to regulate diagnostics \end{DoxyCompactList}\end{DoxyCompactItemize} \textbf{ }\par \begin{DoxyCompactItemize} \item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a916f79a8eadcb853538d31f49ef229fa}\label{structmom__hor__visc_1_1hor__visc__cs_a916f79a8eadcb853538d31f49ef229fa}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a916f79a8eadcb853538d31f49ef229fa}{id\+\_\+grid\+\_\+re\+\_\+ah}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a821ea04da9ec85db6c02cfc44077ffad}\label{structmom__hor__visc_1_1hor__visc__cs_a821ea04da9ec85db6c02cfc44077ffad}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a821ea04da9ec85db6c02cfc44077ffad}{id\+\_\+grid\+\_\+re\+\_\+kh}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a4fd86eaa66141fc43e4db3d4dea2c9f7}\label{structmom__hor__visc_1_1hor__visc__cs_a4fd86eaa66141fc43e4db3d4dea2c9f7}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a4fd86eaa66141fc43e4db3d4dea2c9f7}{id\+\_\+diffu}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_aa83198a40f1fff406dd4d6a6f945f954}\label{structmom__hor__visc_1_1hor__visc__cs_aa83198a40f1fff406dd4d6a6f945f954}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_aa83198a40f1fff406dd4d6a6f945f954}{id\+\_\+diffv}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a01c13b8de38ea6eba7a3db5da6418e4b}\label{structmom__hor__visc_1_1hor__visc__cs_a01c13b8de38ea6eba7a3db5da6418e4b}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a01c13b8de38ea6eba7a3db5da6418e4b}{id\+\_\+hf\+\_\+diffu\+\_\+2d}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a5de41fa0946db68c624a56de3cfdfaea}\label{structmom__hor__visc_1_1hor__visc__cs_a5de41fa0946db68c624a56de3cfdfaea}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a5de41fa0946db68c624a56de3cfdfaea}{id\+\_\+hf\+\_\+diffv\+\_\+2d}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a34e61eb013bd7ff6b1f9a31fce4312b0}\label{structmom__hor__visc_1_1hor__visc__cs_a34e61eb013bd7ff6b1f9a31fce4312b0}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a34e61eb013bd7ff6b1f9a31fce4312b0}{id\+\_\+ah\+\_\+h}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_aa22c62137ff0ec78461d89e5783233bc}\label{structmom__hor__visc_1_1hor__visc__cs_aa22c62137ff0ec78461d89e5783233bc}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_aa22c62137ff0ec78461d89e5783233bc}{id\+\_\+ah\+\_\+q}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_ac8841cd87a95fd556cdcaba7a098423e}\label{structmom__hor__visc_1_1hor__visc__cs_ac8841cd87a95fd556cdcaba7a098423e}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_ac8841cd87a95fd556cdcaba7a098423e}{id\+\_\+kh\+\_\+h}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_abfd4bcbe1e30409105a45e4c9607aeff}\label{structmom__hor__visc_1_1hor__visc__cs_abfd4bcbe1e30409105a45e4c9607aeff}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_abfd4bcbe1e30409105a45e4c9607aeff}{id\+\_\+kh\+\_\+q}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_aa466f4d38a48193f0375fcaf03b4d568}\label{structmom__hor__visc_1_1hor__visc__cs_aa466f4d38a48193f0375fcaf03b4d568}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_aa466f4d38a48193f0375fcaf03b4d568}{id\+\_\+gme\+\_\+coeff\+\_\+h}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a317eb06272aae07830ceaed446d635a2}\label{structmom__hor__visc_1_1hor__visc__cs_a317eb06272aae07830ceaed446d635a2}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a317eb06272aae07830ceaed446d635a2}{id\+\_\+gme\+\_\+coeff\+\_\+q}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a5281524cefc8cd3421c1cc253d6bebec}\label{structmom__hor__visc_1_1hor__visc__cs_a5281524cefc8cd3421c1cc253d6bebec}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a5281524cefc8cd3421c1cc253d6bebec}{id\+\_\+vort\+\_\+xy\+\_\+q}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a61cd59c65ff4c5babdcba5111bef2851}\label{structmom__hor__visc_1_1hor__visc__cs_a61cd59c65ff4c5babdcba5111bef2851}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a61cd59c65ff4c5babdcba5111bef2851}{id\+\_\+div\+\_\+xx\+\_\+h}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a4e23796f9d71efeee81e0f8ef2165d4b}\label{structmom__hor__visc_1_1hor__visc__cs_a4e23796f9d71efeee81e0f8ef2165d4b}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a4e23796f9d71efeee81e0f8ef2165d4b}{id\+\_\+sh\+\_\+xy\+\_\+q}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a1b5b259f99e675b765e8f37b23cec9dc}\label{structmom__hor__visc_1_1hor__visc__cs_a1b5b259f99e675b765e8f37b23cec9dc}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a1b5b259f99e675b765e8f37b23cec9dc}{id\+\_\+sh\+\_\+xx\+\_\+h}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_aa0add7592a1f5b1dc5477e3c3d3f4e61}\label{structmom__hor__visc_1_1hor__visc__cs_aa0add7592a1f5b1dc5477e3c3d3f4e61}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_aa0add7592a1f5b1dc5477e3c3d3f4e61}{id\+\_\+frictwork}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_a458f439666a2405927d3a2d9dc71855e}\label{structmom__hor__visc_1_1hor__visc__cs_a458f439666a2405927d3a2d9dc71855e}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_a458f439666a2405927d3a2d9dc71855e}{id\+\_\+frictworkintz}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__hor__visc_1_1hor__visc__cs_af03733edb779441de594e9248d2cb6b3}\label{structmom__hor__visc_1_1hor__visc__cs_af03733edb779441de594e9248d2cb6b3}} integer \mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs_af03733edb779441de594e9248d2cb6b3}{id\+\_\+frictwork\+\_\+gme}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic id. \end{DoxyCompactList}\end{DoxyCompactItemize} \doxysubsection{Detailed Description} Control structure for horizontal viscosity. Definition at line 32 of file M\+O\+M\+\_\+hor\+\_\+visc.\+F90. The documentation for this type was generated from the following file\+:\begin{DoxyCompactItemize} \item /home/cermak/src/\+M\+O\+M6.\+devrob/src/parameterizations/lateral/M\+O\+M\+\_\+hor\+\_\+visc.\+F90\end{DoxyCompactItemize}