pkg/ecco/ecco_init.F

C $Header: /u/gcmpack/development/heimbach/ecco_env/pkg/ecco/ecco_init.F,v 1.2 2000/08/31 20:47:10 heimbach Exp $

#include "CPP_OPTIONS.h"


      subroutine ecco_Init(
     I                      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

#ifndef ALLOW_ECCO_FORWARD_RUN
c--   Map the control variables onto the model state. 
      call ctrl_Map( mythid )
      _BARRIER

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

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

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