pkg/ctrl/ctrl_weights.h

C $Header: /u/gcmpack/MITgcm/pkg/ctrl/ctrl_weights.h,v 1.6 2007/10/09 00:00:01 jmc Exp $
C $Name:  $

c     Define dummy weights as a placeholder
      common /ctrl_weights_dummy_r/
     &                        wtheta, wsalt,
     &                        wuvvel, wetan,
     &                        wdiffkr, wkapgm,
     &                        wedtaux, wedtauy

      _RL wtheta   ( nr,nsx,nsy )
      _RL wsalt    ( nr,nsx,nsy )
      _RL wuvvel   ( nr,nsx,nsy )
      _RL wetan    ( snx,sny,nsx,nsy )
      _RL wdiffkr ( nr,nsx,nsy )
      _RL wkapgm ( nr,nsx,nsy )
      _RL wedtaux ( nr,nsx,nsy )
      _RL wedtauy ( nr,nsx,nsy )

#if (defined (ALLOW_OBCSN_COST_CONTRIBUTION) || defined (ALLOW_OBCSN_CONTROL))
      common /ctrl_cost_weights_obcsn/
     &                      wobcsn, wobcsnLev
      _RL wobcsn     (                      nr,nobcs)
      _RL wobcsnLev  (1-olx:snx+olx,nr,nsx,nsy,nobcs)
#endif
#if (defined (ALLOW_OBCSS_COST_CONTRIBUTION) || defined (ALLOW_OBCSS_CONTROL))
      common /ctrl_cost_weights_obcss/
     &                      wobcss, wobcssLev
      _RL wobcss     (                      nr,nobcs)
      _RL wobcssLev  (1-olx:snx+olx,nr,nsx,nsy,nobcs)
#endif
#if (defined (ALLOW_OBCSW_COST_CONTRIBUTION) || defined (ALLOW_OBCSW_CONTROL))
      common /ctrl_cost_weights_obcsw/
     &                      wobcsw, wobcswLev
      _RL wobcsw     (                      nr,nobcs)
      _RL wobcswLev  (1-oly:sny+oly,nr,nsx,nsy,nobcs)
#endif
#if (defined (ALLOW_OBCSE_COST_CONTRIBUTION) || defined (ALLOW_OBCSE_CONTROL))
      common /ctrl_cost_weights_obcse/
     &                      wobcse, wobcseLev
      _RL wobcse     (                      nr,nobcs)
      _RL wobcseLev  (1-oly:sny+oly,nr,nsx,nsy,nobcs)
#endif

#if (defined (ALLOW_COST_HFLUXM) || defined (ALLOW_HFLUXM_CONTROL))
c     whfluxm       - weight for heat flux.
      common /cost_weights_r/ whfluxm
      _RL whfluxm (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
#endif

1	dfer	1.7	C $Header: /u/gcmpack/MITgcm/pkg/ctrl/ctrl_weights.h,v 1.6 2007/10/09 00:00:01 jmc Exp $
2	jmc	1.6	C $Name: $
3	heimbach	1.1
4			c Define dummy weights as a placeholder
5			common /ctrl_weights_dummy_r/
6	jmc	1.6	& wtheta, wsalt,
7	heimbach	1.5	& wuvvel, wetan,
8	heimbach	1.4	& wdiffkr, wkapgm,
9			& wedtaux, wedtauy
10
11	heimbach	1.5	_RL wtheta ( nr,nsx,nsy )
12			_RL wsalt ( nr,nsx,nsy )
13			_RL wuvvel ( nr,nsx,nsy )
14			_RL wetan ( snx,sny,nsx,nsy )
15	heimbach	1.4	_RL wdiffkr ( nr,nsx,nsy )
16			_RL wkapgm ( nr,nsx,nsy )
17			_RL wedtaux ( nr,nsx,nsy )
18			_RL wedtauy ( nr,nsx,nsy )
19	mlosch	1.2
20	heimbach	1.3	#if (defined (ALLOW_OBCSN_COST_CONTRIBUTION) \|\| defined (ALLOW_OBCSN_CONTROL))
21	mlosch	1.2	common /ctrl_cost_weights_obcsn/
22			& wobcsn, wobcsnLev
23			_RL wobcsn ( nr,nobcs)
24			_RL wobcsnLev (1-olx:snx+olx,nr,nsx,nsy,nobcs)
25			#endif
26	heimbach	1.3	#if (defined (ALLOW_OBCSS_COST_CONTRIBUTION) \|\| defined (ALLOW_OBCSS_CONTROL))
27	mlosch	1.2	common /ctrl_cost_weights_obcss/
28			& wobcss, wobcssLev
29			_RL wobcss ( nr,nobcs)
30			_RL wobcssLev (1-olx:snx+olx,nr,nsx,nsy,nobcs)
31			#endif
32	heimbach	1.3	#if (defined (ALLOW_OBCSW_COST_CONTRIBUTION) \|\| defined (ALLOW_OBCSW_CONTROL))
33	mlosch	1.2	common /ctrl_cost_weights_obcsw/
34			& wobcsw, wobcswLev
35			_RL wobcsw ( nr,nobcs)
36			_RL wobcswLev (1-oly:sny+oly,nr,nsx,nsy,nobcs)
37			#endif
38	heimbach	1.3	#if (defined (ALLOW_OBCSE_COST_CONTRIBUTION) \|\| defined (ALLOW_OBCSE_CONTROL))
39	mlosch	1.2	common /ctrl_cost_weights_obcse/
40			& wobcse, wobcseLev
41			_RL wobcse ( nr,nobcs)
42			_RL wobcseLev (1-oly:sny+oly,nr,nsx,nsy,nobcs)
43			#endif
44	dfer	1.7
45			#if (defined (ALLOW_COST_HFLUXM) \|\| defined (ALLOW_HFLUXM_CONTROL))
46			c whfluxm - weight for heat flux.
47			common /cost_weights_r/ whfluxm
48			_RL whfluxm (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy)
49			#endif
50