%表題   共通 ( t - Δt) での値のセーブ
%
%履歴   93/09/15 保坂征宏
%
%

\section{サブルーチンの説明 : (t-Δt) での値のセーブ・ロード}

ある時刻でのデータをセーブしておいて後にロードするためのサブルーチン. 
\verb!SAVEGB! でセーブし, \verb!LOADGB! でロードする. 
\verb!LOADQB! で比湿だけをロードすることもできる. 

\subsection{SAVEGB}
\label{savegb}
\begin{enumerate}
  \item 機能 
    \begin{quote}
       時刻 $(t-\triangle t)$ でのデータをセーブする. 
    \end{quote}
  \item 呼び出し方法
    \begin{verbatim}
      SUBROUTINE SAVEGB      !" (t-Δt)のデータをセーブ
     I         ( GBU   , GBV   , GBT   , GBPS  , GBQ   ,
     I           GBVOR , GBDIV                           )
    \end{verbatim}
  \item パラメタの説明
    \begin{verbatim}
*    入力
      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)
    \end{verbatim}

  \item 備考
    \begin{enumerate}
      \item なし. 
    \end{enumerate}

\end{enumerate}

\subsection{LOADGB}
\label{loadgb}
\begin{enumerate}
  \item 機能 
    \begin{quote}
       時刻 $(t-\triangle t)$ でのデータをロードする. 
    \end{quote}
  \item 呼び出し方法
    \begin{verbatim}
      ENTRY      LOADGB       !"  (t-Δt)のデータをロード 
     O         ( GBU   , GBV   , GBT   , GBPS  , GBQ   ,
     O           GBVOR , GBDIV                           )
    \end{verbatim}
  \item パラメタの説明
    \begin{verbatim}
*    出力
      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)
    \end{verbatim}

  \item 備考
    \begin{enumerate}
      \item なし. 
    \end{enumerate}

\end{enumerate}

\subsection{LOADGQ}
\label{loadgq}
\begin{enumerate}
  \item 機能 
    \begin{quote}
       時刻 $(t-\triangle t)$ での比湿をロードする. 
    \end{quote}
  \item 呼び出し方法
    \begin{verbatim}
      ENTRY      LOADGQ     !"  (t-Δt)の比湿をロード 
     O         ( GBQ    )
    \end{verbatim}

  \item パラメタの説明

    \begin{verbatim}
      REAL       GBQ   ( IDIM*JDIM*KMAX )    !" 比湿  ｑ(t-Δt)
    \end{verbatim}

  \item 備考
    \begin{enumerate}
      \item なし. 
    \end{enumerate}

\end{enumerate}

