C $Header$
C $Name$

#ifdef ALLOW_GUD

CBOP
C    !ROUTINE: GUD_SIZE.h
C    !INTERFACE:
C #include GUD_SIZE.h

C    !DESCRIPTION:
C Contains dimensions and index ranges for gud model.
C
C right now, some bits of code assume that
C
C   iMinPrey = 1
C   iMaxPred = nplank
C   nChl = nPhoto

      integer nplank, nGroup, nlam, nopt
      integer nPhoto
      integer iMinBact, iMaxBact
      integer iMinPrey, iMaxPrey
      integer iMinPred, iMaxPred
      integer nPPplank
      integer nGRplank
      integer nChl
      parameter(nplank=10)
      parameter(nGroup=7)
      parameter(nlam=13)
      parameter(nopt=12)
      parameter(nPhoto= 6)
      parameter(iMinBact=nPhoto+1, iMaxBact=nPhoto)
      parameter(iMinPrey=1, iMaxPrey=nplank)
      parameter(iMinPred=6, iMaxPred=nplank)
      parameter(nChl=nPhoto)
      parameter(nPPplank=0)
      parameter(nGRplank=0)

CEOP
#endif /* ALLOW_GUD */