\hypertarget{structmom__dynamics__unsplit_1_1mom__dyn__unsplit__cs}{}\doxysection{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}} \doxysubsection{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} \doxysubsection*{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(\mbox{\hyperlink{structmom__diag__mediator_1_1diag__ctrl}{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(\mbox{\hyperlink{structmom__variables_1_1accel__diag__ptrs}{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(\mbox{\hyperlink{structmom__variables_1_1cont__diag__ptrs}{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(\mbox{\hyperlink{structmom__hor__visc_1_1hor__visc__cs}{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(\mbox{\hyperlink{structmom__continuity_1_1continuity__cs}{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(\mbox{\hyperlink{structmom__coriolisadv_1_1coriolisadv__cs}{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(\mbox{\hyperlink{structmom__pressureforce_1_1pressureforce__cs}{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(\mbox{\hyperlink{structmom__vert__friction_1_1vertvisc__cs}{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(\mbox{\hyperlink{structmom__set__visc_1_1set__visc__cs}{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(\mbox{\hyperlink{structmom__tidal__forcing_1_1tidal__forcing__cs}{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(\mbox{\hyperlink{structmom__ale_1_1ale__cs}{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(\mbox{\hyperlink{structmom__open__boundary_1_1ocean__obc__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(\mbox{\hyperlink{structmom__boundary__update_1_1update__obc__cs}{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} \doxysubsection{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}