/[MITgcm]/MITgcm/pkg/ecco/ecco.h
ViewVC logotype

Diff of /MITgcm/pkg/ecco/ecco.h

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

revision 1.6 by gforget, Fri Oct 3 15:01:07 2014 UTC revision 1.7 by gforget, Mon Oct 6 14:09:03 2014 UTC
# Line 147  c     file precision and field type Line 147  c     file precision and field type
147        integer cost_iprec        integer cost_iprec
148        character*(2) cost_yftype        character*(2) cost_yftype
149    
 c     empty preprocessing name:  
 c     =========================  
       character*(16) no_preproc,no_posproc  
       PARAMETER ( no_preproc='        ' )  
       PARAMETER ( no_posproc='        ' )  
       character*(MAX_LEN_FNAM) no_scalefile  
       PARAMETER ( no_scalefile=' ' )  
   
150  c     Number of User Cost terms:  c     Number of User Cost terms:
151  c     =============================  c     =============================
152        INTEGER NUSERCOST        INTEGER NUSERCOST
# Line 172  c     ============================= Line 164  c     =============================
164        PARAMETER ( NGENCOST3D=0 )        PARAMETER ( NGENCOST3D=0 )
165  #endif  #endif
166    
167          INTEGER NGENPPROC
168          PARAMETER ( NGENPPROC=10 )
169    
170    
171    c     empty pre/post-processing :
172    c     =========================
173          common /ecco_nogencost_c/
174         &       no_preproc,
175         &       no_preproc_c,
176         &       no_posproc,
177         &       no_posproc_c
178          character*(MAX_LEN_FNAM) no_preproc(NGENPPROC)
179          character*(MAX_LEN_FNAM) no_preproc_c(NGENPPROC)
180          character*(MAX_LEN_FNAM) no_posproc(NGENPPROC)
181          character*(MAX_LEN_FNAM) no_posproc_c(NGENPPROC)
182    
183          common /ecco_nogencost_r/
184         &       no_preproc_r, no_posproc_r
185          _RL no_preproc_r(NGENPPROC)
186          _RL no_posproc_r(NGENPPROC)
187    
188          common /ecco_nogencost_i/
189         &       no_preproc_i, no_posproc_i
190          integer no_preproc_i(NGENPPROC)
191          integer no_posproc_i(NGENPPROC)
192    
193    c     gencost common blocs:
194    c     =====================
195    
196  #ifdef ALLOW_GENCOST_CONTRIBUTION  #ifdef ALLOW_GENCOST_CONTRIBUTION
197  c     objf_gencost - gencost user defined contribution  c     objf_gencost - gencost user defined contribution
198        common /ecco_gencost_ctrl/        common /ecco_gencost_ctrl/
# Line 184  c     objf_gencost - gencost user define Line 205  c     objf_gencost - gencost user define
205  #ifdef ALLOW_GENCOST3D  #ifdef ALLOW_GENCOST3D
206       &       gencost_bar3d, gencost_mod3d, gencost_wei3d,       &       gencost_bar3d, gencost_mod3d, gencost_wei3d,
207  #endif  #endif
208       &       gencost_spmin, gencost_spmax, gencost_spzero       &       gencost_spmin, gencost_spmax, gencost_spzero,
209         &       gencost_period, gencost_preproc_r, gencost_posproc_r
210    
211        _RL  objf_gencost(nsx,nsy,NGENCOST)        _RL  objf_gencost(nsx,nsy,NGENCOST)
212        _RL  num_gencost(nsx,nsy,NGENCOST)        _RL  num_gencost(nsx,nsy,NGENCOST)
213        _RL  mult_gencost(NGENCOST)        _RL  mult_gencost(NGENCOST)
214        _RL  gencost_spmin(NGENCOST)        _RL  gencost_spmin(NGENCOST)
215        _RL  gencost_spmax(NGENCOST)        _RL  gencost_spmax(NGENCOST)
216        _RL  gencost_spzero(NGENCOST)        _RL  gencost_spzero(NGENCOST)
217          _RL  gencost_period(NGENCOST)
218        _RL  gencost_barfld(1-olx:snx+olx,1-oly:sny+oly,        _RL  gencost_barfld(1-olx:snx+olx,1-oly:sny+oly,
219       &       nsx,nsy,NGENCOST)       &       nsx,nsy,NGENCOST)
220        _RL  gencost_modfld(1-olx:snx+olx,1-oly:sny+oly,        _RL  gencost_modfld(1-olx:snx+olx,1-oly:sny+oly,
# Line 205  c     objf_gencost - gencost user define Line 229  c     objf_gencost - gencost user define
229        _RL  gencost_wei3d(1-olx:snx+olx,1-oly:sny+oly,        _RL  gencost_wei3d(1-olx:snx+olx,1-oly:sny+oly,
230       &       nr,nsx,nsy,NGENCOST3D)       &       nr,nsx,nsy,NGENCOST3D)
231  #endif  #endif
232          _RL gencost_preproc_r(NGENPPROC,NGENCOST)
233        common /ecco_gencost_r_2/        _RL gencost_posproc_r(NGENPPROC,NGENCOST)
      &       gencost_period  
       _RL     gencost_period(NGENCOST)  
234    
235        common /ecco_gencost_i_1/        common /ecco_gencost_i_1/
236       &       gencost_nrec, gencost_nrecperiod,       &       gencost_nrec, gencost_nrecperiod,
# Line 216  c     objf_gencost - gencost user define Line 238  c     objf_gencost - gencost user define
238       &       gencost_startdate1, gencost_startdate2,       &       gencost_startdate1, gencost_startdate2,
239       &       gencost_enddate1, gencost_enddate2,       &       gencost_enddate1, gencost_enddate2,
240       &       gencost_startdate, gencost_enddate,       &       gencost_startdate, gencost_enddate,
241       &       gencost_pointer3d, gencost_smooth2Ddiffnbt       &       gencost_pointer3d, gencost_smooth2Ddiffnbt,
242         &       gencost_preproc_i, gencost_posproc_i
243    
244        integer gencost_nrec(NGENCOST)        integer gencost_nrec(NGENCOST)
245        integer gencost_nrecperiod(NGENCOST)        integer gencost_nrecperiod(NGENCOST)
# Line 230  c     objf_gencost - gencost user define Line 253  c     objf_gencost - gencost user define
253        integer gencost_enddate(4,NGENCOST)        integer gencost_enddate(4,NGENCOST)
254        integer gencost_pointer3d(NGENCOST)        integer gencost_pointer3d(NGENCOST)
255        integer  gencost_smooth2Ddiffnbt(NGENCOST)        integer  gencost_smooth2Ddiffnbt(NGENCOST)
256          integer gencost_preproc_i(NGENPPROC,NGENCOST)
257          integer gencost_posproc_i(NGENPPROC,NGENCOST)
258    
259        common /ecco_gencost_l_1/        common /ecco_gencost_l_1/
260       &       gencost_timevaryweight, gencost_barskip,       &       gencost_timevaryweight, gencost_barskip,
# Line 247  c     objf_gencost - gencost user define Line 272  c     objf_gencost - gencost user define
272       &       gencost_barfile,       &       gencost_barfile,
273       &       gencost_avgperiod,       &       gencost_avgperiod,
274       &       gencost_preproc,       &       gencost_preproc,
275         &       gencost_preproc_c,
276       &       gencost_posproc,       &       gencost_posproc,
277         &       gencost_posproc_c,
278       &       gencost_mask       &       gencost_mask
279        character*(MAX_LEN_FNAM) gencost_name(NGENCOST)        character*(MAX_LEN_FNAM) gencost_name(NGENCOST)
280        character*(MAX_LEN_FNAM) gencost_scalefile(NGENCOST)        character*(MAX_LEN_FNAM) gencost_scalefile(NGENCOST)
# Line 255  c     objf_gencost - gencost user define Line 282  c     objf_gencost - gencost user define
282        character*(MAX_LEN_FNAM) gencost_datafile(NGENCOST)        character*(MAX_LEN_FNAM) gencost_datafile(NGENCOST)
283        character*(MAX_LEN_FNAM) gencost_barfile(NGENCOST)        character*(MAX_LEN_FNAM) gencost_barfile(NGENCOST)
284        character*(5)            gencost_avgperiod(NGENCOST)        character*(5)            gencost_avgperiod(NGENCOST)
285        character*(16)           gencost_preproc(NGENCOST)        character*(MAX_LEN_FNAM) gencost_preproc(NGENPPROC,NGENCOST)
286        character*(16)           gencost_posproc(NGENCOST)        character*(MAX_LEN_FNAM) gencost_posproc_c(NGENPPROC,NGENCOST)
287          character*(MAX_LEN_FNAM) gencost_posproc(NGENPPROC,NGENCOST)
288          character*(MAX_LEN_FNAM) gencost_preproc_c(NGENPPROC,NGENCOST)
289        character*(1)            gencost_mask(NGENCOST)        character*(1)            gencost_mask(NGENCOST)
290    
291  #endif /* ALLOW_GENCOST_CONTRIBUTION */  #endif /* ALLOW_GENCOST_CONTRIBUTION */
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22