%表題   物理過程 長波放射
%
%履歴   93/09/01 保坂征宏
%

\section{サブルーチンの説明 : 長波放射}


\subsection{LNGFLX}
\label{lngflx}
\begin{enumerate}
  \item 機能 
    \begin{quote}
      温度分布, 大気質量分布を元に長波放射フラックスを計算する. 
      また, 鉛直拡散において地表および大気最下層での
      長波放射の補正を行なうが, そのための係数も計算する. 
    \end{quote}
  \item 呼び出し方法
      \begin{verbatim}
      SUBROUTINE LNGFLX           !" 長波放射フラックス
     O         ( RFLUX , DRFLUX,
     I           GDT   , GDTG  , TAUQ  , TAUA  ,
     W           TRNSM1, TRNSM2, TRANS , PIB   , PIBGND  )
      \end{verbatim}
  \item パラメータの説明
      \begin{verbatim}
*
*   [OUTPUT] 
      REAL       RFLUX  ( IDIM*JDIM, KMAX+1 )     !" 長波フラックス
      REAL       DRFLUX ( IDIM*JDIM, KMAX+1, 0:1 )!" 長波地表温度変化
*
*   [INPUT] 
      REAL       GDT    ( IDIM*JDIM, KMAX   ) !" 温度(整数)
      REAL       GDTG   ( IDIM*JDIM )         !" 地表面温度
      REAL       TAUQ   ( IDIM*JDIM, KMAX+1 ) !" 上層にある水蒸気量
      REAL       TAUA   ( IDIM*JDIM, KMAX+1 ) !" 上層にある大気量
*
*   [WORK]
      REAL       TRNSM1 ( IDIM*JDIM, KMAX+1 ) !" 1/2 レベルからの透過係数
      REAL       TRNSM2 ( IDIM*JDIM, KMAX+1 ) !" 3/2 レベルからの透過係数
      REAL       TRANS  ( IDIM*JDIM, KMAX+1 ) !" 透過係数
      REAL       PIB    ( IDIM*JDIM, KMAX   ) !" πＢ＝σＴ**4
      REAL       PIBGND ( IDIM*JDIM )         !" 地表のπＢ
*
*   [NAMELIST]
      NAMELIST  NMRADL
*
       \end{verbatim}
       
  \item 備考
     \begin{enumerate}
       \item 長波のバンド情報はネームリスト \verb!NMRADL! で与える. 
             バンド数は最大 10 まで. 
       \item 乾燥空気と水蒸気による吸収のみを考慮している. 
       \item \verb!TRNSM1,TRNSM2! は放射補正係数である. 
     \end{enumerate}

\end{enumerate}

