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

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


\subsection{SHTFLX}
\label{shtflx}
\begin{enumerate}
  \item 機能 
    \begin{quote}
      大気上端での太陽入射をもとに短波放射フラックスを計算する.
    \end{quote}

  \item 呼び出し方法
    \begin{verbatim}
      SUBROUTINE SHTFLX       !" 短波放射フラックス
     M         ( SFLUX ,
     I           TAUQ  , TAUA  , SECZET,
     C           GRALB                  )
    \end{verbatim}
    
  \item パラメータの説明
    \begin{verbatim}
*
*   [MODIFY] 
      REAL       SFLUX  ( IDIM*JDIM, KMAX+1 ) !" 短波フラックス
*
*   [INPUT] 
      REAL       TAUQ   ( IDIM*JDIM, KMAX+1 ) !" 光学的厚さ：水
      REAL       TAUA   ( IDIM*JDIM, KMAX+1 ) !" 光学的厚さ：大気
      REAL       SECZET ( IDIM*JDIM )         !" sec(入射角)
      REAL       GRALB  ( IDIM*JDIM )         !" 地表アルベド
*
*   [NAMELIST]
      NAMELIST   NMRADS
    \end{verbatim}
 
  \item 備考
     \begin{enumerate}
       \item 短波のバンド情報はネームリスト \verb!NMRADS! で与える. 
             バンド数は最大 10 まで. 
       \item 乾燥空気と水蒸気による吸収, 地表反射のみを考慮している. 
     \end{enumerate}

\end{enumerate}


