%表題   共通 時間フィルター. 
%
%履歴   93/09/14 保坂征宏
%

\section{サブルーチンの説明 : 時間フィルター}

\subsection{TFILT}
\label{tfilt}
\begin{enumerate}
  \item 機能 
    \begin{quote}
       時間フィルターをする. 
       時刻 $t- 2 \times \triangle t$ でのデータ \verb!GBB*! と
       $t$ でのデータ \verb!GA*! とを 
       $t-\triangle t$ でのデータ \verb!GB*! にそれぞれ 
       \verb!TFIL! だけ混ぜる. 
    \end{quote}
    
  \item 呼び出し方法
    \begin{verbatim}
      SUBROUTINE TFILT      !"  タイムフィルター 
     M         ( GBU   , GBV   , GBT   , GBPS  , GBQ   ,
     M           GBVOR , GBDIV ,
     I           GAU   , GAV   , GAT   , GAPS  , GAQ   ,
     I           GAVOR , GADIV ,
     C           TFIL                                   )
    \end{verbatim}
    
  \item パラメータの説明
  
    \begin{verbatim}
*
*    [MODIFY]
      REAL       GBU   ( IDIM*JDIM*KMAX )    !" 西風  ｕ(t-Δt)
      REAL       GBV   ( IDIM*JDIM*KMAX )    !" 南風  ｖ(t-Δt)
      REAL       GBT   ( IDIM*JDIM*KMAX )    !" 温度  Ｔ(t-Δt)
      REAL       GBPS  ( IDIM*JDIM      )    !" 地表気圧(t-Δt)
      REAL       GBQ   ( IDIM*JDIM*KMAX )    !" 比湿  ｑ(t-Δt)
      REAL       GBVOR ( IDIM*JDIM*KMAX )    !" 渦度  ζ(t-Δt)
      REAL       GBDIV ( IDIM*JDIM*KMAX )    !" 発散  Ｄ(t-Δt)
*
*    [INPUT]
      REAL       GAU   ( IDIM*JDIM*KMAX )    !" 西風  ｕ(t)
      REAL       GAV   ( IDIM*JDIM*KMAX )    !" 南風  ｖ(t)
      REAL       GAT   ( IDIM*JDIM*KMAX )    !" 温度  Ｔ(t)
      REAL       GAPS  ( IDIM*JDIM      )    !" 地表気圧(t)
      REAL       GAQ   ( IDIM*JDIM*KMAX )    !" 比湿  ｑ(t)
      REAL       GAVOR ( IDIM*JDIM*KMAX )    !" 渦度  ζ(t)
      REAL       GADIV ( IDIM*JDIM*KMAX )    !" 発散  Ｄ(t)
      REAL       TFIL                        !" 時間フィルター係数
    \end{verbatim}

  \item 備考
  
    \begin{enumerate}
       \item \verb!COMWRK! を \verb!6*IDIM*JDIM*KMAX + IDIM*KMAX! 
             使用している. 
    \end{enumerate}

\end{enumerate}
