% ɽ��  �����ѱ���ή p2shlt.F
%
% ����  93/06/10 �ݺ�����

\section{���֥롼��������� : �����ѱ���ή}

\subsection{SHLCOF}
\label{shlcof}
\begin{itemize}
  \item ��ǽ 
    \begin{quote}
      �ѱ���¸�ߤ���ľ�Ȼ�������Ϳ����ƶ���ɾ������. 
      ����Ū�ˤ��ѱ���������ˤ����Ʊ�ľ�Ȼ����������ä�����. 
    \end{quote}

  \item �ƤӽФ���ˡ
       \begin{verbatim}
      SUBROUTINE SHLCOF
     M         ( DFM   , DFH   , DFE   ,
     I           GDT   , GDQ   , GDP   , GDZ  , 
     W           GDTC  , GDQC  , ADIAF ,
     W           KBTM  , KTOP            ) 
       \end{verbatim}

  \item �ѥ�᡼��������
      \begin{verbatim}
*   [MODIFY] 
      REAL       DFM   ( IDIM*JDIM, KMAX+1 ) !" ͢����������
      REAL       DFH   ( IDIM*JDIM, KMAX+1 ) !" ͢����������
      REAL       DFE   ( IDIM*JDIM, KMAX+1 ) !" ͢����������
*
*   [INPUT] 
      REAL       GDT   ( IDIM*JDIM, KMAX )   !" ����  ��
      REAL       GDQ   ( IDIM*JDIM, KMAX )   !" �漾  ��
      REAL       GDP   ( IDIM*JDIM, KMAX )   !" ����  ��
      REAL       GDZ   ( IDIM*JDIM, KMAX )   !" ����  �� 
*
*   [WORK] 
      REAL       GDTC  ( IDIM*JDIM, KMAX )   !" ���β���
      REAL       GDQC  ( IDIM*JDIM, KMAX )   !" �����漾
      REAL       ADIAF ( IDIM*JDIM, KMAX )   !" ������Ǯ�߲�Ψ
      INTEGER    KBTM  ( IDIM*JDIM )         !" �����٥�
      INTEGER    KTOP  ( IDIM*JDIM )         !" ��ĺ��٥�
*
*   [NAMELIST]
      NAMELIST   NMSHLT
      \end{verbatim}

  \item ����
    \begin{enumerate}
      \item ����̵ͭ�� \verb!CCLLEV! ��Ƥ��ɾ������.  
      \item �������ä�, 
            ���Υȥåפˤ����뵤���� \verb!PTMIN! �����礭�����
            �����ѱ��Ǥ����ɾ������. 
            ���α��ؤ���ˤ��ä�
            ���м��٤� \verb!RCRIT! �����礭����٥�Ǥ�
            �����Ȼ������Ƥ����Ƚ�Ǥ���
            �Ȼ�������͢�������˲ä���. 
      \item �͡���ꥹ�ȤǳȻ���������ʬ, 
            �����ѱ����ؾ�ü��٥�, ���м��پ�¤�Ϳ����. 
    \end{enumerate}

\end{itemize}
