/[MITgcm]/MITgcm/pkg/ecco/cost_forcing.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/cost_forcing.F

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

revision 1.11 by heimbach, Mon Oct 23 22:43:05 2006 UTC revision 1.12 by heimbach, Fri Oct 27 05:16:54 2006 UTC
# Line 198  c--   Atmos. swflux. contribution to the Line 198  c--   Atmos. swflux. contribution to the
198  #if (defined (ALLOW_SWDOWN_COST_CONTRIBUTION) && \  #if (defined (ALLOW_SWDOWN_COST_CONTRIBUTION) && \
199         defined (ALLOW_SWDOWN_CONTROL))         defined (ALLOW_SWDOWN_CONTROL))
200  c--   Atmos. swdown. contribution to the cost function.  c--   Atmos. swdown. contribution to the cost function.
201        startrec = ncvarrecstart(33)        startrec = ncvarrecstart(34)
202        endrec   = ncvarrecsend(33)        endrec   = ncvarrecsend(34)
203        call cost_forcing_gen (        call cost_forcing_gen (
204       &     myiter, mytime, startrec, endrec,       &     myiter, mytime, startrec, endrec,
205       &     xx_swdown_file, xx_swdown_dummy, xx_swdownperiod,       &     xx_swdown_file, xx_swdown_dummy, xx_swdownperiod,
# Line 210  c--   Atmos. swdown. contribution to the Line 210  c--   Atmos. swdown. contribution to the
210       &     maskC, mythid )       &     maskC, mythid )
211  #endif  #endif
212    
213    #if (defined (ALLOW_LWFLUX_COST_CONTRIBUTION) && \
214           defined (ALLOW_LWFLUX_CONTROL))
215    c--   Atmos. lwflux. contribution to the cost function.
216          startrec = ncvarrecstart(35)
217          endrec   = ncvarrecsend(35)
218          call cost_forcing_gen (
219         &     myiter, mytime, startrec, endrec,
220         &     xx_lwflux_file, xx_lwflux_dummy, xx_lwfluxperiod,
221         &     wmean_lwflux, wlwflux,
222         &     num_lwflux, num_lwfluxm,
223         &     objf_lwflux, objf_lwfluxm, objf_lwfluxsmoo,
224         &     xx_lwflux_remo_intercept, xx_lwflux_remo_slope,
225         &     maskC, mythid )
226    #endif
227    
228    #if (defined (ALLOW_LWDOWN_COST_CONTRIBUTION) && \
229           defined (ALLOW_LWDOWN_CONTROL))
230    c--   Atmos. lwdown. contribution to the cost function.
231          startrec = ncvarrecstart(36)
232          endrec   = ncvarrecsend(36)
233          call cost_forcing_gen (
234         &     myiter, mytime, startrec, endrec,
235         &     xx_lwdown_file, xx_lwdown_dummy, xx_lwdownperiod,
236         &     wmean_lwdown, wlwdown,
237         &     num_lwdown, num_lwdownm,
238         &     objf_lwdown, objf_lwdownm, objf_lwdownsmoo,
239         &     xx_lwdown_remo_intercept, xx_lwdown_remo_slope,
240         &     maskC, mythid )
241    #endif
242    
243    #if (defined (ALLOW_EVAP_COST_CONTRIBUTION) && \
244           defined (ALLOW_EVAP_CONTROL))
245    c--   Atmos. evap. contribution to the cost function.
246          startrec = ncvarrecstart(36)
247          endrec   = ncvarrecsend(36)
248          call cost_forcing_gen (
249         &     myiter, mytime, startrec, endrec,
250         &     xx_evap_file, xx_evap_dummy, xx_evapperiod,
251         &     wmean_evap, wevap,
252         &     num_evap, num_evapm,
253         &     objf_evap, objf_evapm, objf_evapsmoo,
254         &     xx_evap_remo_intercept, xx_evap_remo_slope,
255         &     maskC, mythid )
256    #endif
257    
258    #if (defined (ALLOW_SNOWPRECIP_COST_CONTRIBUTION) && \
259           defined (ALLOW_SNOWPRECIP_CONTROL))
260    c--   Atmos. snowprecip. contribution to the cost function.
261          startrec = ncvarrecstart(36)
262          endrec   = ncvarrecsend(36)
263          call cost_forcing_gen (
264         &     myiter, mytime, startrec, endrec,
265         &     xx_snowprecip_file, xx_snowprecip_dummy, xx_snowprecipperiod,
266         &     wmean_snowprecip, wsnowprecip,
267         &     num_snowprecip, num_snowprecipm,
268         &     objf_snowprecip, objf_snowprecipm, objf_snowprecipsmoo,
269         &     xx_snowprecip_remo_intercept, xx_snowprecip_remo_slope,
270         &     maskC, mythid )
271    #endif
272    
273    #if (defined (ALLOW_APRESSURE_COST_CONTRIBUTION) && \
274           defined (ALLOW_APRESSURE_CONTROL))
275    c--   Atmos. apressure. contribution to the cost function.
276          startrec = ncvarrecstart(36)
277          endrec   = ncvarrecsend(36)
278          call cost_forcing_gen (
279         &     myiter, mytime, startrec, endrec,
280         &     xx_apressure_file, xx_apressure_dummy, xx_apressureperiod,
281         &     wmean_apressure, wapressure,
282         &     num_apressure, num_apressurem,
283         &     objf_apressure, objf_apressurem, objf_apressuresmoo,
284         &     xx_apressure_remo_intercept, xx_apressure_remo_slope,
285         &     maskC, mythid )
286    #endif
287    
288    #if (defined (ALLOW_RUNOFF_COST_CONTRIBUTION) && \
289           defined (ALLOW_RUNOFF_CONTROL))
290    c--   Atmos. runoff. contribution to the cost function.
291          startrec = ncvarrecstart(36)
292          endrec   = ncvarrecsend(36)
293          call cost_forcing_gen (
294         &     myiter, mytime, startrec, endrec,
295         &     xx_runoff_file, xx_runoff_dummy, xx_runoffperiod,
296         &     wmean_runoff, wrunoff,
297         &     num_runoff, num_runoffm,
298         &     objf_runoff, objf_runoffm, objf_runoffsmoo,
299         &     xx_runoff_remo_intercept, xx_runoff_remo_slope,
300         &     maskC, mythid )
301    #endif
302    
303        end        end
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22