C $Header: /u/gcmpack/MITgcm/pkg/thsice/thsice_cost_init_varia.F,v 1.1 2013/03/30 01:23:58 heimbach Exp $
C $Name:  $

#include "THSICE_OPTIONS.h"

      subroutine THSICE_COST_INIT_VARIA( mythid )

c     ==================================================================
c     SUBROUTINE thsice_cost_init_varia
c     ==================================================================
c
c     ==================================================================
c     SUBROUTINE thsice_cost_init_varia
c     ==================================================================

      implicit none

c     == global variables ==

#include "EEPARAMS.h"
#include "SIZE.h"
#include "GRID.h"
#ifdef ALLOW_COST
# include "THSICE_COST.h"
#endif

c     == routine arguments ==

      integer mythid

#ifdef ALLOW_COST
c     == local variables ==

      integer bi,bj
      integer itlo,ithi
      integer jtlo,jthi

      logical exst

c     == external functions ==

c     == end of interface ==
      jtlo = myByLo(mythid)
      jthi = myByHi(mythid)
      itlo = myBxLo(mythid)
      ithi = myBxHi(mythid)

c--   Initialize the tiled cost function contributions.
      do bj = jtlo,jthi
        do bi = itlo,ithi
# ifdef ALLOW_COST
          objf_thsice(bi,bj)     = 0. _d 0
          num_thsice(bi,bj)      = 0. _d 0
# endif
        enddo
      enddo

#endif

      return
      end