/[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.3 by gforget, Mon Sep 29 16:45:45 2014 UTC revision 1.4 by gforget, Wed Oct 1 12:54:04 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    
150    c     empty preprocessing name:
151    c     =========================
152          character*(8) no_preproc
153          PARAMETER ( no_preproc='        ' )
154    
155  c     Number of User Cost terms:  c     Number of User Cost terms:
156  c     =============================  c     =============================
157        INTEGER NUSERCOST        INTEGER NUSERCOST
# Line 157  c     ============================= Line 162  c     =============================
162        INTEGER NGENCOST        INTEGER NGENCOST
163        PARAMETER ( NGENCOST=20 )        PARAMETER ( NGENCOST=20 )
164    
165          INTEGER NGENCOST3D
166    #ifdef ALLOW_GENCOST3D
167          PARAMETER ( NGENCOST3D=2 )
168    #else
169          PARAMETER ( NGENCOST3D=0 )
170    #endif
171    
172  #ifdef ALLOW_GENCOST_CONTRIBUTION  #ifdef ALLOW_GENCOST_CONTRIBUTION
173  c     objf_gencost - gencost user defined contribution  c     objf_gencost - gencost user defined contribution
174        common /ecco_gencost_ctrl/        common /ecco_gencost_ctrl/
# Line 166  c     objf_gencost - gencost user define Line 178  c     objf_gencost - gencost user define
178        common /ecco_gencost_r_1/        common /ecco_gencost_r_1/
179       &       objf_gencost, num_gencost, mult_gencost,       &       objf_gencost, num_gencost, mult_gencost,
180       &       gencost_barfld, gencost_modfld, gencost_weight,       &       gencost_barfld, gencost_modfld, gencost_weight,
181    #ifdef ALLOW_GENCOST3D
182         &       gencost_bar3d, gencost_mod3d, gencost_wei3d,
183    #endif
184       &       gencost_spmin, gencost_spmax, gencost_spzero       &       gencost_spmin, gencost_spmax, gencost_spzero
185        _RL  objf_gencost(nsx,nsy,NGENCOST)        _RL  objf_gencost(nsx,nsy,NGENCOST)
186        _RL  num_gencost(nsx,nsy,NGENCOST)        _RL  num_gencost(nsx,nsy,NGENCOST)
# Line 179  c     objf_gencost - gencost user define Line 194  c     objf_gencost - gencost user define
194       &       nsx,nsy,NGENCOST)       &       nsx,nsy,NGENCOST)
195        _RL  gencost_weight(1-olx:snx+olx,1-oly:sny+oly,        _RL  gencost_weight(1-olx:snx+olx,1-oly:sny+oly,
196       &       nsx,nsy,NGENCOST)       &       nsx,nsy,NGENCOST)
197    #ifdef ALLOW_GENCOST3D
198          _RL  gencost_bar3d(1-olx:snx+olx,1-oly:sny+oly,
199         &       nr,nsx,nsy,NGENCOST3D)
200          _RL  gencost_mod3d(1-olx:snx+olx,1-oly:sny+oly,
201         &       nr,nsx,nsy,NGENCOST3D)
202          _RL  gencost_wei3d(1-olx:snx+olx,1-oly:sny+oly,
203         &       nr,nsx,nsy,NGENCOST3D)
204    #endif
205    
206        common /ecco_gencost_r_2/        common /ecco_gencost_r_2/
207       &       gencost_period       &       gencost_period
# Line 188  c     objf_gencost - gencost user define Line 211  c     objf_gencost - gencost user define
211       &       gencost_nrec, gencost_flag,       &       gencost_nrec, gencost_flag,
212       &       gencost_startdate1, gencost_startdate2,       &       gencost_startdate1, gencost_startdate2,
213       &       gencost_enddate1, gencost_enddate2,       &       gencost_enddate1, gencost_enddate2,
214       &       gencost_startdate, gencost_enddate       &       gencost_startdate, gencost_enddate,
215  #ifdef ALLOW_SMOOTH       &       gencost_pointer3d, gencost_smooth2Ddiffnbt
      &       , gencost_smooth2Ddiffnbt  
 #endif /* ALLOW_SMOOTH */  
216    
217        integer gencost_nrec(NGENCOST)        integer gencost_nrec(NGENCOST)
218        integer gencost_flag(NGENCOST)        integer gencost_flag(NGENCOST)
# Line 201  c     objf_gencost - gencost user define Line 222  c     objf_gencost - gencost user define
222        integer gencost_enddate1(NGENCOST)        integer gencost_enddate1(NGENCOST)
223        integer gencost_enddate2(NGENCOST)        integer gencost_enddate2(NGENCOST)
224        integer gencost_enddate(4,NGENCOST)        integer gencost_enddate(4,NGENCOST)
225  #ifdef ALLOW_SMOOTH        integer gencost_pointer3d(NGENCOST)
226        integer  gencost_smooth2Ddiffnbt(NGENCOST)        integer  gencost_smooth2Ddiffnbt(NGENCOST)
 #endif /* ALLOW_SMOOTH */  
227    
228        common /ecco_gencost_l_1/        common /ecco_gencost_l_1/
 #ifdef ALLOW_GENCOST_TIMEVARY_WEIGHT  
229       &       gencost_timevaryweight,       &       gencost_timevaryweight,
230  #endif /* ALLOW_GENCOST_TIMEVARY_WEIGHT */       &       using_gencost, gencost_is3d
      &       using_gencost  
231        LOGICAL using_gencost(NGENCOST)        LOGICAL using_gencost(NGENCOST)
232  #ifdef ALLOW_GENCOST_TIMEVARY_WEIGHT        LOGICAL gencost_is3d(NGENCOST)
233        LOGICAL gencost_timevaryweight(NGENCOST)        LOGICAL gencost_timevaryweight(NGENCOST)
 #endif /* ALLOW_GENCOST_TIMEVARY_WEIGHT */  
234    
235        common /ecco_gencost_c/        common /ecco_gencost_c/
236       &       gencost_name,       &       gencost_name,
# Line 222  c     objf_gencost - gencost user define Line 239  c     objf_gencost - gencost user define
239       &       gencost_datafile,       &       gencost_datafile,
240       &       gencost_barfile,       &       gencost_barfile,
241       &       gencost_avgperiod,       &       gencost_avgperiod,
242         &       gencost_preproc,
243       &       gencost_mask       &       gencost_mask
244        character*(MAX_LEN_FNAM) gencost_name(NGENCOST)        character*(MAX_LEN_FNAM) gencost_name(NGENCOST)
245        character*(MAX_LEN_FNAM) gencost_scalefile(NGENCOST)        character*(MAX_LEN_FNAM) gencost_scalefile(NGENCOST)
# Line 229  c     objf_gencost - gencost user define Line 247  c     objf_gencost - gencost user define
247        character*(MAX_LEN_FNAM) gencost_datafile(NGENCOST)        character*(MAX_LEN_FNAM) gencost_datafile(NGENCOST)
248        character*(MAX_LEN_FNAM) gencost_barfile(NGENCOST)        character*(MAX_LEN_FNAM) gencost_barfile(NGENCOST)
249        character*(5)            gencost_avgperiod(NGENCOST)        character*(5)            gencost_avgperiod(NGENCOST)
250          character*(8)            gencost_preproc(NGENCOST)
251        character*(1)            gencost_mask(NGENCOST)        character*(1)            gencost_mask(NGENCOST)
252    
253  #endif /* ALLOW_GENCOST_CONTRIBUTION */  #endif /* ALLOW_GENCOST_CONTRIBUTION */
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22