C	$Id: ini_parms.F,v 1.2 2006/05/12 22:34:55 ce107 Exp $	
      SUBROUTINE INI_PARMS
C     /==========================================================\
C     | SUBROUTINE INI_PARMS                                     |
C     | o Routine to set model "parameters"                      |
C     |==========================================================|
C     | Notes:                                                   |
C     | ======                                                   |
C     | The present version of this routine is a place-holder.   |
C     | A production version needs to handle parameters from an  |
C     | external file and possibly reading in some initial field |
C     | values.                                                  |
C     \==========================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "CG2D.h"

C     === Routine arguments ===

C     === Local variables ===

      cg2dMaxIters   = 100
      cg2dChkResFreq = 1
      nIter0         = 0
      nTimeSteps     = 10
C

      RETURN
      END