%表題 bsnsq_2d 力学ライブラリ (メインパート)
%
%履歴 
\Drireki{95/08/14 竹広真一}
%
%
\section{サブルーチンの説明 : 力学制御}
\label{dadmn}

\subsection{DYNMCS}
\label{dynmcs}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    力学計算を実行する. 
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL DYNMCS
         M        (  PSI2  , ZETA2 , T2  , 
         M           PSI1  , ZETA1 , T1  , 
         I           HINTG , 
         C           DX    , DZ    , DT  )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt PSI2(0:NX+1,0:NZ+1)}  & {\tt [R]} 
          & 流線関数 ($t \rightarrow  t+\Delta t $)\\
      {\tt ZETA2(0:NX+1,0:NZ+1)} & {\tt [R]} 
          & 渦度($t \rightarrow  t+\Delta t $)\\
      {\tt T2(0:NX+1,0:NZ+1)}    & {\tt [R]} 
          & 温度($t \rightarrow  t+\Delta t $)\\
      {\tt PSI1(0:NX+1,0:NZ+1)}  & {\tt [R]} 
          & 流線関数 ($t-\Delta t\rightarrow t$)\\
      {\tt ZETA1(0:NX+1,0:NZ+1}) & {\tt [R]} 
          & 渦度($t-\Delta t\rightarrow t$)\\
      {\tt T1(0:NX+1,0:NZ+1)}    & {\tt [R]} 
          & 温度($t-\Delta t\rightarrow t$)\\
      {\tt HINTG*(NCC)}          & {\tt [C]} & 時間積分スイッチ\\
      {\tt DX}                   & {\tt [R]} & X 軸上の格子点間隔\\
      {\tt DZ}                   & {\tt [R]} & Z 軸上の格子点間隔\\
      {\tt DT}                   & {\tt [R]} & 時間間隔
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item {\tt HINTG} は, 第 1 文字目で時間積分スキームが選択される. 
      E:Euler Scheme, H:Heun Scheme, 
      L:Leap Frog Scheme, R:Runge Kutta Scheme.
  \end{enumerate}
\end{enumerate}

\subsection{DPARM}
\label{dparm}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    力学パラメターを設定する. 
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL  DPARM
         O         ( RAYL  ,  PRND  , QINT )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt RAYL}   & {\tt [R]} & レイリー数\\
      {\tt PRND}   & {\tt [R]} & プランドル数\\
      {\tt QINT}   & {\tt [R]} & 内部加熱率\\
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item 最初に呼ばれたとき NAMELIST から設定値を読みこみ, 
          記憶する. 
    \item 内部で読む NAMELIST とデフォルト値は次のとおり. 
      \begin{verbatim}
          NAMELIST  /NMDYN/ RAYLI, PRNDL, QINTR
          DATA  RAYLI ,  PRNDL , QINTR 
         &     /  0.0 ,   1.0 ,   0.0 /
      \end{verbatim}
      また, それぞれの変数の意味は  
      {\tt RAYLI} : レイリー数,  
      {\tt PRNDL} : プランドル数,
      {\tt QINTR} : 内部加熱率, である.  
  \end{enumerate}
\end{enumerate}

%\newpage