/[MITgcm]/MITgcm/pkg/exf/exf_param.h
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_param.h

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

revision 1.8 by heimbach, Fri May 23 18:37:31 2003 UTC revision 1.28 by dimitri, Thu Jan 18 23:44:43 2007 UTC
# Line 30  c     ================================== Line 30  c     ==================================
30  c     HEADER exf_param  c     HEADER exf_param
31  c     ==================================================================  c     ==================================================================
32    
33    c     year in seconds
34          _RL     year2sec
35    
36  c     Calendar data.  c     Calendar data.
37        _RL     repeatPeriod        _RL     repeatPeriod
38    
39    c     Monitor Frequency (s)
40          _RL     exf_monFreq
41    
42    c     Sea-water albedo
43          _RL     exf_albedo
44    c     longwave surface emissivities (ice and snow emissivities are used
45    c     in conjunction with thsice/seaice)
46          _RL     ocean_emissivity
47          _RL     ice_emissivity
48          _RL     snow_emissivity
49    
50    c     Drag coefficient scaling factor
51          _RL     exf_scal_BulkCdn
52    
53    c     Maximum absolute windstress, used to reset unreastically high
54    c     data values
55          _RL     windstressmax
56    
57        integer hfluxstartdate1        integer hfluxstartdate1
58        integer hfluxstartdate2        integer hfluxstartdate2
59        integer hfluxstartdate(4)        _RL     hfluxstartdate
60        _RL     hfluxperiod        _RL     hfluxperiod
61        _RL     hfluxconst        _RL     hfluxconst
62          _RL     hflux_exfremo_intercept
63          _RL     hflux_exfremo_slope
64        character*1 hfluxmask        character*1 hfluxmask
65        parameter(  hfluxmask = 's' )        parameter(  hfluxmask = 's' )
66    
67        integer atempstartdate1        integer atempstartdate1
68        integer atempstartdate2        integer atempstartdate2
69        integer atempstartdate(4)        _RL     atempstartdate
70        _RL     atempperiod        _RL     atempperiod
71        _RL     atempconst        _RL     atempconst
72          _RL     atemp_exfremo_intercept
73          _RL     atemp_exfremo_slope
74        character*1 atempmask        character*1 atempmask
75        parameter(  atempmask = 's' )        parameter(  atempmask = 's' )
76    
77        integer aqhstartdate1        integer aqhstartdate1
78        integer aqhstartdate2        integer aqhstartdate2
79        integer aqhstartdate(4)        _RL     aqhstartdate
80        _RL     aqhperiod        _RL     aqhperiod
81        _RL     aqhconst        _RL     aqhconst
82          _RL     aqh_exfremo_intercept
83          _RL     aqh_exfremo_slope
84        character*1 aqhmask        character*1 aqhmask
85        parameter(  aqhmask = 's' )        parameter(  aqhmask = 's' )
86    
87        integer sfluxstartdate1        integer sfluxstartdate1
88        integer sfluxstartdate2        integer sfluxstartdate2
89        integer sfluxstartdate(4)        _RL     sfluxstartdate
90        _RL     sfluxperiod        _RL     sfluxperiod
91        _RL     sfluxconst        _RL     sfluxconst
92          _RL     sflux_exfremo_intercept
93          _RL     sflux_exfremo_slope
94        character*1 sfluxmask        character*1 sfluxmask
95        parameter(  sfluxmask = 's' )        parameter(  sfluxmask = 's' )
96    
97        integer evapstartdate1        integer evapstartdate1
98        integer evapstartdate2        integer evapstartdate2
99        integer evapstartdate(4)        _RL     evapstartdate
100        _RL     evapperiod        _RL     evapperiod
101        _RL     evapconst        _RL     evapconst
102          _RL     evap_exfremo_intercept
103          _RL     evap_exfremo_slope
104        character*1 evapmask        character*1 evapmask
105        parameter(  evapmask = 's' )        parameter(  evapmask = 's' )
106    
107        integer precipstartdate1        integer precipstartdate1
108        integer precipstartdate2        integer precipstartdate2
109        integer precipstartdate(4)        _RL     precipstartdate
110        _RL     precipperiod        _RL     precipperiod
111        _RL     precipconst        _RL     precipconst
112          _RL     precip_exfremo_intercept
113          _RL     precip_exfremo_slope
114        character*1 precipmask        character*1 precipmask
115        parameter(  precipmask = 's' )        parameter(  precipmask = 's' )
116    
117          integer snowprecipstartdate1
118          integer snowprecipstartdate2
119          _RL     snowprecipstartdate
120          _RL     snowprecipperiod
121          _RL     snowprecipconst
122          _RL     snowprecip_exfremo_intercept
123          _RL     snowprecip_exfremo_slope
124          character*1 snowprecipmask
125          parameter(  snowprecipmask = 's' )
126    
127        integer runoffstartdate1        integer runoffstartdate1
128        integer runoffstartdate2        integer runoffstartdate2
129        integer runoffstartdate(4)        _RL     runoffstartdate
130        _RL     runoffperiod        _RL     runoffperiod
131        _RL     runoffconst        _RL     runoffconst
132          _RL     runoff_exfremo_intercept
133          _RL     runoff_exfremo_slope
134        character*1 runoffmask        character*1 runoffmask
135        parameter(  runoffmask = 's' )        parameter(  runoffmask = 's' )
136    
137        integer ustressstartdate1        integer ustressstartdate1
138        integer ustressstartdate2        integer ustressstartdate2
139        integer ustressstartdate(4)        _RL     ustressstartdate
140        _RL     ustressperiod        _RL     ustressperiod
141        _RL     ustressconst        _RL     ustressconst
142          _RL     ustress_exfremo_intercept
143          _RL     ustress_exfremo_slope
144        character*1 ustressmask        character*1 ustressmask
145        parameter(  ustressmask = 'u' )        parameter(  ustressmask = 'u' )
146    
147        integer vstressstartdate1        integer vstressstartdate1
148        integer vstressstartdate2        integer vstressstartdate2
149        integer vstressstartdate(4)        _RL     vstressstartdate
150        _RL     vstressperiod        _RL     vstressperiod
151        _RL     vstressconst        _RL     vstressconst
152          _RL     vstress_exfremo_intercept
153          _RL     vstress_exfremo_slope
154        character*1 vstressmask        character*1 vstressmask
155        parameter(  vstressmask = 'v' )        parameter(  vstressmask = 'v' )
156    
157        integer uwindstartdate1        integer uwindstartdate1
158        integer uwindstartdate2        integer uwindstartdate2
159        integer uwindstartdate(4)        _RL     uwindstartdate
160        _RL     uwindperiod        _RL     uwindperiod
161        _RL     uwindconst        _RL     uwindconst
162          _RL     uwind_exfremo_intercept
163          _RL     uwind_exfremo_slope
164        character*1 uwindmask        character*1 uwindmask
165        parameter(  uwindmask = 'u' )        parameter(  uwindmask = 's' )
166    
167        integer vwindstartdate1        integer vwindstartdate1
168        integer vwindstartdate2        integer vwindstartdate2
169        integer vwindstartdate(4)        _RL     vwindstartdate
170        _RL     vwindperiod        _RL     vwindperiod
171        _RL     vwindconst        _RL     vwindconst
172          _RL     vwind_exfremo_intercept
173          _RL     vwind_exfremo_slope
174        character*1 vwindmask        character*1 vwindmask
175        parameter(  vwindmask = 'v' )        parameter(  vwindmask = 's' )
176    
177          integer wspeedstartdate1
178          integer wspeedstartdate2
179          _RL     wspeedstartdate
180          _RL     wspeedperiod
181          _RL     wspeedconst
182          _RL     wspeed_exfremo_intercept
183          _RL     wspeed_exfremo_slope
184          character*1 wspeedmask
185          parameter(  wspeedmask = 's' )
186    
187        integer swfluxstartdate1        integer swfluxstartdate1
188        integer swfluxstartdate2        integer swfluxstartdate2
189        integer swfluxstartdate(4)        _RL     swfluxstartdate
190        _RL     swfluxperiod        _RL     swfluxperiod
191        _RL     swfluxconst        _RL     swfluxconst
192          _RL     swflux_exfremo_intercept
193          _RL     swflux_exfremo_slope
194        character*1 swfluxmask        character*1 swfluxmask
195        parameter(  swfluxmask = 's' )        parameter(  swfluxmask = 's' )
196    
197        integer lwfluxstartdate1        integer lwfluxstartdate1
198        integer lwfluxstartdate2        integer lwfluxstartdate2
199        integer lwfluxstartdate(4)        _RL     lwfluxstartdate
200        _RL     lwfluxperiod        _RL     lwfluxperiod
201        _RL     lwfluxconst        _RL     lwfluxconst
202          _RL     lwflux_exfremo_intercept
203          _RL     lwflux_exfremo_slope
204        character*1 lwfluxmask        character*1 lwfluxmask
205        parameter(  lwfluxmask = 's' )        parameter(  lwfluxmask = 's' )
206    
207        integer swdownstartdate1        integer swdownstartdate1
208        integer swdownstartdate2        integer swdownstartdate2
209        integer swdownstartdate(4)        _RL     swdownstartdate
210        _RL     swdownperiod        _RL     swdownperiod
211        _RL     swdownconst        _RL     swdownconst
212          _RL     swdown_exfremo_intercept
213          _RL     swdown_exfremo_slope
214        character*1 swdownmask        character*1 swdownmask
215        parameter(  swdownmask = 's' )        parameter(  swdownmask = 's' )
216    
217        integer lwdownstartdate1        integer lwdownstartdate1
218        integer lwdownstartdate2        integer lwdownstartdate2
219        integer lwdownstartdate(4)        _RL     lwdownstartdate
220        _RL     lwdownperiod        _RL     lwdownperiod
221        _RL     lwdownconst        _RL     lwdownconst
222          _RL     lwdown_exfremo_intercept
223          _RL     lwdown_exfremo_slope
224        character*1 lwdownmask        character*1 lwdownmask
225        parameter(  lwdownmask = 's' )        parameter(  lwdownmask = 's' )
226    
227          integer apressurestartdate1
228          integer apressurestartdate2
229          _RL     apressurestartdate
230          _RL     apressureperiod
231          _RL     apressureconst
232          _RL     apressure_exfremo_intercept
233          _RL     apressure_exfremo_slope
234          character*1 apressuremask
235          parameter(  apressuremask = 's' )
236    
237        integer obcsNstartdate1        integer obcsNstartdate1
238        integer obcsNstartdate2        integer obcsNstartdate2
239        integer obcsNstartdate(4)        _RL     obcsNstartdate
240        _RL     obcsNperiod        _RL     obcsNperiod
241    
242        integer obcsSstartdate1        integer obcsSstartdate1
243        integer obcsSstartdate2        integer obcsSstartdate2
244        integer obcsSstartdate(4)        _RL     obcsSstartdate
245        _RL     obcsSperiod        _RL     obcsSperiod
246    
247        integer obcsEstartdate1        integer obcsEstartdate1
248        integer obcsEstartdate2        integer obcsEstartdate2
249        integer obcsEstartdate(4)        _RL     obcsEstartdate
250        _RL     obcsEperiod        _RL     obcsEperiod
251    
252        integer obcsWstartdate1        integer obcsWstartdate1
253        integer obcsWstartdate2        integer obcsWstartdate2
254        integer obcsWstartdate(4)        _RL     obcsWstartdate
255        _RL     obcsWperiod        _RL     obcsWperiod
256    
       integer apressurestartdate1  
       integer apressurestartdate2  
       integer apressurestartdate(4)  
       _RL     apressureperiod  
       _RL     apressureconst  
       character*1 apressuremask  
       parameter(  apressuremask = 's' )  
   
257  c     File names.  c     File names.
258        character*(128) hfluxfile        character*(128) hfluxfile
259        character*(128) atempfile        character*(128) atempfile
260        character*(128) aqhfile        character*(128) aqhfile
261        character*(128) evapfile        character*(128) evapfile
262        character*(128) precipfile        character*(128) precipfile
263          character*(128) snowprecipfile
264        character*(128) sfluxfile        character*(128) sfluxfile
265        character*(128) runofffile        character*(128) runofffile
266        character*(128) ustressfile        character*(128) ustressfile
267        character*(128) vstressfile        character*(128) vstressfile
268        character*(128) uwindfile        character*(128) uwindfile
269        character*(128) vwindfile        character*(128) vwindfile
270          character*(128) wspeedfile
271        character*(128) swfluxfile        character*(128) swfluxfile
272        character*(128) lwfluxfile        character*(128) lwfluxfile
273        character*(128) swdownfile        character*(128) swdownfile
274        character*(128) lwdownfile        character*(128) lwdownfile
275        character*(128) apressurefile        character*(128) apressurefile
276    
277    c     File names for initial fields.
278          character*(128) hflux0file
279          character*(128) atemp0file
280          character*(128) aqh0file
281          character*(128) evap0file
282          character*(128) precip0file
283          character*(128) snowprecip0file
284          character*(128) sflux0file
285          character*(128) runoff0file
286          character*(128) ustress0file
287          character*(128) vstress0file
288          character*(128) uwind0file
289          character*(128) vwind0file
290          character*(128) wspeed0file
291          character*(128) swflux0file
292          character*(128) lwflux0file
293          character*(128) swdown0file
294          character*(128) lwdown0file
295          character*(128) apressure0file
296    
297    C     useExfYearlyFields :: when set, automatically add extension
298    C                           _YEAR to input file names
299    C     twoDigitYear       :: when set, use 2-digit year extension YR
300    C                           instead of _YEAR for useExfYearlyFields
301          logical useExfYearlyFields, twoDigitYear
302          logical useExfCheckRange
303    
304          common /exf_param_l/
305         &                     useExfYearlyFields, twoDigitYear,
306         &                     useExfCheckRange
307        common /exf_param_i/        common /exf_param_i/
308       &                          repeatPeriod,       &                     hfluxstartdate1,   hfluxstartdate2,
309       &                          hfluxstartdate1,   hfluxstartdate2,       &                     atempstartdate1,   atempstartdate2,
310       &                          atempstartdate1,   atempstartdate2,       &                     aqhstartdate1,     aqhstartdate2,
311       &                          aqhstartdate1,     aqhstartdate2,       &                     sfluxstartdate1,   sfluxstartdate2,
312       &                          sfluxstartdate1,   sfluxstartdate2,       &                     evapstartdate1,    evapstartdate2,
313       &                          evapstartdate1,    evapstartdate2,       &                     runoffstartdate1,  runoffstartdate2,
314       &                          runoffstartdate1,  runoffstartdate2,       &                     precipstartdate1,  precipstartdate2,
315       &                          precipstartdate1,  precipstartdate2,       &                     snowprecipstartdate1, snowprecipstartdate2,
316       &                          ustressstartdate1, ustressstartdate2,       &                     ustressstartdate1, ustressstartdate2,
317       &                          vstressstartdate1, vstressstartdate2,       &                     vstressstartdate1, vstressstartdate2,
318       &                          uwindstartdate1,   uwindstartdate2,       &                     uwindstartdate1,   uwindstartdate2,
319       &                          vwindstartdate1,   vwindstartdate2,       &                     vwindstartdate1,   vwindstartdate2,
320       &                          swfluxstartdate1,  swfluxstartdate2,       &                     wspeedstartdate1,  wspeedstartdate2,
321       &                          lwfluxstartdate1,  lwfluxstartdate2,       &                     swfluxstartdate1,  swfluxstartdate2,
322       &                          swdownstartdate1,  swdownstartdate2,       &                     lwfluxstartdate1,  lwfluxstartdate2,
323       &                          lwdownstartdate1,  lwdownstartdate2,       &                     swdownstartdate1,  swdownstartdate2,
324       &                          obcsNstartdate1,   obcsNstartdate2,       &                     lwdownstartdate1,  lwdownstartdate2,
325       &                          obcsSstartdate1,   obcsSstartdate2,       &                     obcsNstartdate1,   obcsNstartdate2,
326       &                          obcsEstartdate1,   obcsEstartdate2,       &                     obcsSstartdate1,   obcsSstartdate2,
327       &                          obcsWstartdate1,   obcsWstartdate2,       &                     obcsEstartdate1,   obcsEstartdate2,
328       &                          apressurestartdate1,apressurestartdate2,       &                     obcsWstartdate1,   obcsWstartdate2,
329       &                          hfluxstartdate,       &                     apressurestartdate1,apressurestartdate2
      &                          atempstartdate,  
      &                          aqhstartdate,  
      &                          sfluxstartdate,  
      &                          evapstartdate,  
      &                          precipstartdate,  
      &                          runoffstartdate,  
      &                          ustressstartdate,  
      &                          vstressstartdate,  
      &                          uwindstartdate,  
      &                          vwindstartdate,  
      &                          swfluxstartdate,  
      &                          lwfluxstartdate,  
      &                          swdownstartdate,  
      &                          lwdownstartdate,  
      &                          obcsNstartdate,  
      &                          obcsSstartdate,  
      &                          obcsEstartdate,  
      &                          obcsWstartdate,  
      &                          apressurestartdate  
330    
331        common /exf_param_r/        common /exf_param_r/
332       &                          hfluxperiod,       &                     year2sec,          windstressmax,
333       &                          atempperiod,       &                     repeatPeriod,      exf_monFreq,
334       &                          aqhperiod,       &                     exf_albedo,        ocean_emissivity,
335       &                          sfluxperiod,       &                     ice_emissivity,    snow_emissivity,
336       &                          evapperiod,       &                     exf_scal_BulkCdn,
337       &                          precipperiod,       &                     hfluxperiod,       hfluxstartdate,
338       &                          runoffperiod,       &                     atempperiod,       atempstartdate,
339       &                          ustressperiod,       &                     aqhperiod,         aqhstartdate,
340       &                          vstressperiod,       &                     sfluxperiod,       sfluxstartdate,
341       &                          uwindperiod,       &                     evapperiod,        evapstartdate,
342       &                          vwindperiod,       &                     precipperiod,      precipstartdate,
343       &                          swfluxperiod,       &                     snowprecipperiod,  snowprecipstartdate,
344       &                          lwfluxperiod,       &                     runoffperiod,      runoffstartdate,
345       &                          swdownperiod,       &                     ustressperiod,     ustressstartdate,
346       &                          lwdownperiod,       &                     vstressperiod,     vstressstartdate,
347       &                          obcsNperiod,       &                     uwindperiod,       uwindstartdate,
348       &                          obcsSperiod,       &                     vwindperiod,       vwindstartdate,
349       &                          obcsEperiod,       &                     wspeedperiod,      wspeedstartdate,
350       &                          obcsWperiod,       &                     swfluxperiod,      swfluxstartdate,
351       &                          apressureperiod,       &                     lwfluxperiod,      lwfluxstartdate,
352       &                          hfluxconst,       &                     swdownperiod,      swdownstartdate,
353       &                          atempconst,       &                     lwdownperiod,      lwdownstartdate,
354       &                          aqhconst,       &                     obcsNperiod,       obcsNstartdate,
355       &                          sfluxconst,       &                     obcsSperiod,       obcsSstartdate,
356       &                          evapconst,       &                     obcsEperiod,       obcsEstartdate,
357       &                          precipconst,       &                     obcsWperiod,       obcsWstartdate,
358       &                          runoffconst,       &                     apressureperiod,   apressurestartdate,
359       &                          ustressconst,       &                     hfluxconst,
360       &                          vstressconst,       &                     atempconst,
361       &                          uwindconst,       &                     aqhconst,
362       &                          vwindconst,       &                     sfluxconst,
363       &                          swfluxconst,       &                     evapconst,
364       &                          lwfluxconst,       &                     precipconst,
365       &                          swdownconst,       &                     snowprecipconst,
366       &                          lwdownconst,       &                     runoffconst,
367       &                          apressureconst       &                     ustressconst,
368         &                     vstressconst,
369         &                     uwindconst,
370         &                     vwindconst,
371         &                     wspeedconst,
372         &                     swfluxconst,
373         &                     lwfluxconst,
374         &                     swdownconst,
375         &                     lwdownconst,
376         &                     apressureconst
377    
378          common /exf_param_trend_removal/
379         &                     hflux_exfremo_intercept,
380         &                     atemp_exfremo_intercept,
381         &                     aqh_exfremo_intercept,
382         &                     sflux_exfremo_intercept,
383         &                     evap_exfremo_intercept,
384         &                     precip_exfremo_intercept,
385         &                     snowprecip_exfremo_intercept,
386         &                     runoff_exfremo_intercept,
387         &                     ustress_exfremo_intercept,
388         &                     vstress_exfremo_intercept,
389         &                     uwind_exfremo_intercept,
390         &                     vwind_exfremo_intercept,
391         &                     wspeed_exfremo_intercept,
392         &                     swflux_exfremo_intercept,
393         &                     lwflux_exfremo_intercept,
394         &                     swdown_exfremo_intercept,
395         &                     lwdown_exfremo_intercept,
396         &                     apressure_exfremo_intercept,
397         &                     hflux_exfremo_slope,
398         &                     atemp_exfremo_slope,
399         &                     aqh_exfremo_slope,
400         &                     sflux_exfremo_slope,
401         &                     evap_exfremo_slope,
402         &                     precip_exfremo_slope,
403         &                     snowprecip_exfremo_slope,
404         &                     runoff_exfremo_slope,
405         &                     ustress_exfremo_slope,
406         &                     vstress_exfremo_slope,
407         &                     uwind_exfremo_slope,
408         &                     vwind_exfremo_slope,
409         &                     wspeed_exfremo_slope,
410         &                     swflux_exfremo_slope,
411         &                     lwflux_exfremo_slope,
412         &                     swdown_exfremo_slope,
413         &                     lwdown_exfremo_slope,
414         &                     apressure_exfremo_slope
415    
416        common /exf_param_c/        common /exf_param_c/
417       &                          hfluxfile,       &                     hfluxfile,
418       &                          atempfile,       &                     atempfile,
419       &                          aqhfile,       &                     aqhfile,
420       &                          sfluxfile,       &                     sfluxfile,
421       &                          evapfile,       &                     evapfile,
422       &                          precipfile,       &                     precipfile,
423       &                          runofffile,       &                     snowprecipfile,
424       &                          ustressfile,       &                     runofffile,
425       &                          vstressfile,       &                     ustressfile,
426       &                          uwindfile,       &                     vstressfile,
427       &                          vwindfile,       &                     uwindfile,
428       &                          swfluxfile,       &                     vwindfile,
429       &                          lwfluxfile,       &                     wspeedfile,
430       &                          swdownfile,       &                     swfluxfile,
431       &                          lwdownfile,       &                     lwfluxfile,
432       &                          apressurefile       &                     swdownfile,
433         &                     lwdownfile,
434         &                     apressurefile,
435         &                     hflux0file,
436         &                     atemp0file,
437         &                     aqh0file,
438         &                     sflux0file,
439         &                     evap0file,
440         &                     precip0file,
441         &                     snowprecip0file,
442         &                     runoff0file,
443         &                     ustress0file,
444         &                     vstress0file,
445         &                     uwind0file,
446         &                     vwind0file,
447         &                     wspeed0file,
448         &                     swflux0file,
449         &                     lwflux0file,
450         &                     swdown0file,
451         &                     lwdown0file,
452         &                     apressure0file
453    
454  c     file precision and field type  c     file precision and field type
455    
456        common /exf_param_type/        common /exf_param_type/
457       &                        exf_iprec,       &                     exf_iprec,
458       &                        exf_yftype       &                     exf_yftype
459    
460        integer exf_iprec        integer exf_iprec
461        character*(2) exf_yftype        character*(2) exf_yftype
462    
463  c     input and output scaling factors  c     exf_inscal_*      input scaling factors
464    c     exf_offset_atemp  input air temperature offset
465    c                       (for conversion from C to K, if needed)
466    c     exf_outscale_*    output scaling factors
467    
468        _RL     exf_inscal_hflux        _RL     exf_inscal_hflux
469        _RL     exf_inscal_sflux        _RL     exf_inscal_sflux
# Line 315  c     input and output scaling factors Line 471  c     input and output scaling factors
471        _RL     exf_inscal_vstress        _RL     exf_inscal_vstress
472        _RL     exf_inscal_uwind        _RL     exf_inscal_uwind
473        _RL     exf_inscal_vwind        _RL     exf_inscal_vwind
474          _RL     exf_inscal_wspeed
475        _RL     exf_inscal_swflux        _RL     exf_inscal_swflux
476        _RL     exf_inscal_lwflux        _RL     exf_inscal_lwflux
477        _RL     exf_inscal_precip        _RL     exf_inscal_precip
478          _RL     exf_inscal_snowprecip
479        _RL     exf_inscal_sst        _RL     exf_inscal_sst
480        _RL     exf_inscal_sss        _RL     exf_inscal_sss
481        _RL     exf_inscal_atemp        _RL     exf_inscal_atemp
482          _RL     exf_offset_atemp
483        _RL     exf_inscal_aqh        _RL     exf_inscal_aqh
484        _RL     exf_inscal_evap        _RL     exf_inscal_evap
485        _RL     exf_inscal_apressure        _RL     exf_inscal_apressure
# Line 344  c     input and output scaling factors Line 503  c     input and output scaling factors
503       &                    , exf_inscal_vstress       &                    , exf_inscal_vstress
504       &                    , exf_inscal_uwind       &                    , exf_inscal_uwind
505       &                    , exf_inscal_vwind       &                    , exf_inscal_vwind
506         &                    , exf_inscal_wspeed
507       &                    , exf_inscal_swflux       &                    , exf_inscal_swflux
508       &                    , exf_inscal_lwflux       &                    , exf_inscal_lwflux
509       &                    , exf_inscal_precip       &                    , exf_inscal_precip
510         &                    , exf_inscal_snowprecip
511       &                    , exf_inscal_sst       &                    , exf_inscal_sst
512       &                    , exf_inscal_sss       &                    , exf_inscal_sss
513       &                    , exf_inscal_atemp       &                    , exf_inscal_atemp
514         &                    , exf_offset_atemp
515       &                    , exf_inscal_aqh       &                    , exf_inscal_aqh
516       &                    , exf_inscal_evap       &                    , exf_inscal_evap
517       &                    , exf_inscal_apressure       &                    , exf_inscal_apressure
# Line 365  c     input and output scaling factors Line 527  c     input and output scaling factors
527       &                    , exf_outscal_sss       &                    , exf_outscal_sss
528       &                    , exf_outscal_apressure       &                    , exf_outscal_apressure
529    
530  c     EXFwindOnBgrid - By default wind files, uwind and vwind,  #ifndef USE_EXF_INTERPOLATION
531  c     are defined on Southwest C-grid U and V points.  c-- set dummy dimension 1
532  c     When this flag is set, wind files are defined on         integer MAX_LAT_INC
533  c     northeast B-grid U and V points.         parameter(MAX_LAT_INC = 1)
534        LOGICAL             EXFwindOnBgrid  #else
535        COMMON /EXF_PARM_L/ EXFwindOnBgrid  c for lat interpolation, arraysize currently set to 2176 max data values
536           integer MAX_LAT_INC
537           parameter(MAX_LAT_INC = 2176)
538          _RL ustress_lon0, ustress_lon_inc
539          _RL ustress_lat0, ustress_lat_inc(MAX_LAT_INC)
540          INTEGER ustress_nlon, ustress_nlat
541          _RL vstress_lon0, vstress_lon_inc
542          _RL vstress_lat0, vstress_lat_inc(MAX_LAT_INC)
543          INTEGER vstress_nlon, vstress_nlat
544          _RL hflux_lon0, hflux_lon_inc
545          _RL hflux_lat0, hflux_lat_inc(MAX_LAT_INC)
546          INTEGER hflux_nlon, hflux_nlat
547          _RL sflux_lon0, sflux_lon_inc
548          _RL sflux_lat0, sflux_lat_inc(MAX_LAT_INC)
549          INTEGER sflux_nlon, sflux_nlat
550          _RL swflux_lon0, swflux_lon_inc
551          _RL swflux_lat0, swflux_lat_inc(MAX_LAT_INC)
552          INTEGER swflux_nlon, swflux_nlat
553          _RL runoff_lon0, runoff_lon_inc
554          _RL runoff_lat0, runoff_lat_inc(MAX_LAT_INC)
555          INTEGER runoff_nlon, runoff_nlat
556          _RL atemp_lon0, atemp_lon_inc
557          _RL atemp_lat0, atemp_lat_inc(MAX_LAT_INC)
558          INTEGER atemp_nlon, atemp_nlat
559          _RL aqh_lon0, aqh_lon_inc
560          _RL aqh_lat0, aqh_lat_inc(MAX_LAT_INC)
561          INTEGER aqh_nlon, aqh_nlat
562          _RL evap_lon0, evap_lon_inc
563          _RL evap_lat0, evap_lat_inc(MAX_LAT_INC)
564          INTEGER evap_nlon, evap_nlat
565          _RL precip_lon0, precip_lon_inc
566          _RL precip_lat0, precip_lat_inc(MAX_LAT_INC)
567          INTEGER precip_nlon, precip_nlat
568          _RL snowprecip_lon0, snowprecip_lon_inc
569          _RL snowprecip_lat0, snowprecip_lat_inc(MAX_LAT_INC)
570          INTEGER snowprecip_nlon, snowprecip_nlat
571          _RL uwind_lon0, uwind_lon_inc
572          _RL uwind_lat0, uwind_lat_inc(MAX_LAT_INC)
573          INTEGER uwind_nlon, uwind_nlat
574          _RL vwind_lon0, vwind_lon_inc
575          _RL vwind_lat0, vwind_lat_inc(MAX_LAT_INC)
576          INTEGER vwind_nlon, vwind_nlat
577          _RL wspeed_lon0, wspeed_lon_inc
578          _RL wspeed_lat0, wspeed_lat_inc(MAX_LAT_INC)
579          INTEGER wspeed_nlon, wspeed_nlat
580          _RL lwflux_lon0, lwflux_lon_inc
581          _RL lwflux_lat0, lwflux_lat_inc(MAX_LAT_INC)
582          INTEGER lwflux_nlon, lwflux_nlat
583          _RL swdown_lon0, swdown_lon_inc
584          _RL swdown_lat0, swdown_lat_inc(MAX_LAT_INC)
585          INTEGER swdown_nlon, swdown_nlat
586          _RL lwdown_lon0, lwdown_lon_inc
587          _RL lwdown_lat0, lwdown_lat_inc(MAX_LAT_INC)
588          INTEGER lwdown_nlon, lwdown_nlat
589          _RL apressure_lon0,apressure_lon_inc
590          _RL apressure_lat0,apressure_lat_inc(MAX_LAT_INC)
591          INTEGER apressure_nlon,apressure_nlat
592    
593          common /exf_interpolation/
594         & ustress_lon0, ustress_lon_inc,
595         & ustress_lat0, ustress_lat_inc,
596         & ustress_nlon, ustress_nlat,
597         & vstress_lon0, vstress_lon_inc,
598         & vstress_lat0, vstress_lat_inc,
599         & vstress_nlon, vstress_nlat,
600         & hflux_lon0, hflux_lon_inc,
601         & hflux_lat0, hflux_lat_inc,
602         & hflux_nlon, hflux_nlat,
603         & sflux_lon0, sflux_lon_inc,
604         & sflux_lat0, sflux_lat_inc,
605         & sflux_nlon, sflux_nlat,
606         & swflux_lon0, swflux_lon_inc,
607         & swflux_lat0, swflux_lat_inc,
608         & swflux_nlon, swflux_nlat,
609         & runoff_lon0, runoff_lon_inc,
610         & runoff_lat0, runoff_lat_inc,
611         & runoff_nlon, runoff_nlat,
612         & atemp_lon0, atemp_lon_inc,
613         & atemp_lat0, atemp_lat_inc,
614         & atemp_nlon, atemp_nlat,
615         & aqh_lon0, aqh_lon_inc,
616         & aqh_lat0, aqh_lat_inc,
617         & aqh_nlon, aqh_nlat,
618         & evap_lon0, evap_lon_inc,
619         & evap_lat0, evap_lat_inc,
620         & evap_nlon, evap_nlat,
621         & precip_lon0, precip_lon_inc,
622         & precip_lat0, precip_lat_inc,
623         & precip_nlon, precip_nlat,
624         & snowprecip_lon0, snowprecip_lon_inc,
625         & snowprecip_lat0, snowprecip_lat_inc,
626         & snowprecip_nlon, snowprecip_nlat,
627         & uwind_lon0, uwind_lon_inc,
628         & uwind_lat0, uwind_lat_inc,
629         & uwind_nlon, uwind_nlat,
630         & vwind_lon0, vwind_lon_inc,
631         & vwind_lat0, vwind_lat_inc,
632         & vwind_nlon, vwind_nlat,
633         & wspeed_lon0, wspeed_lon_inc,
634         & wspeed_lat0, wspeed_lat_inc,
635         & wspeed_nlon, wspeed_nlat,
636         & lwflux_lon0, lwflux_lon_inc,
637         & lwflux_lat0, lwflux_lat_inc,
638         & lwflux_nlon, lwflux_nlat,
639         & swdown_lon0, swdown_lon_inc,
640         & swdown_lat0, swdown_lat_inc,
641         & swdown_nlon, swdown_nlat,
642         & lwdown_lon0, lwdown_lon_inc,
643         & lwdown_lat0, lwdown_lat_inc,
644         & lwdown_nlon, lwdown_nlat,
645         & apressure_lon0,apressure_lon_inc,
646         & apressure_lat0,apressure_lat_inc,
647         & apressure_nlon,apressure_nlat
648    #endif
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22