/[MITgcm]/MITgcm/pkg/ctrl/CTRL_OBCS.h
ViewVC logotype

Contents of /MITgcm/pkg/ctrl/CTRL_OBCS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Thu Oct 9 00:49:26 2014 UTC (9 years, 8 months ago) by gforget
Branch: MAIN
CVS Tags: checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65f, checkpoint65g, HEAD
File MIME type: text/plain
- pkg/ctrl/CTRL_OBCS.h (new) : regroup all obcs ctrl variables.
- pkg/ctrl/ctrl.h, ctrl_dummy.h, ctrl_weights.h : rm obcs
  ctrl variables (now all in CTRL_OBCS.h).

- pkg/ctrl/ctrl_getobcse.F, ctrl_getobcsn.F, ctrl_getobcss.F,
  ctrl_getobcsw.F, ctrl_getrec.F, ctrl_init.F, ctrl_init_obcs_variables.F,
  ctrl_init_wet.F, ctrl_mask_set_xz.F, ctrl_mask_set_yz.F,
  ctrl_pack.F, ctrl_unpack.F, ctrl_readparms.F,
  ctrl_set_pack_xz.F, ctrl_set_pack_yz.F, ctrl_set_unpack_xz.F,
  ctrl_set_unpack_yz.F : add CPP brackets and CTRL_OBCS.h

- pkg/ctrl/ctrl_pack.F, ctrl_unpack.F : add CPP brackets

1 C $Header: /u/gcmpack/MITgcm/pkg/ecco/ecco_obcs.h,v 1.1 2014/09/29 16:45:45 gforget Exp $
2 C $Name: $
3
4 c ==================================================================
5 c HEADER AVERAGES
6 c ==================================================================
7 c
8 c o Header for obcs ctrl weights
9 c
10 c ==================================================================
11 c HEADER AVERAGES
12 c ==================================================================
13
14 _RL objf_obcsn(nsx,nsy), objf_obcss(nsx,nsy)
15 _RL objf_obcsw(nsx,nsy), objf_obcse(nsx,nsy)
16 _RL objf_obcsvol, objf_ageos(nsx,nsy)
17 _RL mult_obcsn, mult_obcss
18 _RL mult_obcsw, mult_obcse
19 _RL mult_obcsvol, mult_ageos
20 _RL num_obcsn(nsx,nsy), num_obcss(nsx,nsy)
21 _RL num_obcsw(nsx,nsy), num_obcse(nsx,nsy)
22 _RL num_obcsvol, num_ageos(nsx,nsy)
23 common /ecco_cost_weights_obcs/
24 & objf_obcsn, objf_obcss, objf_obcsw, objf_obcse,
25 & objf_obcsvol, objf_ageos,
26 & mult_obcsn, mult_obcss, mult_obcsw, mult_obcse,
27 & mult_obcsvol, mult_ageos,
28 & num_obcsn, num_obcss, num_obcsw, num_obcse,
29 & num_obcsvol, num_ageos
30
31 common /ih_modes/ modesv
32 _RL modesv (nr,nr,nr)
33 common /ctrl_dummy_obcs/
34 & xx_obcsn_dummy
35 & , xx_obcss_dummy
36 & , xx_obcsw_dummy
37 & , xx_obcse_dummy
38 _RL xx_obcsn_dummy
39 _RL xx_obcss_dummy
40 _RL xx_obcsw_dummy
41 _RL xx_obcse_dummy
42 common /controlfiles_c_obcs/
43 & xx_obcsn_file
44 & , xx_obcss_file
45 & , xx_obcsw_file
46 & , xx_obcse_file
47 character*(MAX_LEN_FNAM) xx_obcsn_file
48 character*(MAX_LEN_FNAM) xx_obcss_file
49 character*(MAX_LEN_FNAM) xx_obcsw_file
50 character*(MAX_LEN_FNAM) xx_obcse_file
51 common /controltimes_r_obcs/
52 & xx_obcsnperiod
53 & , xx_obcssperiod
54 & , xx_obcswperiod
55 & , xx_obcseperiod
56 _RL xx_obcsnperiod
57 _RL xx_obcssperiod
58 _RL xx_obcswperiod
59 _RL xx_obcseperiod
60 common /controltimes_i_obcs/
61 & xx_obcsnstartdate1
62 & , xx_obcsnstartdate2
63 & , xx_obcssstartdate1
64 & , xx_obcssstartdate2
65 & , xx_obcswstartdate1
66 & , xx_obcswstartdate2
67 & , xx_obcsestartdate1
68 & , xx_obcsestartdate2
69 & , xx_obcsnstartdate
70 & , xx_obcssstartdate
71 & , xx_obcswstartdate
72 & , xx_obcsestartdate
73 integer xx_obcsnstartdate1
74 integer xx_obcsnstartdate2
75 integer xx_obcssstartdate1
76 integer xx_obcssstartdate2
77 integer xx_obcswstartdate1
78 integer xx_obcswstartdate2
79 integer xx_obcsestartdate1
80 integer xx_obcsestartdate2
81 integer xx_obcsnstartdate(4)
82 integer xx_obcssstartdate(4)
83 integer xx_obcswstartdate(4)
84 integer xx_obcsestartdate(4)
85 character*( 80) fname_obcsn(3)
86 character*( 80) fname_obcss(3)
87 character*( 80) fname_obcsw(3)
88 character*( 80) fname_obcse(3)
89 common /controlvars_i_obcsn/
90 & nwetobcsn,
91 & nwetobcsnglo
92 integer nwetobcsn ( nsx,nsy,nr,nobcs )
93 integer nwetobcsnglo ( nr,nobcs )
94 common /controlvars_i_obcss/
95 & nwetobcss,
96 & nwetobcssglo
97 integer nwetobcss ( nsx,nsy,nr,nobcs )
98 integer nwetobcssglo ( nr,nobcs )
99 common /controlvars_i_obcsw/
100 & nwetobcsw,
101 & nwetobcswglo
102 integer nwetobcsw ( nsx,nsy,nr,nobcs )
103 integer nwetobcswglo ( nr,nobcs )
104 common /controlvars_i_obcse/
105 & nwetobcse,
106 & nwetobcseglo
107 integer nwetobcse ( nsx,nsy,nr,nobcs )
108 integer nwetobcseglo ( nr,nobcs )
109
110 #if (defined (ALLOW_OBCSN_COST_CONTRIBUTION) || defined (ALLOW_OBCSN_CONTROL))
111 common /ecco_cost_weights_obcsn/
112 & wobcsn, wobcsnLev
113 _RL wobcsn ( nr,nobcs)
114 _RL wobcsnLev (1-olx:snx+olx,nr,nsx,nsy,nobcs)
115 common /controlaux_obcsn_r/
116 & xx_obcsn0,
117 & xx_obcsn1
118 _RL xx_obcsn0 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs)
119 _RL xx_obcsn1 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs)
120 #endif
121
122 #if (defined (ALLOW_OBCSS_COST_CONTRIBUTION) || defined (ALLOW_OBCSS_CONTROL))
123 common /ecco_cost_weights_obcss/
124 & wobcss, wobcssLev
125 _RL wobcss ( nr,nobcs)
126 _RL wobcssLev (1-olx:snx+olx,nr,nsx,nsy,nobcs)
127 common /controlaux_obcss_r/
128 & xx_obcss0,
129 & xx_obcss1
130 _RL xx_obcss0 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs)
131 _RL xx_obcss1 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs)
132 #endif
133
134 #if (defined (ALLOW_OBCSW_COST_CONTRIBUTION) || defined (ALLOW_OBCSW_CONTROL))
135 common /ecco_cost_weights_obcsw/
136 & wobcsw, wobcswLev
137 _RL wobcsw ( nr,nobcs)
138 _RL wobcswLev (1-oly:sny+oly,nr,nsx,nsy,nobcs)
139 common /controlaux_obcsw_r/
140 & xx_obcsw0,
141 & xx_obcsw1
142 _RL xx_obcsw0 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs)
143 _RL xx_obcsw1 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs)
144 #endif
145
146 #if (defined (ALLOW_OBCSE_COST_CONTRIBUTION) || defined (ALLOW_OBCSE_CONTROL))
147 common /ecco_cost_weights_obcse/
148 & wobcse, wobcseLev
149 _RL wobcse ( nr,nobcs)
150 _RL wobcseLev (1-oly:sny+oly,nr,nsx,nsy,nobcs)
151 common /controlaux_obcse_r/
152 & xx_obcse0,
153 & xx_obcse1
154 _RL xx_obcse0 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs)
155 _RL xx_obcse1 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs)
156 #endif
157

  ViewVC Help
Powered by ViewVC 1.1.22