796 |
\begin{eqnarray} |
\begin{eqnarray} |
797 |
{\eta}^* = \epsilon_{fs} \: {\eta}^{n} - |
{\eta}^* = \epsilon_{fs} \: {\eta}^{n} - |
798 |
\Delta t {\bf \nabla}_h \cdot \int_{R_{fixed}}^{R_o} \vec{\bf v}^* dr |
\Delta t {\bf \nabla}_h \cdot \int_{R_{fixed}}^{R_o} \vec{\bf v}^* dr |
799 |
\: + \: \epsilon_{fw} \Delta_t (P-E)^{n} |
\: + \: \epsilon_{fw} \Delta t (P-E)^{n} |
800 |
\label{eq-solve2D_rhs} |
\label{eq-solve2D_rhs} |
801 |
\end{eqnarray} |
\end{eqnarray} |
802 |
|
|
803 |
\fbox{ \begin{minipage}{4.75in} |
\fbox{ \begin{minipage}{4.75in} |
804 |
{\em S/R SOLVE\_FOR\_PRESSURE} ({\em solve\_for\_pressure.F}) |
{\em S/R SOLVE\_FOR\_PRESSURE} ({\em solve\_for\_pressure.F}) |
805 |
|
|
806 |
$u^*$: {\bf GuNm1} ({\em DYNVARS.h}) |
$u^*$: {\bf gU} ({\em DYNVARS.h}) |
807 |
|
|
808 |
$v^*$: {\bf GvNm1} ({\em DYNVARS.h}) |
$v^*$: {\bf gV} ({\em DYNVARS.h}) |
809 |
|
|
810 |
$\eta^*$: {\bf cg2d\_b} (\em SOLVE\_FOR\_PRESSURE.h) |
$\eta^*$: {\bf cg2d\_b} (\em SOLVE\_FOR\_PRESSURE.h) |
811 |
|
|
857 |
|
|
858 |
$\eta^{n+1}$: {\bf etaN} (\em DYNVARS.h) |
$\eta^{n+1}$: {\bf etaN} (\em DYNVARS.h) |
859 |
|
|
860 |
$\phi_{nh}^{n+1}$: {\bf phi\_nh} (\em DYNVARS.h) |
$\phi_{nh}^{n+1}$: {\bf phi\_nh} (\em NH\_VARS.h) |
861 |
|
|
862 |
$u^*$: {\bf GuNm1} ({\em DYNVARS.h}) |
$u^*$: {\bf gU} ({\em DYNVARS.h}) |
863 |
|
|
864 |
$v^*$: {\bf GvNm1} ({\em DYNVARS.h}) |
$v^*$: {\bf gV} ({\em DYNVARS.h}) |
865 |
|
|
866 |
$u^{n+1}$: {\bf uVel} ({\em DYNVARS.h}) |
$u^{n+1}$: {\bf uVel} ({\em DYNVARS.h}) |
867 |
|
|