%ɽ��   ʪ������ ����������
%
%����   93/09/01 �ݺ�����
%

\section{���֥롼��������� : ����ˡ���Ѥ��������Ѳ�Ψ�η׻�}

\subsection{PHYTND}
\label{phytnd}
\begin{enumerate}
  \item ��ǽ 
    \begin{quote}
      ����ˡ���Ѥ���, �絤�Ȼ�����ɽ�ե�å����ˤ��
      ��ư�̡�Ǯ��������λ����Ѳ�Ψ��׻�����. 
    \end{quote}

  \item �ƤӽФ���ˡ
    \begin{verbatim}
      SUBROUTINE PHYTND   !" �����Ѳ�Ψ�η׻� (implicit)
     O         ( GTU   , GTV   , GTT   , GTTG  , GTQ   ,
     I           UFLUX , VFLUX ,
     I           TFLUX , SFLUX , RFLUX , GFLUX , QFLUX ,
     I           UMTX  , TMTX  , QMTX  ,
     I           UMTXS , TMTXS , QMTXS ,
     I           RMTXS , DELT  , IDSFC                  )
    \end{verbatim}
    
  \item �ѥ�᡼��������
    
    \begin{verbatim}
*
*   [OUTPUT] 
      REAL       GTU   ( IDIM*JDIM, KMAX )   !" ������ư���Ѳ���գ�
      REAL       GTV   ( IDIM*JDIM, KMAX )   !" ���̱�ư���Ѳ���֣�
      REAL       GTT   ( IDIM*JDIM, KMAX )   !" ���ٻ����Ѳ���  ��
      REAL       GTTG  ( IDIM*JDIM )         !" ��ɽ�����Ѳ�Ψ
      REAL       GTQ   ( IDIM*JDIM, KMAX )   !" �漾�����Ѳ���  ��
*
*   [INPUT] 
      REAL       UFLUX ( IDIM*JDIM, KMAX+1 ) !" �դΥե�å���
      REAL       VFLUX ( IDIM*JDIM, KMAX+1 ) !" �֤Υե�å���
      REAL       TFLUX ( IDIM*JDIM, KMAX+1 ) !" �ԤΥե�å���
      REAL       SFLUX ( IDIM*JDIM  )        !" ��ɽû�ȥե�å���
      REAL       RFLUX ( IDIM*JDIM  )        !" ��ɽĹ�ȥե�å���
      REAL       GFLUX ( IDIM*JDIM  )        !" ����ե�å���
      REAL       QFLUX ( IDIM*JDIM, KMAX+1 ) !" ��Υե�å���
*
      REAL       UMTX  ( IDIM*JDIM,   KMAX, -1:1 ) !" ���������
      REAL       TMTX  ( IDIM*JDIM, 0:KMAX, -1:1 ) !" �Ա������
      REAL       QMTX  ( IDIM*JDIM,   KMAX, -1:1 ) !" �񱢲����
      REAL       UMTXS ( IDIM*JDIM            ) !" �����������ɽ
      REAL       TMTXS ( IDIM*JDIM, 0:1, -1:1 ) !" �Ա��������ɽ
      REAL       QMTXS ( IDIM*JDIM, 0:1, -1:1 ) !" �񱢲������ɽ
      REAL       RMTXS ( IDIM*JDIM,      -1:1 ) !" �Ա����������
*
      REAL       DELT                        !" ���ֹ�ߦ�t
*
      INTEGER    IDSFC ( IDIM*JDIM )         !" ��ɽ����
    \end{verbatim}

  \item ����
    \begin{enumerate}
      \item ��ư�̳Ȼ��ϸ��̤�, 
            Ǯ�Ȼ���������Ȼ�����ɽ�̤Ǥ�Ǯ���٤�ռ�����
            Ʊ���˲򤤤Ƥ���. 
            Ǯ�Ȼ��ȿ�����Ȼ��Ǥ������ͤ��㤤������Τ�, 
            ����׻����礭�ʸ�����ȼ����ͤʤ�. 
            ������, ����׻�����ǹ������ǡ��٥��ȥ��
            \verb!EL/CP! �Ȥ����ե��������򤫤��뤳�Ȥˤ�ä�
            ����������򤱤Ƥ���.  
      \item ����ΰ� \verb!COMWRK! ��
            \verb!IDIM*JDIM*(2KMAX+1)*3! �ȤäƤ���. 
    \end{enumerate}
   
\end{enumerate}


\subsection{FLXCOR}
\label{flxcor}
\begin{enumerate}
  \item ��ǽ 
    \begin{quote}
       ��ư�̡�Ǯ��������γȻ�����ɽ�ե�å������������֤�
       �����ͤ�ä���. 
    \end{quote}

  \item �ƤӽФ���ˡ

    \begin{verbatim}
      SUBROUTINE FLXCOR        !" �ե�å���������
     M         ( UFLUX , VFLUX , TFLUX , QFLUX ,
     I           GTU   , GTV   , GTT   , GTTG  , GTQ   ,
     I           UMTX  , TMTX  , QMTX  ,
     I           UMTXS , TMTXS , QMTXS ,
     I           DELT                                     )
    \end{verbatim}
    
  \item �ѥ�᡼��������
  
    \begin{verbatim}
*
*   [MODIFY] 
      REAL       UFLUX ( IDIM*JDIM, KMAX+1 ) !" �դΥե�å���
      REAL       VFLUX ( IDIM*JDIM, KMAX+1 ) !" �֤Υե�å���
      REAL       TFLUX ( IDIM*JDIM, KMAX+1 ) !" �ԤΥե�å���
      REAL       QFLUX ( IDIM*JDIM, KMAX+1 ) !" ��Υե�å���
*
*   [INPUT] 
      REAL       GTU   ( IDIM*JDIM, KMAX )   !" ������ư���Ѳ���գ�
      REAL       GTV   ( IDIM*JDIM, KMAX )   !" ���̱�ư���Ѳ���֣�
      REAL       GTT   ( IDIM*JDIM, KMAX )   !" ���ٻ����Ѳ���  ��
      REAL       GTTG  ( IDIM*JDIM )         !" ��ɽ�����Ѳ�Ψ
      REAL       GTQ   ( IDIM*JDIM, KMAX )   !" �漾�����Ѳ���  ��
*
      REAL       UMTX  ( IDIM*JDIM,   KMAX, -1:1 ) !" ���������
      REAL       TMTX  ( IDIM*JDIM, 0:KMAX, -1:1 ) !" �Ա������
      REAL       QMTX  ( IDIM*JDIM,   KMAX, -1:1 ) !" �񱢲����
      REAL       UMTXS ( IDIM*JDIM            ) !" �����������ɽ
      REAL       TMTXS ( IDIM*JDIM, 0:1, -1:1 ) !" �Ա��������ɽ
      REAL       QMTXS ( IDIM*JDIM, 0:1, -1:1 ) !" �񱢲������ɽ
      REAL       DELT                           !" ���ֹ�ߦ�t
   \end{verbatim}

  \item ����
    \begin{enumerate}
      \item �ʤ�. 
    \end{enumerate}

\end{enumerate}
