%表題   物理過程 Kuo
%
%履歴   93/10/12 保坂征宏
%
%
\section{サブルーチンの説明 : クオパラメタリゼーション}

\subsection{CUMADJ ( Kuo )}
\label{cumadj(Kuo)}
\begin{enumerate}
  \item 機能 
    \begin{quote}
       Kuo パラメタリゼーションによる積雲調節の計算. 
       水蒸気収束を凝結加熱と加湿に分配するパラメタは Anthes(1977) に
       従って決める.  
    \end{quote}

  \item 呼び出し方法
    \begin{verbatim}
      SUBROUTINE CUMADJ        !" Kuoパラメタリゼーション
     M         ( GDT   , GDQ   ,
     M           GQPR  , GQCNV , GSCNV ,
     I           GDP   , GDPM  , GDZ   , DELTA  )
    \end{verbatim}
    
  \item パラメタの説明
    \begin{verbatim}
*   [MODIFY] 
      REAL       GDT   ( IDIM*JDIM, KMAX )   !' 温度  Ｔ
      REAL       GDQ   ( IDIM*JDIM, KMAX )   !' 比湿  ｑ
      REAL       GQPR  ( IDIM*JDIM       )   !' 降水量
      REAL       GQCNV ( IDIM*JDIM, KMAX )   !' 凝結調節加熱率
      REAL       GSCNV ( IDIM*JDIM, KMAX )   !' 凝結調節比湿変化
*
*   [INPUT] 
      REAL       GDP   ( IDIM*JDIM, KMAX )   !' 気圧  Ｐ
      REAL       GDPM  ( IDIM*JDIM, KMAX+1 ) !' 気圧（半整数）
      REAL       GDZ   ( IDIM*JDIM, KMAX )   !' 高度
      REAL       DELTA                       !' 2Δt
*
*ネームリスト
      NAMELIST   NMKUOC
    \end{verbatim}

  \item 備考
    \begin{enumerate}
      \item ネームリスト \verb!NMKUOC! では 
            b パラメタ湿度上限下限を与える. 
            デフォルトは \verb!QR0=0.8,QR1=0.9!. 
      \item ワーク領域 \verb!COMWRK! は \verb!6*IDIM*JDIM*KMAX!
            + \verb!8*IDIM*JDIM! 使用する. 
      \item b パラメタは Anthes の方法で決めるが, 
            $n=1$ を用いている. 
    \end{enumerate}

\end{enumerate}

