%表題 bsnsq_2d 力学ライブラリ (空間差分の計算)
%
%履歴 
\Drireki{95/08/14 竹広真一}
%
%
\section{サブルーチンの説明 : 空間差分の計算}
\label{dcdiff}

\subsection{DARJAC}
\label{darjac}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    ヤコビアン
    ${\displaystyle 
      J(\psi,G) = \DP{\psi}{x}\DP{G}{z} - \DP{\psi}{z}\DP{G}{x}}$
   の差分計算を, ARAKAWA のスキームで行う. 
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL ARAJAC
         O       ( AJAC ,
         I         PSI  , G   ,
         C         DX   , DZ   )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt AJAC(0:NX+1,0:NZ+1)} & {\tt [R]} 
                       & ARAKAWA のヤコビアン {\tt J(PSI,G)}\\
      {\tt PSI(0:NX+1,0:NZ+1)}  & {\tt [R]} & 流線関数\\
      {\tt G(0:NX+1,0:NZ+1)}    & {\tt [R]} & 物理量の2次元場\\
      {\tt DX}   & {\tt [R]}                & X 方向の格子点間隔\\
      {\tt DZ}   & {\tt [R]}                & Z 方向の格子点間隔
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item 内部で基本ルーチンの {\tt ARAJAC}(\ref{arajac}) 
          を呼んでいる. 
    \item {\tt AJAC(IX,IZ)} は 
          1 $\leq$ {\tt IX} $\leq$ {\tt NX}, 
          1 $\leq$ {\tt IZ} $\leq$ {\tt NZ} 
          の範囲に計算された値が代入される. 
  \end{enumerate}
\end{enumerate}

\subsection{DLAPLA}
\label{dlapla}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    内部領域のラプラシアン
     ${\displaystyle 
       \nabla^2 F =  \DP[2]{F}{x} + \DP[2]{F}{z} }$
    の差分計算を行う. 
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL DLAPLA
         O       ( ALAP,
         I         F   ,
         C         DX  , DZ   )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt ALAP(0:NX+1,0:NZ+1)} & {\tt [R]} & 物理量のラプラシアン\\
      {\tt F(0:NX+1,0:NZ+1)}    & {\tt [R]} & 物理量の2次元場\\
      {\tt DX}   & {\tt [R]}                & X 方向の格子点間隔\\
      {\tt DZ}   & {\tt [R]}                & Z 方向の格子点間隔
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item 内部で基本ルーチンの {\tt CLAPLA}(\ref{clapla}) を
          呼んでいる. 
    \item {\tt ALAP(IX,IZ)} は 
          1 $\leq$ {\tt IX} $\leq$ {\tt NX}, 
          1 $\leq$ {\tt IZ} $\leq$ {\tt NZ} 
          の範囲に計算された値が代入される. 
  \end{enumerate}
\end{enumerate}

%\newpage


%%% Local Variables: 
%%% mode: japanese-latex
%%% TeX-master: "/usr/export/home/takepiro/model/bsnsq_2d/doc/sub"
%%% End: