%表題 共通 座標定数
%
%履歴   93/09/15 保坂征宏
%
%
%


\section{サブルーチンの説明 : 座標の計算・設定}

座標の計算・座標軸名称の決定をして, 座標系を設定する. 
\verb!SETCOR! と \verb!STNCOR! の違いは
座標の計算・設定をするかどうかである. 

\subsection{SETCOR}
\label{setcor}
\begin{enumerate}
  \item 機能 
    \begin{quote}
       座標定数の計算並びに座標軸名称の決定を行ない, 
       座標系を設定する. 
    \end{quote}
  \item 呼び出し方法
    \begin{verbatim}
      SUBROUTINE SETCOR     !"  モデル座標定数の計算 
     O         ( ALON  , DLON  ,
     O           ALAT  , DLAT  ,
     O           SIG   , DSIG  ,
     O           SIGM  , DSIGM  )
    \end{verbatim}
  \item パラメタの説明
    \begin{verbatim}
      REAL       ALON  ( IDIM )              !" 経度
      REAL       DLON  ( IDIM )              !" 経度荷重
      REAL       ALAT  ( JDIM )              !" 緯度
      REAL       DLAT  ( JDIM )              !" 緯度荷重
      REAL       SIG   ( KMAX )              !" σレベル(整数)
      REAL       SIGM  (KMAX+1)              !" σレベル(半整数)
      REAL       DSIG  ( KMAX )              !" Δσ(整数)
      REAL       DSIGM (KMAX+1)              !" Δσ(半整数)
    \end{verbatim}

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

  \item プログラマーズメモ
    \begin{enumerate}
      \item 経度・経度座標軸名の決定は \verb!SETLON! で,  
            緯度・緯度座標軸名の決定は \verb!SETLAT! で,  
            鉛直・鉛直座標軸名の決定は \verb!SETSIG! で行なう. 
            モデル座標系全体の設定 ( 記憶 ) を
            \verb!HSDORD! で行なう. 
    \end{enumerate}
\end{enumerate}

\subsection{STNCOR}
\label{stncor}
\begin{enumerate}
  \item 機能 
    \begin{quote}
       座標軸名称の決定を行ない, 
       座標系を設定する. 
    \end{quote}
  \item 呼び出し方法
    \begin{verbatim}
      ENTRY      STNCOR      !"  モデル座標名の設定 
    \end{verbatim}
  \item パラメタの設定
    \begin{enumerate}
      \item なし. 
    \end{enumerate}
  \item 備考
    \begin{enumerate}
      \item 経度軸名称の決定は \verb!STNLON! で, 
            緯度軸名称の決定は \verb!STNLON! で, 
            鉛直座標軸名称の決定は \verb!STNSIG! で行ない, 
            \verb!HSCORN! で設定 ( 記憶 ) する. 
    \end{enumerate}

\end{enumerate}
