106 |
character*1 lwfluxmask |
character*1 lwfluxmask |
107 |
parameter( lwfluxmask = 's' ) |
parameter( lwfluxmask = 's' ) |
108 |
|
|
109 |
integer obcsstartdate1 |
integer obcsNstartdate1 |
110 |
integer obcsstartdate2 |
integer obcsNstartdate2 |
111 |
integer obcsstartdate(4) |
integer obcsNstartdate(4) |
112 |
_RL obcsperiod |
_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 |
|
|
129 |
c File names. |
c File names. |
130 |
character*(128) hfluxfile |
character*(128) hfluxfile |
138 |
character*(128) vwindfile |
character*(128) vwindfile |
139 |
character*(128) swfluxfile |
character*(128) swfluxfile |
140 |
character*(128) lwfluxfile |
character*(128) lwfluxfile |
|
character*(128) obcsfile |
|
141 |
|
|
142 |
common /exf_param_i/ |
common /exf_param_i/ |
143 |
& hfluxstartdate1, hfluxstartdate2, |
& hfluxstartdate1, hfluxstartdate2, |
144 |
& atempstartdate1, atempstartdate2, |
& atempstartdate1, atempstartdate2, |
145 |
& aqhstartdate1, aqhstartdate2, |
& aqhstartdate1, aqhstartdate2, |
146 |
& sfluxstartdate1, sfluxstartdate2, |
& sfluxstartdate1, sfluxstartdate2, |
147 |
& precipstartdate1, precipstartdate2, |
& precipstartdate1, precipstartdate2, |
148 |
& ustressstartdate1,ustressstartdate2, |
& ustressstartdate1, ustressstartdate2, |
149 |
& vstressstartdate1,vstressstartdate2, |
& vstressstartdate1, vstressstartdate2, |
150 |
& uwindstartdate1, uwindstartdate2, |
& uwindstartdate1, uwindstartdate2, |
151 |
& vwindstartdate1, vwindstartdate2, |
& vwindstartdate1, vwindstartdate2, |
152 |
& swfluxstartdate1, swfluxstartdate2, |
& swfluxstartdate1, swfluxstartdate2, |
153 |
& lwfluxstartdate1, lwfluxstartdate2, |
& lwfluxstartdate1, lwfluxstartdate2, |
154 |
& obcsstartdate1, obcsstartdate2, |
& obcsNstartdate1, obcsNstartdate2, |
155 |
|
& obcsSstartdate1, obcsSstartdate2, |
156 |
|
& obcsEstartdate1, obcsEstartdate2, |
157 |
|
& obcsWstartdate1, obcsWstartdate2, |
158 |
& hfluxstartdate, |
& hfluxstartdate, |
159 |
& atempstartdate, |
& atempstartdate, |
160 |
& aqhstartdate, |
& aqhstartdate, |
166 |
& vwindstartdate, |
& vwindstartdate, |
167 |
& swfluxstartdate, |
& swfluxstartdate, |
168 |
& lwfluxstartdate, |
& lwfluxstartdate, |
169 |
& obcsstartdate |
& obcsNstartdate, |
170 |
|
& obcsSstartdate, |
171 |
|
& obcsEstartdate, |
172 |
|
& obcsWstartdate |
173 |
|
|
174 |
common /exf_param_r/ |
common /exf_param_r/ |
175 |
& hfluxperiod, |
& hfluxperiod, |
183 |
& vwindperiod, |
& vwindperiod, |
184 |
& swfluxperiod, |
& swfluxperiod, |
185 |
& lwfluxperiod, |
& lwfluxperiod, |
186 |
& obcsperiod |
& obcsNperiod, |
187 |
|
& obcsSperiod, |
188 |
|
& obcsEperiod, |
189 |
|
& obcsWperiod |
190 |
|
|
191 |
common /exf_param_c/ |
common /exf_param_c/ |
192 |
& hfluxfile, |
& hfluxfile, |
199 |
& uwindfile, |
& uwindfile, |
200 |
& vwindfile, |
& vwindfile, |
201 |
& swfluxfile, |
& swfluxfile, |
202 |
& lwfluxfile, |
& lwfluxfile |
|
& obcsfile |
|
203 |
|
|
204 |
c file precision and field type |
c file precision and field type |
205 |
|
|