% ɽ��   Nakajima et al.,1992 test program  �����ɲ��� -- �ؿ�
%
% ����
%\Drireki{2012/11/07 ���� ����}
%\Drireki{2012/11/07 ���� ����}
%
\section{�ؿ�}
\label{ss:�ѿ�̿̾ˡ}

��ǥ���δؿ��ˤĤ��ƽҤ٤롣

\subsection{func\_MoistAd()}

������Ǯ��Ψ�δؿ�

\begin{eqnarray}
\left(\frac{\partial T}{\partial p}\right)_{moist \ pesudoadiabat} = 
\frac{\frac{RT}{pc_{pn}} + \frac{x_{v}}{x_{n}} \frac{l}{pc_{pn}}}{x_{n} + x_{v} \frac{c_{pv}}{c_{pn}} + \frac{x_{v}}{x_{n}}\frac{l^2}{RT^{2}c_{pn}}}
\end{eqnarray} 

%
%\vspace{-2ex}
\begin{verbatim}
func_MoistAd( GasRUniv, LatentHeat, CpDry, CpWet, pv0, z_Press, z_Temp )
\end{verbatim} \vspace{-2ex}
%

%\vspace{-3ex}
\begin{itemize}
\item ����

  \begin{itemize}
   \item {\tt GasRUniv \ \ \ \ }: �������
   \item {\tt LatentHeat \ \ }: ��Ǯ
   \item {\tt CpDry \ \ \ \ \ \ \ }: �갵�����Ǯ(��ŷ�������)
   \item {\tt CpWet \ \ \ \ \ \ \ }: �갵�����Ǯ(�ŷ�������)
   \item {\tt pv0 \ \ \ \ \ \ \ \ \ }: ˰�¾����������η���
   \item {\tt z\_Press \ \ \ \ \ }: ����
   \item {\tt z\_Temp \ \ \ \ \ \ }: ����
  \end{itemize}

\vspace{-0ex}
\end{itemize}

\subsection{func\_OptDep()}

����Ū�����δؿ�

\begin{eqnarray}
\frac{d \tau}{dp} = \frac{k_{v} x_{v} m_{v} + k_{n} x_{n} m_{n}}{\bar{m}g}
\end{eqnarray}

%
%\vspace{-2ex}
\begin{verbatim}
func_OptDep( GasRUniv, LatentHeat, Grav, MolWtDry, 
MolWtWet, AbsCoefDryCom, AbsCoefWetCom, pv0, z_Press, z_Temp )
\end{verbatim} \vspace{-2ex}
%

%\vspace{-3ex}
\begin{itemize}
\item ����

  \begin{itemize}
   \item {\tt GasRUniv \ \ \ \ }: �������
   \item {\tt LatentHeat \ \ }: ��Ǯ
   \item {\tt Grav \ \ \ \ \ \ }: ���ϲ�®��
   \item {\tt MolWtDry \ \ }: ʬ�Ҽ���(��ŷ�������)
   \item {\tt MolWtWet \ \ }: ʬ�Ҽ���(�ŷ�������)
   \item {\tt AbsCoefWetCom \ }: �ۼ�����(��ŷ�������)
   \item {\tt AbsCoefDryCom \ }: �ۼ�����(�ŷ�������)
   \item {\tt pv0 \ \ \ \ \ \ \ \ \ }: ˰�¾����������η���
   \item {\tt z\_Press \ \ \ \ \ }: ����
   \item {\tt z\_Temp \ \ \ \ \ \ }: ����
  \end{itemize}

\vspace{-0ex}
\end{itemize}

\subsection{func\_Flux()}

Flux��׻����뤿��δؿ�

\begin{eqnarray}
A = \frac{3}{2} \pi B(\tau') \exp(-\frac{3}{2}(\tau' - \tau))
\end{eqnarray}

%
%\vspace{-2ex}
\begin{verbatim}
func_Flux( paiBkk, taukk, tauk )
\end{verbatim} \vspace{-2ex}
%

%\vspace{-3ex}
\begin{itemize}
\item ����

  \begin{itemize}
   \item {\tt paiBkk \ \ \ \ }: ���͵��� (= $\sigma$T$^{4}$)
   \item {\tt taukk, tauk \ }: ����Ū����
  \end{itemize}

\vspace{-0ex}
\end{itemize}