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

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

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

Revision 1.2 - (hide annotations) (download)
Thu Feb 7 20:00:09 2002 UTC (22 years, 4 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46b_post, checkpoint46k_post, checkpoint46c_pre, checkpoint45d_post, checkpoint44h_pre, checkpoint46j_post, checkpoint44f_pre, checkpoint45a_post, checkpoint46f_post, checkpoint46a_post, checkpoint46d_pre, checkpoint46e_post, checkpoint45b_post, checkpoint44g_post, checkpoint46h_pre, checkpoint45c_post, checkpoint44h_post, chkpt44c_post, checkpoint44e_post, checkpoint46e_pre, checkpoint46l_pre, checkpoint46j_pre, checkpoint46b_pre, checkpoint46l_post, release1_final_v1, checkpoint46, checkpoint44f_post, checkpoint44b_post, chkpt44d_post, checkpoint46m_post, checkpoint46g_pre, checkpoint46a_pre, checkpoint44e_pre, chkpt44c_pre, checkpoint46d_post, checkpoint46g_post, checkpoint46i_post, checkpoint46c_post, checkpoint45, checkpoint46h_post
Branch point for: release1_final
Changes since 1.1: +44 -22 lines
File MIME type: text/plain 
o merge of relevant stuff from the ecco-branch:
  - genmake: removed $S64 overwrite for case SunOS
  - pkg/exf: update and corrections for field swapping and obcs
  - pkg/ecco: parameter lists for the_model_main, the_main_loop
              harmonized between ECCO and MITgcm
  - pkg/autodiff: added flow directives for obcs, mdsio_gl_slice
                  updated checkpointing_lev... lists for obcs
  - model/src: minor changes in forward_step, plot_field
               added directive for divided adjoint in the_main_loop
  - pkg/mdsio: added mdsio_gl_slice
1 heimbach 1.2 c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_param.h,v 1.1.6.1 2002/02/06 23:18:54 heimbach Exp $
2 heimbach 1.1 c
3     c
4     c ==================================================================
5     c HEADER exf_param
6     c ==================================================================
7     c
8     c o Header file for the surface flux data. Used by the external
9     c forcing package.
10     c
11     c started: Christian Eckert eckert@mit.edu 30-Jun-1999
12     c
13     c changed: Christian Eckert eckert@mit.edu 14-Jan-2000
14     c - Restructured the original version in order to have a
15     c better interface to the MITgcmUV.
16     c
17     c Christian Eckert eckert@mit.edu 12-Feb-2000
18     c - Changed some variables names (package prefix: exf_)
19     c
20     c Patrick Heimbach, heimbach@mit.edu 04-May-2000
21     c - included exf_iprec, exf_yftype to enable easy
22     c switch between 32bit/64 bit data format
23     c
24     c Patrick Heimbach, heimbach@mit.edu 01-May-2001
25     c - added obcs parameters
26     c
27     c ==================================================================
28     c HEADER exf_param
29     c ==================================================================
30    
31     c Calendar data.
32     integer hfluxstartdate1
33     integer hfluxstartdate2
34     integer hfluxstartdate(4)
35     _RL hfluxperiod
36     character*1 hfluxmask
37     parameter( hfluxmask = 's' )
38    
39     integer atempstartdate1
40     integer atempstartdate2
41     integer atempstartdate(4)
42     _RL atempperiod
43     character*1 atempmask
44     parameter( atempmask = 's' )
45    
46     integer aqhstartdate1
47     integer aqhstartdate2
48     integer aqhstartdate(4)
49     _RL aqhperiod
50     character*1 aqhmask
51     parameter( aqhmask = 's' )
52    
53     integer sfluxstartdate1
54     integer sfluxstartdate2
55     integer sfluxstartdate(4)
56     _RL sfluxperiod
57     character*1 sfluxmask
58     parameter( sfluxmask = 's' )
59    
60     integer precipstartdate1
61     integer precipstartdate2
62     integer precipstartdate(4)
63     _RL precipperiod
64     character*1 precipmask
65     parameter( precipmask = 's' )
66    
67     integer ustressstartdate1
68     integer ustressstartdate2
69     integer ustressstartdate(4)
70     _RL ustressperiod
71     character*1 ustressmask
72     parameter( ustressmask = 'u' )
73    
74     integer vstressstartdate1
75     integer vstressstartdate2
76     integer vstressstartdate(4)
77     _RL vstressperiod
78     character*1 vstressmask
79     parameter( vstressmask = 'v' )
80    
81     integer uwindstartdate1
82     integer uwindstartdate2
83     integer uwindstartdate(4)
84     _RL uwindperiod
85     character*1 uwindmask
86     parameter( uwindmask = 'u' )
87    
88     integer vwindstartdate1
89     integer vwindstartdate2
90     integer vwindstartdate(4)
91     _RL vwindperiod
92     character*1 vwindmask
93     parameter( vwindmask = 'v' )
94    
95     integer swfluxstartdate1
96     integer swfluxstartdate2
97     integer swfluxstartdate(4)
98     _RL swfluxperiod
99     character*1 swfluxmask
100     parameter( swfluxmask = 's' )
101    
102     integer lwfluxstartdate1
103     integer lwfluxstartdate2
104     integer lwfluxstartdate(4)
105     _RL lwfluxperiod
106     character*1 lwfluxmask
107     parameter( lwfluxmask = 's' )
108    
109 heimbach 1.2 integer obcsNstartdate1
110     integer obcsNstartdate2
111     integer obcsNstartdate(4)
112     _RL obcsNperiod
113    
114     integer obcsSstartdate1
115     integer obcsSstartdate2
116     integer obcsSstartdate(4)
117     _RL obcsSperiod
118    
119     integer obcsEstartdate1
120     integer obcsEstartdate2
121     integer obcsEstartdate(4)
122     _RL obcsEperiod
123    
124     integer obcsWstartdate1
125     integer obcsWstartdate2
126     integer obcsWstartdate(4)
127     _RL obcsWperiod
128 heimbach 1.1
129     c File names.
130     character*(128) hfluxfile
131     character*(128) atempfile
132     character*(128) aqhfile
133     character*(128) precipfile
134     character*(128) sfluxfile
135     character*(128) ustressfile
136     character*(128) vstressfile
137     character*(128) uwindfile
138     character*(128) vwindfile
139     character*(128) swfluxfile
140     character*(128) lwfluxfile
141    
142     common /exf_param_i/
143 heimbach 1.2 & hfluxstartdate1, hfluxstartdate2,
144     & atempstartdate1, atempstartdate2,
145     & aqhstartdate1, aqhstartdate2,
146     & sfluxstartdate1, sfluxstartdate2,
147     & precipstartdate1, precipstartdate2,
148     & ustressstartdate1, ustressstartdate2,
149     & vstressstartdate1, vstressstartdate2,
150     & uwindstartdate1, uwindstartdate2,
151     & vwindstartdate1, vwindstartdate2,
152     & swfluxstartdate1, swfluxstartdate2,
153     & lwfluxstartdate1, lwfluxstartdate2,
154     & obcsNstartdate1, obcsNstartdate2,
155     & obcsSstartdate1, obcsSstartdate2,
156     & obcsEstartdate1, obcsEstartdate2,
157     & obcsWstartdate1, obcsWstartdate2,
158 heimbach 1.1 & hfluxstartdate,
159     & atempstartdate,
160     & aqhstartdate,
161     & sfluxstartdate,
162     & precipstartdate,
163     & ustressstartdate,
164     & vstressstartdate,
165     & uwindstartdate,
166     & vwindstartdate,
167     & swfluxstartdate,
168     & lwfluxstartdate,
169 heimbach 1.2 & obcsNstartdate,
170     & obcsSstartdate,
171     & obcsEstartdate,
172     & obcsWstartdate
173 heimbach 1.1
174     common /exf_param_r/
175     & hfluxperiod,
176     & atempperiod,
177     & aqhperiod,
178     & sfluxperiod,
179     & precipperiod,
180     & ustressperiod,
181     & vstressperiod,
182     & uwindperiod,
183     & vwindperiod,
184     & swfluxperiod,
185     & lwfluxperiod,
186 heimbach 1.2 & obcsNperiod,
187     & obcsSperiod,
188     & obcsEperiod,
189     & obcsWperiod
190 heimbach 1.1
191     common /exf_param_c/
192     & hfluxfile,
193     & atempfile,
194     & aqhfile,
195     & sfluxfile,
196     & precipfile,
197     & ustressfile,
198     & vstressfile,
199     & uwindfile,
200     & vwindfile,
201     & swfluxfile,
202 heimbach 1.2 & lwfluxfile
203 heimbach 1.1
204     c file precision and field type
205    
206     common /exf_param_type/
207     & exf_iprec,
208     & exf_yftype
209    
210     integer exf_iprec
211     character*(2) exf_yftype
  ViewVC Help
Powered by ViewVC 1.1.22