pkg/ecco/ecco_init.F

C $Header: /u/gcmpack/MITgcm/pkg/ecco/ecco_init.F,v 1.1.6.3 2002/04/04 10:34:57 heimbach Exp $

#include "CPP_OPTIONS.h"


      subroutine ecco_init( mythid )

c     ==================================================================
c     SUBROUTINE ecco_init
c     ==================================================================
c
c     o Initialize the ECCO release of the MITgcmUV.
c
c     started: Christian Eckert eckert@mit.edu 29-Feb-1999
c
c              - Introduced to create a package for the MITgcmUV.
c
c     changed: Christian Eckert eckert@mit.edu
c
c     ==================================================================
c     SUBROUTINE ecco_init
c     ==================================================================

      implicit none

c     == global variables ==

#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

c     == routine arguments ==

      integer mythid

c     == local variables ==

c     == external ==

c     == end of interface ==

#ifdef INCLUDE_ECCO_PACKAGE

#ifdef ALLOW_COST
c--   Initialise the cost function.
      call cost_InitVaria( mythid )

c--   Initialise the time averages.
      call cost_AveragesInit( mythid )

c--   Map the control variables onto the model state. 
      call ctrl_init_variables ( mythid )
      call ctrl_map( mythid )
      _BARRIER
#endif

#endif

c--   Everyone else must wait for the parameters to be loaded and
c--   the setup to be completed.
      _BARRIER

      return
      end

1	heimbach	1.1.6.4	C $Header: /u/gcmpack/MITgcm/pkg/ecco/ecco_init.F,v 1.1.6.3 2002/04/04 10:34:57 heimbach Exp $
2	heimbach	1.1
3			#include "CPP_OPTIONS.h"
4
5
6	heimbach	1.1.6.4	subroutine ecco_init( mythid )
7	heimbach	1.1
8			c ==================================================================
9	heimbach	1.1.6.4	c SUBROUTINE ecco_init
10	heimbach	1.1	c ==================================================================
11			c
12			c o Initialize the ECCO release of the MITgcmUV.
13			c
14			c started: Christian Eckert eckert@mit.edu 29-Feb-1999
15			c
16			c - Introduced to create a package for the MITgcmUV.
17			c
18			c changed: Christian Eckert eckert@mit.edu
19			c
20			c ==================================================================
21	heimbach	1.1.6.4	c SUBROUTINE ecco_init
22	heimbach	1.1	c ==================================================================
23
24			implicit none
25
26			c == global variables ==
27
28			#include "SIZE.h"
29			#include "EEPARAMS.h"
30			#include "PARAMS.h"
31
32			c == routine arguments ==
33
34			integer mythid
35
36			c == local variables ==
37
38			c == external ==
39
40			c == end of interface ==
41
42	heimbach	1.1.6.1	#ifdef INCLUDE_ECCO_PACKAGE
43	heimbach	1.1
44	heimbach	1.1.6.1	#ifdef ALLOW_COST
45	heimbach	1.1	c-- Initialise the cost function.
46			call cost_InitVaria( mythid )
47
48			c-- Initialise the time averages.
49			call cost_AveragesInit( mythid )
50	heimbach	1.1.6.1
51			c-- Map the control variables onto the model state.
52	heimbach	1.1.6.2	call ctrl_init_variables ( mythid )
53	heimbach	1.1.6.1	call ctrl_map( mythid )
54			_BARRIER
55	heimbach	1.1	#endif
56
57			#endif
58
59			c-- Everyone else must wait for the parameters to be loaded and
60			c-- the setup to be completed.
61			_BARRIER
62
63			return
64			end
65