c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_clim_init.F,v 1.6 2003/10/09 04:19:19 edhill Exp $

#include "EXF_OPTIONS.h"


      subroutine EXF_CLIM_INIT( mythid )

c     ==================================================================
c     SUBROUTINE exf_clim_init
c     ==================================================================
c
c     o This routine initialises the climatologic forcing
c
c     started: Ralf.Giering@FastOpt.de 25-Mai-20000
c
c     ==================================================================
c     SUBROUTINE exf_clim_init
c     ==================================================================

      implicit none

c     == global variables ==

#include "EEPARAMS.h"
#include "SIZE.h"
#include "cal.h"
#include "exf.h"
#include "exf_param.h"
#include "exf_clim_param.h"

c     == routine arguments ==

      integer mythid

c     == local variables ==

c     == end of interface ==

c     initialize climatology fields
#ifdef ALLOW_CLIMTEMP_RELAXATION
      call EXF_INIT_CLIMTEMP( mythid )
#endif
#ifdef ALLOW_CLIMSALT_RELAXATION
      call EXF_INIT_CLIMSALT( mythid )
#endif
#ifdef ALLOW_CLIMSST_RELAXATION
      call EXF_INIT_CLIMSST(  mythid )
#endif
#ifdef ALLOW_CLIMSSS_RELAXATION
      call EXF_INIT_CLIMSSS(  mythid )
#endif

      end