/[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.15 by dimitri, Mon Aug 4 22:53:41 2003 UTC revision 1.16 by dimitri, Thu Aug 7 02:31:29 2003 UTC
# Line 11  c Line 11  c
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
# Line 58  c     Zonal wind. Line 59  c     Zonal wind.
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    
# Line 69  c     Meridional wind. Line 70  c     Meridional wind.
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    
# Line 96  c     Zonal wind stress. Line 97  c     Zonal wind stress.
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    
# Line 107  c     Meridional wind stress. Line 108  c     Meridional wind stress.
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    
# Line 122  c     Atmospheric temperature. Line 123  c     Atmospheric temperature.
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    
# Line 133  c     Atmospheric humidity. Line 134  c     Atmospheric humidity.
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    
# Line 144  c     Net long wave radiative flux. Line 145  c     Net long wave radiative flux.
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    
# Line 155  c     Precipitation. Line 156  c     Precipitation.
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    
# Line 181  c     Atmospheric heat flux. Line 182  c     Atmospheric heat flux.
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    
# Line 191  c     Salt flux. Line 192  c     Salt flux.
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    
# Line 204  c     Net short wave radiative flux. Line 205  c     Net short wave radiative flux.
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
# Line 216  c     Evaporation Line 217  c     Evaporation
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
# Line 229  c     Downward shortwave radiation. Line 230  c     Downward shortwave radiation.
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    
# Line 239  c     Downward longwave radiation. Line 240  c     Downward longwave radiation.
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    
# Line 253  c     Atmos. pressure forcing Line 254  c     Atmos. pressure forcing
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
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22