C $Header: /u/gcmpack/MITgcm/pkg/seaice/seaice_cost_sensi.F,v 1.2 2010/03/15 16:08:29 heimbach Exp $
C $Name:  $

#include "SEAICE_OPTIONS.h"

      subroutine SEAICE_COST_SENSI( myTime, myIter, myThid )
C     *==========================================================*
C     | subroutine seaice_cost_sensi
C     | o driver for seaice sensitivity cost functions
C     *==========================================================*

      IMPLICIT NONE

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

C     == Routine arguments ==
C     myThid - Thread number for this instance of the routine.
      _RL myTime
      integer myIter
      integer myThid

#ifdef ALLOW_COST
C     == Local variables

      CALL COST_ICE_TEST ( myTime, myIter, myThid )

      CALL SEAICE_COST_ACCUMULATE_MEAN (
     &    myTime, myIter, myThid)

#endif

      END