\hypertarget{namespaceugwp__common__v0}{}\doxysubsection{ugwp\+\_\+common\+\_\+v0 Module Reference}
\label{namespaceugwp__common__v0}\index{ugwp\_common\_v0@{ugwp\_common\_v0}}


Define constants.  


\doxysubsubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_a78d4a422794014204774fc66c3844e1b_a78d4a422794014204774fc66c3844e1b}{grcp}} = grav/cpd
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_aa824d41d9d38aa20b330bb62a1aea76d_aa824d41d9d38aa20b330bb62a1aea76d}{rgrav}} = 1.\+0d0/grav
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_ad7dfae4330d9ae48f0ff83156c669fba_ad7dfae4330d9ae48f0ff83156c669fba}{rdi}} = 1.\+0d0/rd
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_a5dbfdb0f81cb0834307a8adb7c81a5e6_a5dbfdb0f81cb0834307a8adb7c81a5e6}{gor}} = grav/rd
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_a659e6ca279f372a6fe0fb49b8f0b667a_a659e6ca279f372a6fe0fb49b8f0b667a}{gr2}} = grav$\ast$\mbox{\hyperlink{namespaceugwp__common__v0_a5dbfdb0f81cb0834307a8adb7c81a5e6_a5dbfdb0f81cb0834307a8adb7c81a5e6}{gor}}
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_af3c8eee694a56244c3f60ab56935a38c_af3c8eee694a56244c3f60ab56935a38c}{gocp}} = grav/cpd
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_ae367a8393063d1566542605e5af8a4db_ae367a8393063d1566542605e5af8a4db}{rcpd}} = 1./cpd
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_a3a5e0e83ff64e68b0a571339c62e4feb_a3a5e0e83ff64e68b0a571339c62e4feb}{rcpd2}} = 0.\+5$\ast$\mbox{\hyperlink{namespaceugwp__common__v0_ae367a8393063d1566542605e5af8a4db_ae367a8393063d1566542605e5af8a4db}{rcpd}}
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_afce2ae2f1e115b9972b0632933700d5c_afce2ae2f1e115b9972b0632933700d5c}{pi2}} = pi + pi
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_a72c36c7c5bcdd1f9bc87bce944886a4a_a72c36c7c5bcdd1f9bc87bce944886a4a}{omega1}} = \mbox{\hyperlink{namespaceugwp__common__v0_afce2ae2f1e115b9972b0632933700d5c_afce2ae2f1e115b9972b0632933700d5c}{pi2}}/86400.\+0
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_a4f2c03324a2b01f30c54df81de2cd23f_a4f2c03324a2b01f30c54df81de2cd23f}{omega2}} = \mbox{\hyperlink{namespaceugwp__common__v0_a72c36c7c5bcdd1f9bc87bce944886a4a_a72c36c7c5bcdd1f9bc87bce944886a4a}{omega1}}+\mbox{\hyperlink{namespaceugwp__common__v0_a72c36c7c5bcdd1f9bc87bce944886a4a_a72c36c7c5bcdd1f9bc87bce944886a4a}{omega1}}
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_a2bcfc1a86909dc177359dfad500889fd_a2bcfc1a86909dc177359dfad500889fd}{rad\+\_\+to\+\_\+deg}} =180.\+0/pi
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_acf4b19302aa1f5328032e931eb1c2b47_acf4b19302aa1f5328032e931eb1c2b47}{deg\+\_\+to\+\_\+rad}} =pi/180.\+0
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_add9f1822d70247218761a5b4fe2397d1_add9f1822d70247218761a5b4fe2397d1}{dw2min}} =1.\+0
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_ab8cfebbc19ac7e2c933f6188f58e6074_ab8cfebbc19ac7e2c933f6188f58e6074}{bnv2min}} =1.e-\/6
\item 
real(kind=kind\+\_\+phys), parameter \mbox{\hyperlink{namespaceugwp__common__v0_abfc8dedd47f3d4066e49857a60a8e25f_abfc8dedd47f3d4066e49857a60a8e25f}{velmin}} =sqrt(\mbox{\hyperlink{namespaceugwp__common__v0_add9f1822d70247218761a5b4fe2397d1_add9f1822d70247218761a5b4fe2397d1}{dw2min}})
\end{DoxyCompactItemize}


\doxysubsubsection{Variable Documentation}
\mbox{\Hypertarget{namespaceugwp__common__v0_a78d4a422794014204774fc66c3844e1b_a78d4a422794014204774fc66c3844e1b}\label{namespaceugwp__common__v0_a78d4a422794014204774fc66c3844e1b_a78d4a422794014204774fc66c3844e1b}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!grcp@{grcp}}
\index{grcp@{grcp}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{grcp}{grcp}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::grcp = grav/cpd}

\mbox{\Hypertarget{namespaceugwp__common__v0_aa824d41d9d38aa20b330bb62a1aea76d_aa824d41d9d38aa20b330bb62a1aea76d}\label{namespaceugwp__common__v0_aa824d41d9d38aa20b330bb62a1aea76d_aa824d41d9d38aa20b330bb62a1aea76d}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!rgrav@{rgrav}}
\index{rgrav@{rgrav}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{rgrav}{rgrav}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::rgrav = 1.\+0d0/grav}

\mbox{\Hypertarget{namespaceugwp__common__v0_ad7dfae4330d9ae48f0ff83156c669fba_ad7dfae4330d9ae48f0ff83156c669fba}\label{namespaceugwp__common__v0_ad7dfae4330d9ae48f0ff83156c669fba_ad7dfae4330d9ae48f0ff83156c669fba}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!rdi@{rdi}}
\index{rdi@{rdi}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{rdi}{rdi}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::rdi = 1.\+0d0/rd}

\mbox{\Hypertarget{namespaceugwp__common__v0_a5dbfdb0f81cb0834307a8adb7c81a5e6_a5dbfdb0f81cb0834307a8adb7c81a5e6}\label{namespaceugwp__common__v0_a5dbfdb0f81cb0834307a8adb7c81a5e6_a5dbfdb0f81cb0834307a8adb7c81a5e6}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!gor@{gor}}
\index{gor@{gor}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{gor}{gor}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::gor = grav/rd}

\mbox{\Hypertarget{namespaceugwp__common__v0_a659e6ca279f372a6fe0fb49b8f0b667a_a659e6ca279f372a6fe0fb49b8f0b667a}\label{namespaceugwp__common__v0_a659e6ca279f372a6fe0fb49b8f0b667a_a659e6ca279f372a6fe0fb49b8f0b667a}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!gr2@{gr2}}
\index{gr2@{gr2}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{gr2}{gr2}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::gr2 = grav$\ast$\mbox{\hyperlink{namespaceugwp__common__v0_a5dbfdb0f81cb0834307a8adb7c81a5e6_a5dbfdb0f81cb0834307a8adb7c81a5e6}{gor}}}

\mbox{\Hypertarget{namespaceugwp__common__v0_af3c8eee694a56244c3f60ab56935a38c_af3c8eee694a56244c3f60ab56935a38c}\label{namespaceugwp__common__v0_af3c8eee694a56244c3f60ab56935a38c_af3c8eee694a56244c3f60ab56935a38c}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!gocp@{gocp}}
\index{gocp@{gocp}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{gocp}{gocp}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::gocp = grav/cpd}

\mbox{\Hypertarget{namespaceugwp__common__v0_ae367a8393063d1566542605e5af8a4db_ae367a8393063d1566542605e5af8a4db}\label{namespaceugwp__common__v0_ae367a8393063d1566542605e5af8a4db_ae367a8393063d1566542605e5af8a4db}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!rcpd@{rcpd}}
\index{rcpd@{rcpd}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{rcpd}{rcpd}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::rcpd = 1./cpd}

\mbox{\Hypertarget{namespaceugwp__common__v0_a3a5e0e83ff64e68b0a571339c62e4feb_a3a5e0e83ff64e68b0a571339c62e4feb}\label{namespaceugwp__common__v0_a3a5e0e83ff64e68b0a571339c62e4feb_a3a5e0e83ff64e68b0a571339c62e4feb}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!rcpd2@{rcpd2}}
\index{rcpd2@{rcpd2}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{rcpd2}{rcpd2}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::rcpd2 = 0.\+5$\ast$\mbox{\hyperlink{namespaceugwp__common__v0_ae367a8393063d1566542605e5af8a4db_ae367a8393063d1566542605e5af8a4db}{rcpd}}}

\mbox{\Hypertarget{namespaceugwp__common__v0_afce2ae2f1e115b9972b0632933700d5c_afce2ae2f1e115b9972b0632933700d5c}\label{namespaceugwp__common__v0_afce2ae2f1e115b9972b0632933700d5c_afce2ae2f1e115b9972b0632933700d5c}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!pi2@{pi2}}
\index{pi2@{pi2}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{pi2}{pi2}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::pi2 = pi + pi}

\mbox{\Hypertarget{namespaceugwp__common__v0_a72c36c7c5bcdd1f9bc87bce944886a4a_a72c36c7c5bcdd1f9bc87bce944886a4a}\label{namespaceugwp__common__v0_a72c36c7c5bcdd1f9bc87bce944886a4a_a72c36c7c5bcdd1f9bc87bce944886a4a}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!omega1@{omega1}}
\index{omega1@{omega1}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{omega1}{omega1}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::omega1 = \mbox{\hyperlink{namespaceugwp__common__v0_afce2ae2f1e115b9972b0632933700d5c_afce2ae2f1e115b9972b0632933700d5c}{pi2}}/86400.\+0}

\mbox{\Hypertarget{namespaceugwp__common__v0_a4f2c03324a2b01f30c54df81de2cd23f_a4f2c03324a2b01f30c54df81de2cd23f}\label{namespaceugwp__common__v0_a4f2c03324a2b01f30c54df81de2cd23f_a4f2c03324a2b01f30c54df81de2cd23f}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!omega2@{omega2}}
\index{omega2@{omega2}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{omega2}{omega2}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::omega2 = \mbox{\hyperlink{namespaceugwp__common__v0_a72c36c7c5bcdd1f9bc87bce944886a4a_a72c36c7c5bcdd1f9bc87bce944886a4a}{omega1}}+\mbox{\hyperlink{namespaceugwp__common__v0_a72c36c7c5bcdd1f9bc87bce944886a4a_a72c36c7c5bcdd1f9bc87bce944886a4a}{omega1}}}

\mbox{\Hypertarget{namespaceugwp__common__v0_a2bcfc1a86909dc177359dfad500889fd_a2bcfc1a86909dc177359dfad500889fd}\label{namespaceugwp__common__v0_a2bcfc1a86909dc177359dfad500889fd_a2bcfc1a86909dc177359dfad500889fd}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!rad\_to\_deg@{rad\_to\_deg}}
\index{rad\_to\_deg@{rad\_to\_deg}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{rad\_to\_deg}{rad\_to\_deg}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::rad\+\_\+to\+\_\+deg =180.\+0/pi}

\mbox{\Hypertarget{namespaceugwp__common__v0_acf4b19302aa1f5328032e931eb1c2b47_acf4b19302aa1f5328032e931eb1c2b47}\label{namespaceugwp__common__v0_acf4b19302aa1f5328032e931eb1c2b47_acf4b19302aa1f5328032e931eb1c2b47}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!deg\_to\_rad@{deg\_to\_rad}}
\index{deg\_to\_rad@{deg\_to\_rad}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{deg\_to\_rad}{deg\_to\_rad}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::deg\+\_\+to\+\_\+rad =pi/180.\+0}

\mbox{\Hypertarget{namespaceugwp__common__v0_add9f1822d70247218761a5b4fe2397d1_add9f1822d70247218761a5b4fe2397d1}\label{namespaceugwp__common__v0_add9f1822d70247218761a5b4fe2397d1_add9f1822d70247218761a5b4fe2397d1}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!dw2min@{dw2min}}
\index{dw2min@{dw2min}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{dw2min}{dw2min}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::dw2min =1.\+0}

\mbox{\Hypertarget{namespaceugwp__common__v0_ab8cfebbc19ac7e2c933f6188f58e6074_ab8cfebbc19ac7e2c933f6188f58e6074}\label{namespaceugwp__common__v0_ab8cfebbc19ac7e2c933f6188f58e6074_ab8cfebbc19ac7e2c933f6188f58e6074}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!bnv2min@{bnv2min}}
\index{bnv2min@{bnv2min}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{bnv2min}{bnv2min}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::bnv2min =1.e-\/6}

\mbox{\Hypertarget{namespaceugwp__common__v0_abfc8dedd47f3d4066e49857a60a8e25f_abfc8dedd47f3d4066e49857a60a8e25f}\label{namespaceugwp__common__v0_abfc8dedd47f3d4066e49857a60a8e25f_abfc8dedd47f3d4066e49857a60a8e25f}} 
\index{ugwp\_common\_v0@{ugwp\_common\_v0}!velmin@{velmin}}
\index{velmin@{velmin}!ugwp\_common\_v0@{ugwp\_common\_v0}}
\doxyparagraph{\texorpdfstring{velmin}{velmin}}
{\footnotesize\ttfamily real(kind=kind\+\_\+phys), parameter ugwp\+\_\+common\+\_\+v0\+::velmin =sqrt(\mbox{\hyperlink{namespaceugwp__common__v0_add9f1822d70247218761a5b4fe2397d1_add9f1822d70247218761a5b4fe2397d1}{dw2min}})}

