/[MITgcm]/MITgcm/pkg/exf/exf_getffields.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_getffields.F

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

revision 1.22 by dimitri, Wed Mar 17 23:08:09 2004 UTC revision 1.23 by heimbach, Mon Oct 11 16:41:01 2004 UTC
# Line 53  c     == end of interface == Line 53  c     == end of interface ==
53    
54  c--   read forcing fields from files and temporal interpolation  c--   read forcing fields from files and temporal interpolation
55    
56    cph-exf-print      print *, 'ph-exf --------- ----------------------------------'
57    
58  c     Zonal and meridional wind stress.  c     Zonal and meridional wind stress.
59  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
60        call exf_set_uv(        call exf_set_uv(
61       &     ustressfile, ustressstartdate, ustressperiod,       &     ustressfile, ustressstartdate, ustressperiod,
62         &     ustressstartdate1, ustressstartdate2,
63       &     exf_inscal_ustress, ustress, ustress0, ustress1, ustressmask,       &     exf_inscal_ustress, ustress, ustress0, ustress1, ustressmask,
64       &     ustress_lon0, ustress_lon_inc, ustress_lat0, ustress_lat_inc,       &     ustress_lon0, ustress_lon_inc, ustress_lat0, ustress_lat_inc,
65       &     ustress_nlon, ustress_nlat,       &     ustress_nlon, ustress_nlat,
66       &     vstressfile, vstressstartdate, vstressperiod,       &     vstressfile, vstressstartdate, vstressperiod,
67         &     vstressstartdate1, vstressstartdate2,
68       &     exf_inscal_vstress, vstress, vstress0, vstress1, vstressmask,       &     exf_inscal_vstress, vstress, vstress0, vstress1, vstressmask,
69       &     vstress_lon0, vstress_lon_inc, vstress_lat0, vstress_lat_inc,       &     vstress_lon0, vstress_lon_inc, vstress_lat0, vstress_lat_inc,
70       &     vstress_nlon, vstress_nlat,       &     vstress_nlon, vstress_nlat,
# Line 68  c     Zonal and meridional wind stress. Line 72  c     Zonal and meridional wind stress.
72  #else /* ifndef USE_EXF_INTERPOLATION */  #else /* ifndef USE_EXF_INTERPOLATION */
73        call exf_set_gen(        call exf_set_gen(
74       &     ustressfile, ustressstartdate, ustressperiod,       &     ustressfile, ustressstartdate, ustressperiod,
75         &     ustressstartdate1, ustressstartdate2,
76       &     exf_inscal_ustress,       &     exf_inscal_ustress,
77       &     ustress, ustress0, ustress1, ustressmask,       &     ustress, ustress0, ustress1, ustressmask,
78       &     mycurrenttime, mycurrentiter, mythid )       &     mycurrenttime, mycurrentiter, mythid )
79        call exf_set_gen(        call exf_set_gen(
80       &     vstressfile, vstressstartdate, vstressperiod,       &     vstressfile, vstressstartdate, vstressperiod,
81         &     ustressstartdate1, ustressstartdate2,
82       &     exf_inscal_vstress,       &     exf_inscal_vstress,
83       &     vstress, vstress0, vstress1, vstressmask,       &     vstress, vstress0, vstress1, vstressmask,
84       &     mycurrenttime, mycurrentiter, mythid )       &     mycurrenttime, mycurrentiter, mythid )
# Line 84  c     Zonal and meridional wind. Line 90  c     Zonal and meridional wind.
90  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
91        call exf_set_uv(        call exf_set_uv(
92       &     uwindfile, uwindstartdate, uwindperiod,       &     uwindfile, uwindstartdate, uwindperiod,
93         &     uwindstartdate1, uwindstartdate2,
94       &     exf_inscal_uwind, uwind, uwind0, uwind1, uwindmask,       &     exf_inscal_uwind, uwind, uwind0, uwind1, uwindmask,
95       &     uwind_lon0, uwind_lon_inc, uwind_lat0, uwind_lat_inc,       &     uwind_lon0, uwind_lon_inc, uwind_lat0, uwind_lat_inc,
96       &     uwind_nlon, uwind_nlat,       &     uwind_nlon, uwind_nlat,
97       &     vwindfile, vwindstartdate, vwindperiod,       &     vwindfile, vwindstartdate, vwindperiod,
98         &     vwindstartdate1, vwindstartdate2,
99       &     exf_inscal_vwind, vwind, vwind0, vwind1, vwindmask,       &     exf_inscal_vwind, vwind, vwind0, vwind1, vwindmask,
100       &     vwind_lon0, vwind_lon_inc, vwind_lat0, vwind_lat_inc,       &     vwind_lon0, vwind_lon_inc, vwind_lat0, vwind_lat_inc,
101       &     vwind_nlon, vwind_nlat,       &     vwind_nlon, vwind_nlat,
# Line 95  c     Zonal and meridional wind. Line 103  c     Zonal and meridional wind.
103  #else /* ifndef USE_EXF_INTERPOLATION */  #else /* ifndef USE_EXF_INTERPOLATION */
104        call exf_set_gen(        call exf_set_gen(
105       &     uwindfile, uwindstartdate, uwindperiod,       &     uwindfile, uwindstartdate, uwindperiod,
106         &     uwindstartdate1, uwindstartdate2,
107       &     exf_inscal_uwind,       &     exf_inscal_uwind,
108       &     uwind, uwind0, uwind1, uwindmask,       &     uwind, uwind0, uwind1, uwindmask,
109       &     mycurrenttime, mycurrentiter, mythid )       &     mycurrenttime, mycurrentiter, mythid )
110        call exf_set_gen(        call exf_set_gen(
111       &     vwindfile, vwindstartdate, vwindperiod,       &     vwindfile, vwindstartdate, vwindperiod,
112         &     vwindstartdate1, vwindstartdate2,
113       &     exf_inscal_vwind,       &     exf_inscal_vwind,
114       &     vwind, vwind0, vwind1, vwindmask,       &     vwind, vwind0, vwind1, vwindmask,
115       &     mycurrenttime, mycurrentiter, mythid )       &     mycurrenttime, mycurrentiter, mythid )
# Line 123  c     Zonal and meridional wind. Line 133  c     Zonal and meridional wind.
133    
134  c     Atmospheric heat flux.  c     Atmospheric heat flux.
135        call exf_set_gen  (        call exf_set_gen  (
136       &     hfluxfile, hfluxstartdate, hfluxperiod, exf_inscal_hflux,       &     hfluxfile, hfluxstartdate, hfluxperiod,
137         &     hfluxstartdate1, hfluxstartdate2,
138         &     exf_inscal_hflux,
139       &     hflux, hflux0, hflux1, hfluxmask,       &     hflux, hflux0, hflux1, hfluxmask,
140  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
141       &     hflux_lon0, hflux_lon_inc, hflux_lat0, hflux_lat_inc,       &     hflux_lon0, hflux_lon_inc, hflux_lat0, hflux_lat_inc,
# Line 133  c     Atmospheric heat flux. Line 145  c     Atmospheric heat flux.
145    
146  c     Salt flux.  c     Salt flux.
147        call exf_set_gen  (        call exf_set_gen  (
148       &     sfluxfile, sfluxstartdate, sfluxperiod, exf_inscal_sflux,       &     sfluxfile, sfluxstartdate, sfluxperiod,
149         &     sfluxstartdate1, sfluxstartdate2,
150         &     exf_inscal_sflux,
151       &     sflux, sflux0, sflux1, sfluxmask,       &     sflux, sflux0, sflux1, sfluxmask,
152  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
153       &     sflux_lon0, sflux_lon_inc, sflux_lat0, sflux_lat_inc,       &     sflux_lon0, sflux_lon_inc, sflux_lat0, sflux_lat_inc,
# Line 146  c     Salt flux. Line 160  c     Salt flux.
160  c     Atmospheric temperature.  c     Atmospheric temperature.
161        call exf_set_gen(        call exf_set_gen(
162       &     atempfile, atempstartdate, atempperiod,       &     atempfile, atempstartdate, atempperiod,
163         &     atempstartdate1, atempstartdate2,
164       &     exf_inscal_atemp,       &     exf_inscal_atemp,
165       &     atemp, atemp0, atemp1, atempmask,       &     atemp, atemp0, atemp1, atempmask,
166  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
# Line 166  c     Atmospheric temperature. Line 181  c     Atmospheric temperature.
181  c     Atmospheric humidity.  c     Atmospheric humidity.
182        call exf_set_gen(        call exf_set_gen(
183       &     aqhfile, aqhstartdate, aqhperiod,       &     aqhfile, aqhstartdate, aqhperiod,
184         &     aqhstartdate1, aqhstartdate2,
185       &     exf_inscal_aqh,       &     exf_inscal_aqh,
186       &     aqh, aqh0, aqh1, aqhmask,       &     aqh, aqh0, aqh1, aqhmask,
187  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
# Line 177  c     Atmospheric humidity. Line 193  c     Atmospheric humidity.
193  c     Net long wave radiative flux.  c     Net long wave radiative flux.
194        call exf_set_gen(        call exf_set_gen(
195       &     lwfluxfile, lwfluxstartdate, lwfluxperiod,       &     lwfluxfile, lwfluxstartdate, lwfluxperiod,
196         &     lwfluxstartdate1, lwfluxstartdate2,
197       &     exf_inscal_lwflux,       &     exf_inscal_lwflux,
198       &     lwflux, lwflux0, lwflux1, lwfluxmask,       &     lwflux, lwflux0, lwflux1, lwfluxmask,
199  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
# Line 188  c     Net long wave radiative flux. Line 205  c     Net long wave radiative flux.
205  c     Precipitation.  c     Precipitation.
206        call exf_set_gen(        call exf_set_gen(
207       &     precipfile, precipstartdate, precipperiod,       &     precipfile, precipstartdate, precipperiod,
208         &     precipstartdate1, precipstartdate2,
209       &     exf_inscal_precip,       &     exf_inscal_precip,
210       &     precip, precip0, precip1, precipmask,       &     precip, precip0, precip1, precipmask,
211  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
# Line 215  c     Precipitation. Line 233  c     Precipitation.
233  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
234  c     Net short wave radiative flux.  c     Net short wave radiative flux.
235        call exf_set_gen  (        call exf_set_gen  (
236       &     swfluxfile, swfluxstartdate, swfluxperiod, exf_inscal_swflux,       &     swfluxfile, swfluxstartdate, swfluxperiod,
237         &     swfluxstartdate1, swfluxstartdate2,
238         &     exf_inscal_swflux,
239       &     swflux, swflux0, swflux1, swfluxmask,       &     swflux, swflux0, swflux1, swfluxmask,
240  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
241       &     swflux_lon0, swflux_lon_inc, swflux_lat0, swflux_lat_inc,       &     swflux_lon0, swflux_lon_inc, swflux_lat0, swflux_lat_inc,
# Line 227  c     Net short wave radiative flux. Line 247  c     Net short wave radiative flux.
247  #ifdef EXF_READ_EVAP  #ifdef EXF_READ_EVAP
248  c     Evaporation  c     Evaporation
249        call exf_set_gen  (        call exf_set_gen  (
250       &     evapfile, evapstartdate, evapperiod, exf_inscal_evap,       &     evapfile, evapstartdate, evapperiod,
251         &     evapstartdate1, evapstartdate2,
252         &     exf_inscal_evap,
253       &     evap, evap0, evap1, evapmask,       &     evap, evap0, evap1, evapmask,
254  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
255       &     evap_lon0, evap_lon_inc, evap_lat0, evap_lat_inc,       &     evap_lon0, evap_lon_inc, evap_lat0, evap_lat_inc,
# Line 240  c     Evaporation Line 262  c     Evaporation
262    
263  c     Downward shortwave radiation.  c     Downward shortwave radiation.
264        call exf_set_gen  (        call exf_set_gen  (
265       &     swdownfile, swdownstartdate, swdownperiod, exf_inscal_swdown,       &     swdownfile, swdownstartdate, swdownperiod,
266         &     swdownstartdate1, swdownstartdate2,
267         &     exf_inscal_swdown,
268       &     swdown, swdown0, swdown1, swdownmask,       &     swdown, swdown0, swdown1, swdownmask,
269  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
270       &     swdown_lon0, swdown_lon_inc, swdown_lat0, swdown_lat_inc,       &     swdown_lon0, swdown_lon_inc, swdown_lat0, swdown_lat_inc,
# Line 250  c     Downward shortwave radiation. Line 274  c     Downward shortwave radiation.
274    
275  c     Downward longwave radiation.  c     Downward longwave radiation.
276        call exf_set_gen  (        call exf_set_gen  (
277       &     lwdownfile, lwdownstartdate, lwdownperiod, exf_inscal_lwdown,       &     lwdownfile, lwdownstartdate, lwdownperiod,
278         &     lwdownstartdate1, lwdownstartdate2,
279         &     exf_inscal_lwdown,
280       &     lwdown, lwdown0, lwdown1, lwdownmask,       &     lwdown, lwdown0, lwdown1, lwdownmask,
281  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
282       &     lwdown_lon0, lwdown_lon_inc, lwdown_lat0, lwdown_lat_inc,       &     lwdown_lon0, lwdown_lon_inc, lwdown_lat0, lwdown_lat_inc,
# Line 264  c     Downward longwave radiation. Line 290  c     Downward longwave radiation.
290  c     Atmos. pressure forcing  c     Atmos. pressure forcing
291        call exf_set_gen  (        call exf_set_gen  (
292       &     apressurefile, apressurestartdate, apressureperiod,       &     apressurefile, apressurestartdate, apressureperiod,
293         &     apressurestartdate1, apressurestartdate2,
294       &     exf_inscal_apressure,       &     exf_inscal_apressure,
295       &     apressure, apressure0, apressure1, apressuremask,       &     apressure, apressure0, apressure1, apressuremask,
296  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22