%表題   物理過程 放射フラックスの計算
%
%履歴   93/09/01 保坂征宏
%

\section{サブルーチンの説明 : 放射フラックス}


\subsection{RADFLX}
\label{radflx}
\begin{enumerate}
  \item 機能 
    \begin{quote}
       長波フラックス, 短波フラックスを計算する. 
       さらに, 陰解法で用いる行列要素, 放射補正係数も計算する. 
    \end{quote}
  \item 呼び出し方法
      \begin{verbatim}

      SUBROUTINE RADFLX            !" 放射フラックス
     O         ( RFLUX , RMTXS , DRFLUX,
     O           SFLUX ,
     I           GDT   , GDTG  , GDQ   , GDPM  ,
     I           IT    , IDATE ,
     C           ALON  , ALAT  , GRALB          )
     
      \end{verbatim}
      
  \item パラメータの説明
  
      \begin{verbatim}
*
*   [OUTPUT] 
      REAL       RFLUX  ( IDIM*JDIM, KMAX+1 )     !" 長波フラックス
      REAL       RMTXS  ( IDIM*JDIM,  -1:1 )      !" Ｔ陰解行列：地表
      REAL       DRFLUX ( IDIM*JDIM, KMAX+1, 0:1 )!" 長波地表温度変化
      REAL       SFLUX  ( IDIM*JDIM, KMAX+1 )     !" 日射フラックス
*
*   [INPUT] 
      REAL       GDT    ( IDIM*JDIM, KMAX   ) !" 温度(整数)
      REAL       GDTG   ( IDIM*JDIM )         !" 地表面温度
      REAL       GDQ    ( IDIM*JDIM, KMAX )   !" 比湿  ｑ
      REAL       GDPM   ( IDIM*JDIM, KMAX+1 ) !" 気圧(半整数)
      INTEGER    IT                           !" 時刻
      INTEGER    IDATE  ( 6 )                 !" 日付
*
      REAL       ALON   ( IDIM )              !" 経度
      REAL       ALAT   ( JDIM )              !" 緯度
      REAL       GRALB  ( IDIM*JDIM )         !" 地表アルベド
*
*   [NAMELIST]
      NAMELIST   NMRADM
      
      \end{verbatim}
      
  \item 備考
     \begin{enumerate}
       \item 長波・短波は毎ステップでなく
             一定時間間隔に行なうことが出来る. 
             この情報はネームリスト \verb!NMRADM! で与える. 
       \item \verb!RMTXS! は陰解行列要素, 
             \verb!DRFLUX! は長波補正係数である. 
       \item 長波放射フラックスの計算は \verb!LNGFLX! でなされる.  
             短波の計算は, 太陽入射の計算は \verb!SHTINS! で
             フラックスの計算は \verb!SHTFLX! でなされる. 
     \end{enumerate}

\end{enumerate}

      
