% 表題  鉛直拡散 p2vdfm.F
%
% 履歴  93/06/10 保坂征宏


\section{サブルーチンの説明 : 鉛直拡散}

\subsection{VDFUVT}
\label{vdfuvt}
\begin{enumerate}
  \item 機能 
    \begin{quote}
      大気中の運動量・熱・水蒸気鉛直拡散フラックスを計算する. 
      陰解法で用いる行列要素も計算する. 
    \end{quote}
  \item 呼び出し方法
    \begin{verbatim}
      SUBROUTINE VDFUVT
     O         ( UFLUX , VFLUX , TFLUX , QFLUX ,
     M           UMTX  , TMTX  , QMTX  ,
     I           GDU   , GDV   , GDT   , GDTM  , GDQ   ,
     I           GDP   , GDPM  , GDZ   , GDZM           )
    \end{verbatim}

  \item パラメータの説明
    \begin{verbatim}
*
*   [OUTPUT] 
      REAL       UFLUX ( IDIM*JDIM, KMAX+1 ) !" Ｕのフラックス
      REAL       VFLUX ( IDIM*JDIM, KMAX+1 ) !" Ｖのフラックス
      REAL       TFLUX ( IDIM*JDIM, KMAX+1 ) !" Ｔのフラックス
      REAL       QFLUX ( IDIM*JDIM, KMAX+1 ) !" ｑのフラックス
*
*   [MODIFY] 
      REAL       UMTX  ( IDIM*JDIM ,   KMAX, -1:1 ) !" Ｕの陰解行列
      REAL       TMTX  ( IDIM*JDIM , 0:KMAX, -1:1 ) !" Ｔの陰解行列
      REAL       QMTX  ( IDIM*JDIM ,   KMAX, -1:1 ) !" ｑの陰解行列
*
*   [INPUT] 
      REAL       GDU   ( IDIM*JDIM, KMAX )   !" 西風  Ｕ
      REAL       GDV   ( IDIM*JDIM, KMAX )   !" 南風  Ｖ
      REAL       GDT   ( IDIM*JDIM, KMAX )   !" 温度  Ｔ
      REAL       GDTM  ( IDIM*JDIM, KMAX+1 ) !" 温度（半整数）
      REAL       GDQ   ( IDIM*JDIM, KMAX )   !" 比湿  ｑ
      REAL       GDP   ( IDIM*JDIM, KMAX )   !" 気圧  Ｐ
      REAL       GDPM  ( IDIM*JDIM, KMAX )   !" 気圧（半整数）
      REAL       GDZ   ( IDIM*JDIM, KMAX )   !" 高度
      REAL       GDZM  ( IDIM*JDIM, KMAX )   !" 高度（半整数）
*
*   [NAMELIST]
      NAMELIST   NMVDFM
    \end{verbatim}
 
\item 備考

\begin{enumerate}
  \item 拡散係数ルーチンは Yamada-Mellor を使うことを
        半ば前提にしている. 
        Yamada-Mellor を使わない場合は, 
        バルクリチャードソン数並びに速度の鉛直微分の計算を
        する必要がない. 
  \item 拡散係数は
        拡散係数計算ルーチン \verb!VDFCOF! で計算された後に
        浅い積雲 \verb!SHLCOF! で変更される. 
  \item 拡散係数 \verb!DFM, DFH, DFE! をヒストリー登録, 
        出力している. 
  \item ネームリスト \verb!NMVDFM! では
        基本温位, 風２乗最小値, バルクリチャードソン数最小値を与える. 
  \item ワーク領域 \verb!COMWRK! を
        \verb!8*IDIM*JDIM*KMAX + 3*IDIM*JDIM*(KMAX+1)! 使用している. 
\end{enumerate}

\end{enumerate}

