\hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs}{}\section{mom\+\_\+dynamics\+\_\+unsplit\+::mom\+\_\+dyn\+\_\+unsplit\+\_\+cs Type Reference} \label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs}\index{mom\_dynamics\_unsplit::mom\_dyn\_unsplit\_cs@{mom\_dynamics\_unsplit::mom\_dyn\_unsplit\_cs}} \subsection{Detailed Description} M\+O\+M\+\_\+dynamics\+\_\+unsplit module control structure. Definition at line 107 of file M\+O\+M\+\_\+dynamics\+\_\+unsplit.\+F90. Collaboration diagram for mom\+\_\+dynamics\+\_\+unsplit\+::mom\+\_\+dyn\+\_\+unsplit\+\_\+cs\+: \nopagebreak \begin{figure}[H] \begin{center} \leavevmode \includegraphics[height=550pt]{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs__coll__graph} \end{center} \end{figure} \subsection*{Public variables and constants} \begin{DoxyCompactItemize} \item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_aca718daf478f358f42fd931f6119a524}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_aca718daf478f358f42fd931f6119a524}} real, dimension(\+:, \+:, \+:), allocatable \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_aca718daf478f358f42fd931f6119a524}{cau}} \begin{DoxyCompactList}\small\item\em C\+Au = f$\ast$v -\/ u.\+grad(u) \mbox{[}L T-\/2 $\sim$$>$ m s-\/2\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a0d7859538972a3e817c063a3fd28f5fd}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a0d7859538972a3e817c063a3fd28f5fd}} real, dimension(\+:, \+:, \+:), allocatable \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a0d7859538972a3e817c063a3fd28f5fd}{pfu}} \begin{DoxyCompactList}\small\item\em P\+Fu = -\/d\+M/dx \mbox{[}L T-\/2 $\sim$$>$ m s-\/2\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a0f54aba47f0816a41fd1a0d233bf0210}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a0f54aba47f0816a41fd1a0d233bf0210}} real, dimension(\+:, \+:, \+:), allocatable \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a0f54aba47f0816a41fd1a0d233bf0210}{diffu}} \begin{DoxyCompactList}\small\item\em Zonal acceleration due to convergence of the along-\/isopycnal stress tensor \mbox{[}L T-\/2 $\sim$$>$ m s-\/2\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a48f87778a889214bdf19cc16444b37fb}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a48f87778a889214bdf19cc16444b37fb}} real, dimension(\+:, \+:, \+:), allocatable \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a48f87778a889214bdf19cc16444b37fb}{cav}} \begin{DoxyCompactList}\small\item\em C\+Av = -\/f$\ast$u -\/ u.\+grad(v) \mbox{[}L T-\/2 $\sim$$>$ m s-\/2\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a9cc81bf6855cdb434b4878ae616423a7}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a9cc81bf6855cdb434b4878ae616423a7}} real, dimension(\+:, \+:, \+:), allocatable \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a9cc81bf6855cdb434b4878ae616423a7}{pfv}} \begin{DoxyCompactList}\small\item\em P\+Fv = -\/d\+M/dy \mbox{[}L T-\/2 $\sim$$>$ m s-\/2\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_aeffdf6f08b174b0395fae837db7c48c2}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_aeffdf6f08b174b0395fae837db7c48c2}} real, dimension(\+:, \+:, \+:), allocatable \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_aeffdf6f08b174b0395fae837db7c48c2}{diffv}} \begin{DoxyCompactList}\small\item\em Meridional acceleration due to convergence of the along-\/isopycnal stress tensor \mbox{[}L T-\/2 $\sim$$>$ m s-\/2\mbox{]}. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_aaf5526f7a3aa35b9ee99df0b21d1d81e}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_aaf5526f7a3aa35b9ee99df0b21d1d81e}} real, dimension(\+:,\+:), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_aaf5526f7a3aa35b9ee99df0b21d1d81e}{taux\+\_\+bot}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em frictional x-\/bottom stress from the ocean to the seafloor \mbox{[}R L Z T-\/2 $\sim$$>$ Pa\mbox{]} \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a8d5bea9282f06a545715cf1470a96890}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a8d5bea9282f06a545715cf1470a96890}} real, dimension(\+:,\+:), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a8d5bea9282f06a545715cf1470a96890}{tauy\+\_\+bot}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em frictional y-\/bottom stress from the ocean to the seafloor \mbox{[}R L Z T-\/2 $\sim$$>$ Pa\mbox{]} \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a06681e9d48e5724f5ce075a36b73b1a3}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a06681e9d48e5724f5ce075a36b73b1a3}} logical \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a06681e9d48e5724f5ce075a36b73b1a3}{use\+\_\+correct\+\_\+dt\+\_\+visc}} \begin{DoxyCompactList}\small\item\em If true, use the correct timestep in the viscous terms applied in the first predictor step with the unsplit time stepping scheme, and in the calculation of the turbulent mixed layer properties for viscosity. The default should be true, but it is false. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ae4d77898f19c4ba273aba6d166852d05}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ae4d77898f19c4ba273aba6d166852d05}} logical \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ae4d77898f19c4ba273aba6d166852d05}{debug}} \begin{DoxyCompactList}\small\item\em If true, write verbose checksums for debugging purposes. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_aa36f2b50d1c24de9c583b57ff7e6b968}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_aa36f2b50d1c24de9c583b57ff7e6b968}} logical \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_aa36f2b50d1c24de9c583b57ff7e6b968}{module\+\_\+is\+\_\+initialized}} = .false. \begin{DoxyCompactList}\small\item\em Record whether this mouled has been initialzed. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a074fbfaa91608934f51b80eeacbee18b}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a074fbfaa91608934f51b80eeacbee18b}} type(diag\+\_\+ctrl), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a074fbfaa91608934f51b80eeacbee18b}{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__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a1f0e4127c2349399d02aa1f0a9e2464d}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a1f0e4127c2349399d02aa1f0a9e2464d}} type(accel\+\_\+diag\+\_\+ptrs), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a1f0e4127c2349399d02aa1f0a9e2464d}{adp}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em A structure pointing to the accelerations in the momentum equations, which can later be used to calculate derived diagnostics like energy budgets. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_afff22748260170c5179d01b11d46b0c8}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_afff22748260170c5179d01b11d46b0c8}} type(cont\+\_\+diag\+\_\+ptrs), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_afff22748260170c5179d01b11d46b0c8}{cdp}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em A structure with pointers to various terms in the continuity equations, which can later be used to calculate derived diagnostics like energy budgets. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a490ddb813a27650c7433390014d7ed06}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a490ddb813a27650c7433390014d7ed06}} type(hor\+\_\+visc\+\_\+cs), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a490ddb813a27650c7433390014d7ed06}{hor\+\_\+visc\+\_\+csp}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em A pointer to the horizontal viscosity control structure. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ad67c86594ef7e17542bf12e5f3301f92}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ad67c86594ef7e17542bf12e5f3301f92}} type(continuity\+\_\+cs), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ad67c86594ef7e17542bf12e5f3301f92}{continuity\+\_\+csp}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em A pointer to the continuity control structure. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a02dbe671e08a7436703d82edbd042b92}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a02dbe671e08a7436703d82edbd042b92}} type(coriolisadv\+\_\+cs), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a02dbe671e08a7436703d82edbd042b92}{coriolisadv\+\_\+csp}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em A pointer to the Coriolis\+Adv control structure. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a653f496d20dae5878cdd7c53cc8c3d36}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a653f496d20dae5878cdd7c53cc8c3d36}} type(pressureforce\+\_\+cs), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a653f496d20dae5878cdd7c53cc8c3d36}{pressureforce\+\_\+csp}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em A pointer to the Pressure\+Force control structure. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ab351dd5efc56490f2da7d8fba6054eda}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ab351dd5efc56490f2da7d8fba6054eda}} type(vertvisc\+\_\+cs), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ab351dd5efc56490f2da7d8fba6054eda}{vertvisc\+\_\+csp}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em A pointer to the vertvisc control structure. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a144a536b368f99cc09e6a2cfcb0694ef}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a144a536b368f99cc09e6a2cfcb0694ef}} type(set\+\_\+visc\+\_\+cs), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a144a536b368f99cc09e6a2cfcb0694ef}{set\+\_\+visc\+\_\+csp}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em A pointer to the set\+\_\+visc control structure. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a0853a97bcf77017c8d0c382038e810ca}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a0853a97bcf77017c8d0c382038e810ca}} type(tidal\+\_\+forcing\+\_\+cs), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a0853a97bcf77017c8d0c382038e810ca}{tides\+\_\+csp}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em A pointer to the tidal forcing control structure. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a13e118971cda2d5d806e690822941f60}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a13e118971cda2d5d806e690822941f60}} type(ale\+\_\+cs), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a13e118971cda2d5d806e690822941f60}{ale\+\_\+csp}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em A pointer to the A\+LE control structure. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ac95cbc1af79622a5b47bc345457b6cf3}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ac95cbc1af79622a5b47bc345457b6cf3}} type(ocean\+\_\+obc\+\_\+type), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ac95cbc1af79622a5b47bc345457b6cf3}{obc}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em A pointer to an open boundary. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a3636a4e8499e4ed2ebfe3416a8f30867}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a3636a4e8499e4ed2ebfe3416a8f30867}} type(update\+\_\+obc\+\_\+cs), pointer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a3636a4e8499e4ed2ebfe3416a8f30867}{update\+\_\+obc\+\_\+csp}} =$>$ N\+U\+LL() \begin{DoxyCompactList}\small\item\em A pointer to the update\+\_\+\+O\+BC control structure. \end{DoxyCompactList}\end{DoxyCompactItemize} \textbf{ }\par \begin{DoxyCompactItemize} \item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a5382edca92982381d2512187b2307798}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a5382edca92982381d2512187b2307798}} integer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a5382edca92982381d2512187b2307798}{id\+\_\+uh}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a6614193e66ed4858c719bfe63fb188db}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a6614193e66ed4858c719bfe63fb188db}} integer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a6614193e66ed4858c719bfe63fb188db}{id\+\_\+vh}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a99d84138a8ebfc91d093e69b87c3f1f9}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a99d84138a8ebfc91d093e69b87c3f1f9}} integer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a99d84138a8ebfc91d093e69b87c3f1f9}{id\+\_\+pfu}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a038f609fe1bf55bbc6bfd8dd278a5d5a}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a038f609fe1bf55bbc6bfd8dd278a5d5a}} integer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a038f609fe1bf55bbc6bfd8dd278a5d5a}{id\+\_\+pfv}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a03d648f8d4fd7d5d5f4d7f415f5f9f72}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a03d648f8d4fd7d5d5f4d7f415f5f9f72}} integer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_a03d648f8d4fd7d5d5f4d7f415f5f9f72}{id\+\_\+cau}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\item \mbox{\Hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ad7908a2db156a8d445bb08e142c73052}\label{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ad7908a2db156a8d445bb08e142c73052}} integer \mbox{\hyperlink{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs_ad7908a2db156a8d445bb08e142c73052}{id\+\_\+cav}} = -\/1 \begin{DoxyCompactList}\small\item\em Diagnostic I\+Ds. \end{DoxyCompactList}\end{DoxyCompactItemize} \subsection{Detailed Description} M\+O\+M\+\_\+dynamics\+\_\+unsplit module control structure. Definition at line 107 of file M\+O\+M\+\_\+dynamics\+\_\+unsplit.\+F90. The documentation for this type was generated from the following file\+:\begin{DoxyCompactItemize} \item /home/cermak/src/\+M\+O\+M6.\+devrob/src/core/M\+O\+M\+\_\+dynamics\+\_\+unsplit.\+F90\end{DoxyCompactItemize}