pkg/thsice/thsice_cost_driver.F

C $Header: /u/gcmpack/MITgcm/pkg/thsice/thsice_cost_driver.F,v 1.1 2013/03/30 01:23:58 heimbach Exp $
C $Name:  $

#include "THSICE_OPTIONS.h"

      subroutine thsice_cost_driver( mytime, myiter, mythid )

c     ==================================================================
c     SUBROUTINE thsice_cost_driver
c     ==================================================================
c
c     o Evaluate cost function contributions of
c       thsice observations
c
c     ==================================================================
c     SUBROUTINE thsice_cost_driver
c     ==================================================================

      implicit none

c     == global variables ==
#include "EEPARAMS.h"
#include "SIZE.h"
#include "PARAMS.h"
#include "GRID.h"

#ifdef ALLOW_COST
# include "CTRL_SIZE.h"
# include "ctrl.h"
# include "ctrl_dummy.h"
#endif

c     == routine arguments ==

      integer myiter
      _RL     mytime
      integer mythid

c     == end of interface ==

#ifdef ALLOW_THSICE_COST_TEST
       CALL THSICE_COST_TEST( mytime, myiter, mythid )
#endif

      end
1	C $Header: /u/gcmpack/MITgcm/pkg/thsice/thsice_cost_driver.F,v 1.1 2013/03/30 01:23:58 heimbach Exp $
2	C $Name: $
3
4	#include "THSICE_OPTIONS.h"
5
6	subroutine thsice_cost_driver( mytime, myiter, mythid )
7
8	c ==================================================================
9	c SUBROUTINE thsice_cost_driver
10	c ==================================================================
11	c
12	c o Evaluate cost function contributions of
13	c thsice observations
14	c
15	c ==================================================================
16	c SUBROUTINE thsice_cost_driver
17	c ==================================================================
18
19	implicit none
20
21	c == global variables ==
22	#include "EEPARAMS.h"
23	#include "SIZE.h"
24	#include "PARAMS.h"
25	#include "GRID.h"
26
27	#ifdef ALLOW_COST
28	# include "CTRL_SIZE.h"
29	# include "ctrl.h"
30	# include "ctrl_dummy.h"
31	#endif
32
33	c == routine arguments ==
34
35	integer myiter
36	_RL mytime
37	integer mythid
38
39	c == end of interface ==
40
41	#ifdef ALLOW_THSICE_COST_TEST
42	CALL THSICE_COST_TEST( mytime, myiter, mythid )
43	#endif
44
45	end