/[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.1 by heimbach, Mon May 14 22:08:41 2001 UTC revision 1.8 by heimbach, Fri May 23 18:37:31 2003 UTC
# Line 24  c Line 24  c
24  c              Patrick Heimbach, heimbach@mit.edu  01-May-2001  c              Patrick Heimbach, heimbach@mit.edu  01-May-2001
25  c              - added obcs parameters  c              - added obcs parameters
26  c  c
27    c     mods for pkg/seaice: menemenlis@jpl.nasa.gov 20-Dec-2002
28    c
29  c     ==================================================================  c     ==================================================================
30  c     HEADER exf_param  c     HEADER exf_param
31  c     ==================================================================  c     ==================================================================
32    
33  c     Calendar data.  c     Calendar data.
34          _RL     repeatPeriod
35    
36        integer hfluxstartdate1        integer hfluxstartdate1
37        integer hfluxstartdate2        integer hfluxstartdate2
38        integer hfluxstartdate(4)        integer hfluxstartdate(4)
39        _RL     hfluxperiod        _RL     hfluxperiod
40          _RL     hfluxconst
41        character*1 hfluxmask        character*1 hfluxmask
42        parameter(  hfluxmask = 's' )        parameter(  hfluxmask = 's' )
43    
# Line 40  c     Calendar data. Line 45  c     Calendar data.
45        integer atempstartdate2        integer atempstartdate2
46        integer atempstartdate(4)        integer atempstartdate(4)
47        _RL     atempperiod        _RL     atempperiod
48          _RL     atempconst
49        character*1 atempmask        character*1 atempmask
50        parameter(  atempmask = 's' )        parameter(  atempmask = 's' )
51    
# Line 47  c     Calendar data. Line 53  c     Calendar data.
53        integer aqhstartdate2        integer aqhstartdate2
54        integer aqhstartdate(4)        integer aqhstartdate(4)
55        _RL     aqhperiod        _RL     aqhperiod
56          _RL     aqhconst
57        character*1 aqhmask        character*1 aqhmask
58        parameter(  aqhmask = 's' )        parameter(  aqhmask = 's' )
59    
# Line 54  c     Calendar data. Line 61  c     Calendar data.
61        integer sfluxstartdate2        integer sfluxstartdate2
62        integer sfluxstartdate(4)        integer sfluxstartdate(4)
63        _RL     sfluxperiod        _RL     sfluxperiod
64          _RL     sfluxconst
65        character*1 sfluxmask        character*1 sfluxmask
66        parameter(  sfluxmask = 's' )        parameter(  sfluxmask = 's' )
67    
68          integer evapstartdate1
69          integer evapstartdate2
70          integer evapstartdate(4)
71          _RL     evapperiod
72          _RL     evapconst
73          character*1 evapmask
74          parameter(  evapmask = 's' )
75    
76        integer precipstartdate1        integer precipstartdate1
77        integer precipstartdate2        integer precipstartdate2
78        integer precipstartdate(4)        integer precipstartdate(4)
79        _RL     precipperiod        _RL     precipperiod
80          _RL     precipconst
81        character*1 precipmask        character*1 precipmask
82        parameter(  precipmask = 's' )        parameter(  precipmask = 's' )
83    
84          integer runoffstartdate1
85          integer runoffstartdate2
86          integer runoffstartdate(4)
87          _RL     runoffperiod
88          _RL     runoffconst
89          character*1 runoffmask
90          parameter(  runoffmask = 's' )
91    
92        integer ustressstartdate1        integer ustressstartdate1
93        integer ustressstartdate2        integer ustressstartdate2
94        integer ustressstartdate(4)        integer ustressstartdate(4)
95        _RL     ustressperiod        _RL     ustressperiod
96          _RL     ustressconst
97        character*1 ustressmask        character*1 ustressmask
98        parameter(  ustressmask = 'u' )        parameter(  ustressmask = 'u' )
99    
# Line 75  c     Calendar data. Line 101  c     Calendar data.
101        integer vstressstartdate2        integer vstressstartdate2
102        integer vstressstartdate(4)        integer vstressstartdate(4)
103        _RL     vstressperiod        _RL     vstressperiod
104          _RL     vstressconst
105        character*1 vstressmask        character*1 vstressmask
106        parameter(  vstressmask = 'v' )        parameter(  vstressmask = 'v' )
107    
# Line 82  c     Calendar data. Line 109  c     Calendar data.
109        integer uwindstartdate2        integer uwindstartdate2
110        integer uwindstartdate(4)        integer uwindstartdate(4)
111        _RL     uwindperiod        _RL     uwindperiod
112          _RL     uwindconst
113        character*1 uwindmask        character*1 uwindmask
114        parameter(  uwindmask = 'u' )        parameter(  uwindmask = 'u' )
115    
# Line 89  c     Calendar data. Line 117  c     Calendar data.
117        integer vwindstartdate2        integer vwindstartdate2
118        integer vwindstartdate(4)        integer vwindstartdate(4)
119        _RL     vwindperiod        _RL     vwindperiod
120          _RL     vwindconst
121        character*1 vwindmask        character*1 vwindmask
122        parameter(  vwindmask = 'v' )        parameter(  vwindmask = 'v' )
123    
# Line 96  c     Calendar data. Line 125  c     Calendar data.
125        integer swfluxstartdate2        integer swfluxstartdate2
126        integer swfluxstartdate(4)        integer swfluxstartdate(4)
127        _RL     swfluxperiod        _RL     swfluxperiod
128          _RL     swfluxconst
129        character*1 swfluxmask        character*1 swfluxmask
130        parameter(  swfluxmask = 's' )        parameter(  swfluxmask = 's' )
131    
# Line 103  c     Calendar data. Line 133  c     Calendar data.
133        integer lwfluxstartdate2        integer lwfluxstartdate2
134        integer lwfluxstartdate(4)        integer lwfluxstartdate(4)
135        _RL     lwfluxperiod        _RL     lwfluxperiod
136          _RL     lwfluxconst
137        character*1 lwfluxmask        character*1 lwfluxmask
138        parameter(  lwfluxmask = 's' )        parameter(  lwfluxmask = 's' )
139    
140        integer obcsstartdate1        integer swdownstartdate1
141        integer obcsstartdate2        integer swdownstartdate2
142        integer obcsstartdate(4)        integer swdownstartdate(4)
143        _RL     obcsperiod        _RL     swdownperiod
144          _RL     swdownconst
145          character*1 swdownmask
146          parameter(  swdownmask = 's' )
147    
148          integer lwdownstartdate1
149          integer lwdownstartdate2
150          integer lwdownstartdate(4)
151          _RL     lwdownperiod
152          _RL     lwdownconst
153          character*1 lwdownmask
154          parameter(  lwdownmask = 's' )
155    
156          integer obcsNstartdate1
157          integer obcsNstartdate2
158          integer obcsNstartdate(4)
159          _RL     obcsNperiod
160    
161          integer obcsSstartdate1
162          integer obcsSstartdate2
163          integer obcsSstartdate(4)
164          _RL     obcsSperiod
165    
166          integer obcsEstartdate1
167          integer obcsEstartdate2
168          integer obcsEstartdate(4)
169          _RL     obcsEperiod
170    
171          integer obcsWstartdate1
172          integer obcsWstartdate2
173          integer obcsWstartdate(4)
174          _RL     obcsWperiod
175    
176          integer apressurestartdate1
177          integer apressurestartdate2
178          integer apressurestartdate(4)
179          _RL     apressureperiod
180          _RL     apressureconst
181          character*1 apressuremask
182          parameter(  apressuremask = 's' )
183    
184  c     File names.  c     File names.
185        character*(128) hfluxfile        character*(128) hfluxfile
186        character*(128) atempfile        character*(128) atempfile
187        character*(128) aqhfile        character*(128) aqhfile
188          character*(128) evapfile
189        character*(128) precipfile        character*(128) precipfile
190        character*(128) sfluxfile        character*(128) sfluxfile
191          character*(128) runofffile
192        character*(128) ustressfile        character*(128) ustressfile
193        character*(128) vstressfile        character*(128) vstressfile
194        character*(128) uwindfile        character*(128) uwindfile
195        character*(128) vwindfile        character*(128) vwindfile
196        character*(128) swfluxfile        character*(128) swfluxfile
197        character*(128) lwfluxfile        character*(128) lwfluxfile
198        character*(128) obcsfile        character*(128) swdownfile
199          character*(128) lwdownfile
200          character*(128) apressurefile
201    
202        common /exf_param_i/        common /exf_param_i/
203       &                          hfluxstartdate1,  hfluxstartdate2,       &                          repeatPeriod,
204       &                          atempstartdate1,  atempstartdate2,       &                          hfluxstartdate1,   hfluxstartdate2,
205       &                          aqhstartdate1,    aqhstartdate2,       &                          atempstartdate1,   atempstartdate2,
206       &                          sfluxstartdate1,  sfluxstartdate2,       &                          aqhstartdate1,     aqhstartdate2,
207       &                          precipstartdate1, precipstartdate2,       &                          sfluxstartdate1,   sfluxstartdate2,
208       &                          ustressstartdate1,ustressstartdate2,       &                          evapstartdate1,    evapstartdate2,
209       &                          vstressstartdate1,vstressstartdate2,       &                          runoffstartdate1,  runoffstartdate2,
210       &                          uwindstartdate1,  uwindstartdate2,       &                          precipstartdate1,  precipstartdate2,
211       &                          vwindstartdate1,  vwindstartdate2,       &                          ustressstartdate1, ustressstartdate2,
212       &                          swfluxstartdate1, swfluxstartdate2,       &                          vstressstartdate1, vstressstartdate2,
213       &                          lwfluxstartdate1, lwfluxstartdate2,       &                          uwindstartdate1,   uwindstartdate2,
214       &                          obcsstartdate1,   obcsstartdate2,       &                          vwindstartdate1,   vwindstartdate2,
215         &                          swfluxstartdate1,  swfluxstartdate2,
216         &                          lwfluxstartdate1,  lwfluxstartdate2,
217         &                          swdownstartdate1,  swdownstartdate2,
218         &                          lwdownstartdate1,  lwdownstartdate2,
219         &                          obcsNstartdate1,   obcsNstartdate2,
220         &                          obcsSstartdate1,   obcsSstartdate2,
221         &                          obcsEstartdate1,   obcsEstartdate2,
222         &                          obcsWstartdate1,   obcsWstartdate2,
223         &                          apressurestartdate1,apressurestartdate2,
224       &                          hfluxstartdate,       &                          hfluxstartdate,
225       &                          atempstartdate,       &                          atempstartdate,
226       &                          aqhstartdate,       &                          aqhstartdate,
227       &                          sfluxstartdate,       &                          sfluxstartdate,
228         &                          evapstartdate,
229       &                          precipstartdate,       &                          precipstartdate,
230         &                          runoffstartdate,
231       &                          ustressstartdate,       &                          ustressstartdate,
232       &                          vstressstartdate,       &                          vstressstartdate,
233       &                          uwindstartdate,       &                          uwindstartdate,
234       &                          vwindstartdate,       &                          vwindstartdate,
235       &                          swfluxstartdate,       &                          swfluxstartdate,
236       &                          lwfluxstartdate,       &                          lwfluxstartdate,
237       &                          obcsstartdate       &                          swdownstartdate,
238         &                          lwdownstartdate,
239         &                          obcsNstartdate,
240         &                          obcsSstartdate,
241         &                          obcsEstartdate,
242         &                          obcsWstartdate,
243         &                          apressurestartdate
244    
245        common /exf_param_r/        common /exf_param_r/
246       &                          hfluxperiod,       &                          hfluxperiod,
247       &                          atempperiod,       &                          atempperiod,
248       &                          aqhperiod,       &                          aqhperiod,
249       &                          sfluxperiod,       &                          sfluxperiod,
250         &                          evapperiod,
251       &                          precipperiod,       &                          precipperiod,
252         &                          runoffperiod,
253       &                          ustressperiod,       &                          ustressperiod,
254       &                          vstressperiod,       &                          vstressperiod,
255       &                          uwindperiod,       &                          uwindperiod,
256       &                          vwindperiod,       &                          vwindperiod,
257       &                          swfluxperiod,       &                          swfluxperiod,
258       &                          lwfluxperiod,       &                          lwfluxperiod,
259       &                          obcsperiod       &                          swdownperiod,
260         &                          lwdownperiod,
261         &                          obcsNperiod,
262         &                          obcsSperiod,
263         &                          obcsEperiod,
264         &                          obcsWperiod,
265         &                          apressureperiod,
266         &                          hfluxconst,
267         &                          atempconst,
268         &                          aqhconst,
269         &                          sfluxconst,
270         &                          evapconst,
271         &                          precipconst,
272         &                          runoffconst,
273         &                          ustressconst,
274         &                          vstressconst,
275         &                          uwindconst,
276         &                          vwindconst,
277         &                          swfluxconst,
278         &                          lwfluxconst,
279         &                          swdownconst,
280         &                          lwdownconst,
281         &                          apressureconst
282    
283        common /exf_param_c/        common /exf_param_c/
284       &                          hfluxfile,       &                          hfluxfile,
285       &                          atempfile,       &                          atempfile,
286       &                          aqhfile,       &                          aqhfile,
287       &                          sfluxfile,       &                          sfluxfile,
288         &                          evapfile,
289       &                          precipfile,       &                          precipfile,
290         &                          runofffile,
291       &                          ustressfile,       &                          ustressfile,
292       &                          vstressfile,       &                          vstressfile,
293       &                          uwindfile,       &                          uwindfile,
294       &                          vwindfile,       &                          vwindfile,
295       &                          swfluxfile,       &                          swfluxfile,
296       &                          lwfluxfile,       &                          lwfluxfile,
297       &                          obcsfile       &                          swdownfile,
298         &                          lwdownfile,
299         &                          apressurefile
300    
301  c     file precision and field type  c     file precision and field type
302    
# Line 187  c     file precision and field type Line 306  c     file precision and field type
306    
307        integer exf_iprec        integer exf_iprec
308        character*(2) exf_yftype        character*(2) exf_yftype
309    
310    c     input and output scaling factors
311    
312          _RL     exf_inscal_hflux
313          _RL     exf_inscal_sflux
314          _RL     exf_inscal_ustress
315          _RL     exf_inscal_vstress
316          _RL     exf_inscal_uwind
317          _RL     exf_inscal_vwind
318          _RL     exf_inscal_swflux
319          _RL     exf_inscal_lwflux
320          _RL     exf_inscal_precip
321          _RL     exf_inscal_sst
322          _RL     exf_inscal_sss
323          _RL     exf_inscal_atemp
324          _RL     exf_inscal_aqh
325          _RL     exf_inscal_evap
326          _RL     exf_inscal_apressure
327          _RL     exf_inscal_runoff
328          _RL     exf_inscal_swdown
329          _RL     exf_inscal_lwdown
330    
331          _RL     exf_outscal_hflux
332          _RL     exf_outscal_sflux
333          _RL     exf_outscal_ustress
334          _RL     exf_outscal_vstress
335          _RL     exf_outscal_swflux
336          _RL     exf_outscal_sst
337          _RL     exf_outscal_sss
338          _RL     exf_outscal_apressure
339    
340          common /exf_param_scal/
341         &                      exf_inscal_hflux
342         &                    , exf_inscal_sflux
343         &                    , exf_inscal_ustress
344         &                    , exf_inscal_vstress
345         &                    , exf_inscal_uwind
346         &                    , exf_inscal_vwind
347         &                    , exf_inscal_swflux
348         &                    , exf_inscal_lwflux
349         &                    , exf_inscal_precip
350         &                    , exf_inscal_sst
351         &                    , exf_inscal_sss
352         &                    , exf_inscal_atemp
353         &                    , exf_inscal_aqh
354         &                    , exf_inscal_evap
355         &                    , exf_inscal_apressure
356         &                    , exf_inscal_runoff
357         &                    , exf_inscal_swdown
358         &                    , exf_inscal_lwdown
359         &                    , exf_outscal_hflux
360         &                    , exf_outscal_sflux
361         &                    , exf_outscal_ustress
362         &                    , exf_outscal_vstress
363         &                    , exf_outscal_swflux
364         &                    , exf_outscal_sst
365         &                    , exf_outscal_sss
366         &                    , exf_outscal_apressure
367    
368    c     EXFwindOnBgrid - By default wind files, uwind and vwind,
369    c     are defined on Southwest C-grid U and V points.
370    c     When this flag is set, wind files are defined on
371    c     northeast B-grid U and V points.
372          LOGICAL             EXFwindOnBgrid
373          COMMON /EXF_PARM_L/ EXFwindOnBgrid
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22