C $Header: /u/gcmpack/MITgcm/pkg/ctrl/CTRL_OBCS.h,v 1.1 2014/10/09 00:49:26 gforget Exp $
C $Name: $
c ==================================================================
c HEADER AVERAGES
c ==================================================================
c
c o Header for obcs ctrl weights
c
c ==================================================================
c HEADER AVERAGES
c ==================================================================
_RL objf_obcsn(nsx,nsy), objf_obcss(nsx,nsy)
_RL objf_obcsw(nsx,nsy), objf_obcse(nsx,nsy)
_RL objf_obcsvol, objf_ageos(nsx,nsy)
_RL mult_obcsn, mult_obcss
_RL mult_obcsw, mult_obcse
_RL mult_obcsvol, mult_ageos
_RL num_obcsn(nsx,nsy), num_obcss(nsx,nsy)
_RL num_obcsw(nsx,nsy), num_obcse(nsx,nsy)
_RL num_obcsvol, num_ageos(nsx,nsy)
common /ecco_cost_weights_obcs/
& objf_obcsn, objf_obcss, objf_obcsw, objf_obcse,
& objf_obcsvol, objf_ageos,
& mult_obcsn, mult_obcss, mult_obcsw, mult_obcse,
& mult_obcsvol, mult_ageos,
& num_obcsn, num_obcss, num_obcsw, num_obcse,
& num_obcsvol, num_ageos
common /ih_modes/ modesv
_RL modesv (nr,nr,nr)
common /ctrl_dummy_obcs/
& xx_obcsn_dummy
& , xx_obcss_dummy
& , xx_obcsw_dummy
& , xx_obcse_dummy
_RL xx_obcsn_dummy
_RL xx_obcss_dummy
_RL xx_obcsw_dummy
_RL xx_obcse_dummy
common /controlfiles_c_obcs/
& xx_obcsn_file
& , xx_obcss_file
& , xx_obcsw_file
& , xx_obcse_file
character*(MAX_LEN_FNAM) xx_obcsn_file
character*(MAX_LEN_FNAM) xx_obcss_file
character*(MAX_LEN_FNAM) xx_obcsw_file
character*(MAX_LEN_FNAM) xx_obcse_file
common /controltimes_r_obcs/
& xx_obcsnperiod
& , xx_obcssperiod
& , xx_obcswperiod
& , xx_obcseperiod
_RL xx_obcsnperiod
_RL xx_obcssperiod
_RL xx_obcswperiod
_RL xx_obcseperiod
common /controltimes_i_obcs/
& xx_obcsnstartdate1
& , xx_obcsnstartdate2
& , xx_obcssstartdate1
& , xx_obcssstartdate2
& , xx_obcswstartdate1
& , xx_obcswstartdate2
& , xx_obcsestartdate1
& , xx_obcsestartdate2
& , xx_obcsnstartdate
& , xx_obcssstartdate
& , xx_obcswstartdate
& , xx_obcsestartdate
integer xx_obcsnstartdate1
integer xx_obcsnstartdate2
integer xx_obcssstartdate1
integer xx_obcssstartdate2
integer xx_obcswstartdate1
integer xx_obcswstartdate2
integer xx_obcsestartdate1
integer xx_obcsestartdate2
integer xx_obcsnstartdate(4)
integer xx_obcssstartdate(4)
integer xx_obcswstartdate(4)
integer xx_obcsestartdate(4)
character*( 80) fname_obcsn(3)
character*( 80) fname_obcss(3)
character*( 80) fname_obcsw(3)
character*( 80) fname_obcse(3)
common /controlvars_i_obcsn/
& nwetobcsn,
& nwetobcsnglo
integer nwetobcsn ( nsx,nsy,nr,nobcs )
integer nwetobcsnglo ( nr,nobcs )
common /controlvars_i_obcss/
& nwetobcss,
& nwetobcssglo
integer nwetobcss ( nsx,nsy,nr,nobcs )
integer nwetobcssglo ( nr,nobcs )
common /controlvars_i_obcsw/
& nwetobcsw,
& nwetobcswglo
integer nwetobcsw ( nsx,nsy,nr,nobcs )
integer nwetobcswglo ( nr,nobcs )
common /controlvars_i_obcse/
& nwetobcse,
& nwetobcseglo
integer nwetobcse ( nsx,nsy,nr,nobcs )
integer nwetobcseglo ( nr,nobcs )
#if (defined (ALLOW_OBCSN_COST_CONTRIBUTION) defined (ALLOW_OBCSN_CONTROL))
common /ecco_cost_weights_obcsn/
& wobcsn, wobcsnLev
_RL wobcsn ( nr,nobcs)
_RL wobcsnLev (1-olx:snx+olx,nr,nsx,nsy,nobcs)
common /controlaux_obcsn_r/
& xx_obcsn0,
& xx_obcsn1
_RL xx_obcsn0 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs)
_RL xx_obcsn1 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs)
#endif
#if (defined (ALLOW_OBCSS_COST_CONTRIBUTION) defined (ALLOW_OBCSS_CONTROL))
common /ecco_cost_weights_obcss/
& wobcss, wobcssLev
_RL wobcss ( nr,nobcs)
_RL wobcssLev (1-olx:snx+olx,nr,nsx,nsy,nobcs)
common /controlaux_obcss_r/
& xx_obcss0,
& xx_obcss1
_RL xx_obcss0 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs)
_RL xx_obcss1 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs)
#endif
#if (defined (ALLOW_OBCSW_COST_CONTRIBUTION) defined (ALLOW_OBCSW_CONTROL))
common /ecco_cost_weights_obcsw/
& wobcsw, wobcswLev
_RL wobcsw ( nr,nobcs)
_RL wobcswLev (1-oly:sny+oly,nr,nsx,nsy,nobcs)
common /controlaux_obcsw_r/
& xx_obcsw0,
& xx_obcsw1
_RL xx_obcsw0 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs)
_RL xx_obcsw1 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs)
#endif
#if (defined (ALLOW_OBCSE_COST_CONTRIBUTION) defined (ALLOW_OBCSE_CONTROL))
common /ecco_cost_weights_obcse/
& wobcse, wobcseLev
_RL wobcse ( nr,nobcs)
_RL wobcseLev (1-oly:sny+oly,nr,nsx,nsy,nobcs)
common /controlaux_obcse_r/
& xx_obcse0,
& xx_obcse1
_RL xx_obcse0 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs)
_RL xx_obcse1 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs)
#endif