11 |
c o Read-in atmospheric state and/or surface fluxes from files. |
c o Read-in atmospheric state and/or surface fluxes from files. |
12 |
c |
c |
13 |
c heimbach@mit.edu, 23-May-2003 totally re-structured |
c heimbach@mit.edu, 23-May-2003 totally re-structured |
14 |
|
c 5-Aug-2003: added USE_EXF_INTERPOLATION for arbitrary input grid |
15 |
c |
c |
16 |
c ================================================================== |
c ================================================================== |
17 |
c SUBROUTINE exf_getffields |
c SUBROUTINE exf_getffields |
59 |
& uwind, uwind0, uwind1, uwindmask, |
& uwind, uwind0, uwind1, uwindmask, |
60 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
61 |
& uwind_lon0, uwind_lon_inc, uwind_lat0, uwind_lat_inc, |
& uwind_lon0, uwind_lon_inc, uwind_lat0, uwind_lat_inc, |
62 |
& uwind_nlon, uwind_nlat, |
& uwind_nlon, uwind_nlat, xC, yC, |
63 |
#endif |
#endif |
64 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
65 |
|
|
70 |
& vwind, vwind0, vwind1, vwindmask, |
& vwind, vwind0, vwind1, vwindmask, |
71 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
72 |
& vwind_lon0, vwind_lon_inc, vwind_lat0, vwind_lat_inc, |
& vwind_lon0, vwind_lon_inc, vwind_lat0, vwind_lat_inc, |
73 |
& vwind_nlon, vwind_nlat, |
& vwind_nlon, vwind_nlat, xC, yC, |
74 |
#endif |
#endif |
75 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
76 |
|
|
97 |
& ustress, ustress0, ustress1, ustressmask, |
& ustress, ustress0, ustress1, ustressmask, |
98 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
99 |
& ustress_lon0, ustress_lon_inc, ustress_lat0, ustress_lat_inc, |
& ustress_lon0, ustress_lon_inc, ustress_lat0, ustress_lat_inc, |
100 |
& ustress_nlon, ustress_nlat, |
& ustress_nlon, ustress_nlat, xG, yC, |
101 |
#endif |
#endif |
102 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
103 |
|
|
108 |
& vstress, vstress0, vstress1, vstressmask, |
& vstress, vstress0, vstress1, vstressmask, |
109 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
110 |
& vstress_lon0, vstress_lon_inc, vstress_lat0, vstress_lat_inc, |
& vstress_lon0, vstress_lon_inc, vstress_lat0, vstress_lat_inc, |
111 |
& vstress_nlon, vstress_nlat, |
& vstress_nlon, vstress_nlat, xC, yG, |
112 |
#endif |
#endif |
113 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
114 |
|
|
123 |
& atemp, atemp0, atemp1, atempmask, |
& atemp, atemp0, atemp1, atempmask, |
124 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
125 |
& atemp_lon0, atemp_lon_inc, atemp_lat0, atemp_lat_inc, |
& atemp_lon0, atemp_lon_inc, atemp_lat0, atemp_lat_inc, |
126 |
& atemp_nlon, atemp_nlat, |
& atemp_nlon, atemp_nlat, xC, yC, |
127 |
#endif |
#endif |
128 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
129 |
|
|
134 |
& aqh, aqh0, aqh1, aqhmask, |
& aqh, aqh0, aqh1, aqhmask, |
135 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
136 |
& aqh_lon0, aqh_lon_inc, aqh_lat0, aqh_lat_inc, |
& aqh_lon0, aqh_lon_inc, aqh_lat0, aqh_lat_inc, |
137 |
& aqh_nlon, aqh_nlat, |
& aqh_nlon, aqh_nlat, xC, yC, |
138 |
#endif |
#endif |
139 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
140 |
|
|
145 |
& lwflux, lwflux0, lwflux1, lwfluxmask, |
& lwflux, lwflux0, lwflux1, lwfluxmask, |
146 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
147 |
& lwflux_lon0, lwflux_lon_inc, lwflux_lat0, lwflux_lat_inc, |
& lwflux_lon0, lwflux_lon_inc, lwflux_lat0, lwflux_lat_inc, |
148 |
& lwflux_nlon, lwflux_nlat, |
& lwflux_nlon, lwflux_nlat, xC, yC, |
149 |
#endif |
#endif |
150 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
151 |
|
|
156 |
& precip, precip0, precip1, precipmask, |
& precip, precip0, precip1, precipmask, |
157 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
158 |
& precip_lon0, precip_lon_inc, precip_lat0, precip_lat_inc, |
& precip_lon0, precip_lon_inc, precip_lat0, precip_lat_inc, |
159 |
& precip_nlon, precip_nlat, |
& precip_nlon, precip_nlat, xC, yC, |
160 |
#endif |
#endif |
161 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
162 |
|
|
182 |
& hflux, hflux0, hflux1, hfluxmask, |
& hflux, hflux0, hflux1, hfluxmask, |
183 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
184 |
& hflux_lon0, hflux_lon_inc, hflux_lat0, hflux_lat_inc, |
& hflux_lon0, hflux_lon_inc, hflux_lat0, hflux_lat_inc, |
185 |
& hflux_nlon, hflux_nlat, |
& hflux_nlon, hflux_nlat, xC, yC, |
186 |
#endif |
#endif |
187 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
188 |
|
|
192 |
& sflux, sflux0, sflux1, sfluxmask, |
& sflux, sflux0, sflux1, sfluxmask, |
193 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
194 |
& sflux_lon0, sflux_lon_inc, sflux_lat0, sflux_lat_inc, |
& sflux_lon0, sflux_lon_inc, sflux_lat0, sflux_lat_inc, |
195 |
& sflux_nlon, sflux_nlat, |
& sflux_nlon, sflux_nlat, xC, yC, |
196 |
#endif |
#endif |
197 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
198 |
|
|
205 |
& swflux, swflux0, swflux1, swfluxmask, |
& swflux, swflux0, swflux1, swfluxmask, |
206 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
207 |
& swflux_lon0, swflux_lon_inc, swflux_lat0, swflux_lat_inc, |
& swflux_lon0, swflux_lon_inc, swflux_lat0, swflux_lat_inc, |
208 |
& swflux_nlon, swflux_nlat, |
& swflux_nlon, swflux_nlat, xC, yC, |
209 |
#endif |
#endif |
210 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
211 |
#endif |
#endif |
217 |
& evap, evap0, evap1, evapmask, |
& evap, evap0, evap1, evapmask, |
218 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
219 |
& evap_lon0, evap_lon_inc, evap_lat0, evap_lat_inc, |
& evap_lon0, evap_lon_inc, evap_lat0, evap_lat_inc, |
220 |
& evap_nlon, evap_nlat, |
& evap_nlon, evap_nlat, xC, yC, |
221 |
#endif |
#endif |
222 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
223 |
#endif |
#endif |
230 |
& swdown, swdown0, swdown1, swdownmask, |
& swdown, swdown0, swdown1, swdownmask, |
231 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
232 |
& swdown_lon0, swdown_lon_inc, swdown_lat0, swdown_lat_inc, |
& swdown_lon0, swdown_lon_inc, swdown_lat0, swdown_lat_inc, |
233 |
& swdown_nlon, swdown_nlat, |
& swdown_nlon, swdown_nlat, xC, yC, |
234 |
#endif |
#endif |
235 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
236 |
|
|
240 |
& lwdown, lwdown0, lwdown1, lwdownmask, |
& lwdown, lwdown0, lwdown1, lwdownmask, |
241 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
242 |
& lwdown_lon0, lwdown_lon_inc, lwdown_lat0, lwdown_lat_inc, |
& lwdown_lon0, lwdown_lon_inc, lwdown_lat0, lwdown_lat_inc, |
243 |
& lwdown_nlon, lwdown_nlat, |
& lwdown_nlon, lwdown_nlat, xC, yC, |
244 |
#endif |
#endif |
245 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
246 |
|
|
254 |
& apressure, apressure0, apressure1, apressuremask, |
& apressure, apressure0, apressure1, apressuremask, |
255 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
256 |
& apressure_lon0, apressure_lon_inc, apressure_lat0, |
& apressure_lon0, apressure_lon_inc, apressure_lat0, |
257 |
& apressure_lat_inc, apressure_nlon, apressure_nlat, |
& apressure_lat_inc, apressure_nlon, apressure_nlat, xC, yC, |
258 |
#endif |
#endif |
259 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
260 |
#endif |
#endif |