pkg/ecco/cost_gencost_all.F

C $Header:  $
C $Name:  $

#include "COST_CPPOPTIONS.h"


      subroutine cost_gencost_all( myiter, mytime, mythid )

c     ==================================================================
c     SUBROUTINE cost_gencost_all
c     ==================================================================
c
c     o Evaluate user defined penalty terms
c
c     ==================================================================
c     SUBROUTINE cost_gencost_all
c     ==================================================================

      implicit none

c     == global variables ==

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

#include "cal.h"
#include "ctrl.h"
#include "ctrl_dummy.h"
#include "ecco_cost.h"

c     == routine arguments ==

      integer mythid
      integer myiter
      _RL     mytime

c     == local variables ==

      integer startrec
      integer endrec

c     == end of interface ==

c--   Evaluate user defined cost function contributions.
c--   [to be added here by user]

      end
1	C $Header: $
2	C $Name: $
3
4	#include "COST_CPPOPTIONS.h"
5
6
7	subroutine cost_gencost_all( myiter, mytime, mythid )
8
9	c ==================================================================
10	c SUBROUTINE cost_gencost_all
11	c ==================================================================
12	c
13	c o Evaluate user defined penalty terms
14	c
15	c ==================================================================
16	c SUBROUTINE cost_gencost_all
17	c ==================================================================
18
19	implicit none
20
21	c == global variables ==
22
23	#include "SIZE.h"
24	#include "EEPARAMS.h"
25	#include "PARAMS.h"
26	#include "GRID.h"
27
28	#include "cal.h"
29	#include "ctrl.h"
30	#include "ctrl_dummy.h"
31	#include "ecco_cost.h"
32
33	c == routine arguments ==
34
35	integer mythid
36	integer myiter
37	_RL mytime
38
39	c == local variables ==
40
41	integer startrec
42	integer endrec
43
44	c == end of interface ==
45
46	c-- Evaluate user defined cost function contributions.
47	c-- [to be added here by user]
48
49	end