C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ecco/cost_hyd.F,v 1.1 2003/11/06 22:10:07 heimbach Exp $

#include "COST_CPPOPTIONS.h"


      subroutine cost_hyd(
     I                     myiter,
     I                     mytime,
     I                     mythid
     &                   )

c     ==================================================================
c     SUBROUTINE cost_hyd
c     ==================================================================
c
c     o Evaluate cost function contributions of temperature, salt, and
c       sea surface temperature contributions.
c
c     started: Christian Eckert eckert@mit.edu 30-Jun-1999
c
c     changed: Christian Eckert eckert@mit.edu 25-Feb-2000
c
c              - Restructured the code in order to create a package
c                for the MITgcmUV.
c
c     ==================================================================
c     SUBROUTINE cost_hyd
c     ==================================================================

      implicit none

c     == global variables ==

c     == routine arguments ==

      integer myiter
      _RL     mytime
      integer mythid

c     == local variables ==


c     == end of interface ==


#ifdef ALLOW_XBT_COST_CONTRIBUTION
      call cost_xbt   ( myiter, mytime, mythid )
#endif 

#ifdef ALLOW_ARGO_THETA_COST_CONTRIBUTION
      call cost_argo_theta ( myiter, mytime, mythid )
#endif

#ifdef ALLOW_CTDT_COST_CONTRIBUTION
      call cost_ctdt  ( myiter, mytime, mythid )
#endif

#ifdef ALLOW_SSS_COST_CONTRIBUTION
      call cost_sss   ( myiter, mytime, mythid )
#endif

#ifdef ALLOW_SST_COST_CONTRIBUTION
      call cost_sst   ( myiter, mytime, mythid )
#endif

#ifdef ALLOW_CTDS_COST_CONTRIBUTION
      call cost_ctds  ( myiter, mytime, mythid )
#endif

#ifdef ALLOW_ARGO_SALT_COST_CONTRIBUTION
      call cost_argo_salt ( myiter, mytime, mythid )
#endif

#ifdef ALLOW_CTDTCLIM_COST_CONTRIBUTION
      call cost_ctdtclim  ( myiter, mytime, mythid )
#endif

#ifdef ALLOW_CTDSCLIM_COST_CONTRIBUTION
      call cost_ctdsclim  ( myiter, mytime, mythid )
#endif

cgg   Would prefer to calculate this before the actual run.
#ifdef ALLOW_THETA0_COST_CONTRIBUTION
      call cost_theta0 ( myiter, mytime, mythid )
#endif

#ifdef ALLOW_SALT0_COST_CONTRIBUTION
      call cost_salt0  ( myiter, mytime, mythid )
#endif

#ifdef ALLOW_THETA_COST_CONTRIBUTION
      call cost_theta ( myiter, mytime, mythid )
#endif

#ifdef ALLOW_SALT_COST_CONTRIBUTION
      call cost_salt  ( myiter, mytime, mythid )
#endif

#if   (defined (ALLOW_OBCS_COST_CONTRIBUTION) && \
       defined (OBCS_AGEOS_COST_CONTRIBUTION))
      call cost_obcs_ageos ( myiter,mytime, mythid)
#endif

      end