%表題 bsnsq_2d 力学ライブラリ (境界条件, 流線関数の計算)
%
%履歴 
\Drireki{95/03/13 竹広真一}
%
%
\section{サブルーチンの説明 : 
         境界条件と流線関数の計算}
\label{bndr}

\subsection{DBNSET}
\label{dbnset}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    境界条件を設定する. 
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL DBNDR
         I       ( PSI  , 
         I         ZETA , T   ,
         I         DX   , DZ   )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt PSI(0:NX+1,0:NZ+1)}  & {\tt [R]} & 流線関数\\
      {\tt ZETA(0:NX+1,0:NZ+1)} & {\tt [R]} & 渦度\\
      {\tt T(0:NX+1,0:NZ+1)}    & {\tt [R]} & 温度\\
      {\tt DX}              & {\tt [R]} & X 方向の格子点間隔\\
      {\tt DZ}              & {\tt [R]} & Z 方向の格子点間隔
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item NAMELIST 変数により境界条件を設定, 記憶する. 
      \begin{verbatim}
          LOGICAL    RIGIDB    !" 下端力学境界条件スイッチ(ダミー)
          LOGICAL    RIGIDT    !" 上端力学境界条件スイッチ(ダミー)

          LOGICAL    TFIXB     !" 下端熱境界条件スイッチ
          LOGICAL    TFIXT     !" 上端熱境界条件スイッチ
          REAL       TFBTM     !" 下端境界の温度/温度傾度
          REAL       TFTOP     !" 上端境界の温度/温度傾度

          NAMELIST / NMBNDR / 
         &           RIGIDB, RIGIDT, TFIXB, TFIXT, 
         &           TFBTM , TFTOP
      \end{verbatim}
    \item 流線関数の境界値を
          入力変数 {\tt PSI} から読みとり記憶する. 
    \item NAMELIST 変数 {\tt TFBTM}, {\tt TFTOP} が
          設定された場合には, 
          境界条件スイッチに応じて温度場の境界値あるいは
          温度傾度の境界値としてそれらの値を記憶する. 
          NAMELIST 変数 {\tt TFBTM}, {\tt TFTOP} が
          設定されない場合には, 
          NAMELIST 変数により設定した境界条件にしたがって
          入力変数から読みとり記憶する. 
    \item 水平方向に非一様な熱境界条件を設定するには
          入力変数による設定しかできない. 
    \item 力学的境界条件は応力無し条件にしか対応していない. 
          流線関数 $\psi$ に関する境界条件は 
          鉛直方向(Z)に {\tt PSI} 一定である. 
    \item 水平方向(X)は周期的境界条件にしか対応していない. 
  \end{enumerate}
\end{enumerate}

\subsection{DBNDR}
\label{dbndr}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    温度場, 渦度場に境界条件を適用し, 流線関数を計算する. 
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL DBNDR
         O       ( PSI  , 
         M         ZETA , T   ,
         I         DX   , DZ   )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt PSI(0:NX+1,0:NZ+1)}  & {\tt [R]} & 流線関数\\
      {\tt ZETA(0:NX+1,0:NZ+1)} & {\tt [R]} & 渦度\\
      {\tt T(0:NX+1,0:NZ+1)}    & {\tt [R]} & 温度\\
      {\tt DX}              & {\tt [R]} & X 方向の格子点間隔\\
      {\tt DZ}              & {\tt [R]} & Z 方向の格子点間隔
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item このサブルーチンを使うには, 
          前もって{\tt DBNSET}(\ref{dbnset}) を呼んで
          境界条件を設定しておかねばならない.
  \end{enumerate}
\end{enumerate}

\subsection{DBNDRZ}
\label{dbndrz}
\begin{enumerate}
  \item 機能 
  \begin{quote}
      運動学/力学境界条件の適用と流線関数の計算を行う. 
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL DBNDRZ
         O   ( PSI  , 
         M     ZETA , 
         I     DX   , DZ  )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt PSI(0:NX+1,0:NZ+1)}  & {\tt [R]} & 流線関数\\
      {\tt ZETA(0:NX+1,0:NZ+1)} & {\tt [R]} & 渦度\\
      {\tt DX}              & {\tt [R]} & X 方向の格子点間隔\\
      {\tt DZ}              & {\tt [R]} & Z 方向の格子点間隔
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item このサブルーチンを使うには, 
          前もって{\tt DBNSET}(\ref{dbnset}) を呼んで
          境界条件を設定しておかねばならない.
  \end{enumerate}
\end{enumerate}

\subsection{DBNDRT}
\label{dbndrt}
\begin{enumerate}
  \item 機能 
  \begin{quote}
      熱的境界条件を適用する. 
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL DBNDRT
         M       ( T    ,
         I         DX   , DZ  )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt T(0:NX+1,0:NZ+1)} & {\tt [R]} & 温度\\
      {\tt DX}              & {\tt [R]} & X 方向の格子点間隔\\
      {\tt DZ}              & {\tt [R]} & Z 方向の格子点間隔
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item このサブルーチンを使うには, 
          前もって{\tt DBNSET}(\ref{dbnset}) を呼んで
          境界条件を設定しておかねばならない.
  \end{enumerate}
\end{enumerate}


\subsection{その他のサブルーチン}

その他下位のサブルーチンとして {\tt BZETA},{\tt BPSI}, {\tt BTEMP} がある. 

%\newpage


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