1 |
heimbach |
1.1 |
c $Header: /u/gcmpack/development/heimbach/ecco_env/pkg/exf/exf_param.h,v 1.1 2001/02/02 19:43:47 heimbach Exp $ |
2 |
|
|
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 |
|
|
integer obcsstartdate1 |
110 |
|
|
integer obcsstartdate2 |
111 |
|
|
integer obcsstartdate(4) |
112 |
|
|
_RL obcsperiod |
113 |
|
|
|
114 |
|
|
c File names. |
115 |
|
|
character*(128) hfluxfile |
116 |
|
|
character*(128) atempfile |
117 |
|
|
character*(128) aqhfile |
118 |
|
|
character*(128) precipfile |
119 |
|
|
character*(128) sfluxfile |
120 |
|
|
character*(128) ustressfile |
121 |
|
|
character*(128) vstressfile |
122 |
|
|
character*(128) uwindfile |
123 |
|
|
character*(128) vwindfile |
124 |
|
|
character*(128) swfluxfile |
125 |
|
|
character*(128) lwfluxfile |
126 |
|
|
character*(128) obcsfile |
127 |
|
|
|
128 |
|
|
common /exf_param_i/ |
129 |
|
|
& hfluxstartdate1, hfluxstartdate2, |
130 |
|
|
& atempstartdate1, atempstartdate2, |
131 |
|
|
& aqhstartdate1, aqhstartdate2, |
132 |
|
|
& sfluxstartdate1, sfluxstartdate2, |
133 |
|
|
& precipstartdate1, precipstartdate2, |
134 |
|
|
& ustressstartdate1,ustressstartdate2, |
135 |
|
|
& vstressstartdate1,vstressstartdate2, |
136 |
|
|
& uwindstartdate1, uwindstartdate2, |
137 |
|
|
& vwindstartdate1, vwindstartdate2, |
138 |
|
|
& swfluxstartdate1, swfluxstartdate2, |
139 |
|
|
& lwfluxstartdate1, lwfluxstartdate2, |
140 |
|
|
& obcsstartdate1, obcsstartdate2, |
141 |
|
|
& hfluxstartdate, |
142 |
|
|
& atempstartdate, |
143 |
|
|
& aqhstartdate, |
144 |
|
|
& sfluxstartdate, |
145 |
|
|
& precipstartdate, |
146 |
|
|
& ustressstartdate, |
147 |
|
|
& vstressstartdate, |
148 |
|
|
& uwindstartdate, |
149 |
|
|
& vwindstartdate, |
150 |
|
|
& swfluxstartdate, |
151 |
|
|
& lwfluxstartdate, |
152 |
|
|
& obcsstartdate |
153 |
|
|
|
154 |
|
|
common /exf_param_r/ |
155 |
|
|
& hfluxperiod, |
156 |
|
|
& atempperiod, |
157 |
|
|
& aqhperiod, |
158 |
|
|
& sfluxperiod, |
159 |
|
|
& precipperiod, |
160 |
|
|
& ustressperiod, |
161 |
|
|
& vstressperiod, |
162 |
|
|
& uwindperiod, |
163 |
|
|
& vwindperiod, |
164 |
|
|
& swfluxperiod, |
165 |
|
|
& lwfluxperiod, |
166 |
|
|
& obcsperiod |
167 |
|
|
|
168 |
|
|
common /exf_param_c/ |
169 |
|
|
& hfluxfile, |
170 |
|
|
& atempfile, |
171 |
|
|
& aqhfile, |
172 |
|
|
& sfluxfile, |
173 |
|
|
& precipfile, |
174 |
|
|
& ustressfile, |
175 |
|
|
& vstressfile, |
176 |
|
|
& uwindfile, |
177 |
|
|
& vwindfile, |
178 |
|
|
& swfluxfile, |
179 |
|
|
& lwfluxfile, |
180 |
|
|
& obcsfile |
181 |
|
|
|
182 |
|
|
c file precision and field type |
183 |
|
|
|
184 |
|
|
common /exf_param_type/ |
185 |
|
|
& exf_iprec, |
186 |
|
|
& exf_yftype |
187 |
|
|
|
188 |
|
|
integer exf_iprec |
189 |
|
|
character*(2) exf_yftype |