/[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.16 by dimitri, Thu Aug 7 02:31:29 2003 UTC revision 1.31 by heimbach, Thu Mar 2 15:30:10 2006 UTC
# Line 1  Line 1 
1  c $Header$  C
2    C $Header$
3    C $Name$
4    
5  #include "EXF_CPPOPTIONS.h"  #include "EXF_OPTIONS.h"
6    
7        subroutine exf_getffields( mycurrenttime, mycurrentiter, mythid )        subroutine exf_getffields( mytime, myiter, mythid )
8    
9  c     ==================================================================  c     ==================================================================
10  c     SUBROUTINE exf_getffields  c     SUBROUTINE exf_getffields
# Line 31  c     == global variables == Line 33  c     == global variables ==
33  #include "exf_fields.h"  #include "exf_fields.h"
34  #include "exf_constants.h"  #include "exf_constants.h"
35    
36  #if (defined (ALLOW_ADJOINT_RUN) || \  #ifdef ALLOW_AUTODIFF
      defined (ALLOW_TANGENTLINEAR_RUN) || \  
      defined (ALLOW_ECCO_OPTIMIZATION))  
37  # include "ctrl.h"  # include "ctrl.h"
38  # include "ctrl_dummy.h"  # include "ctrl_dummy.h"
39  #endif  #endif
# Line 41  c     == global variables == Line 41  c     == global variables ==
41  c     == routine arguments ==  c     == routine arguments ==
42    
43        integer mythid        integer mythid
44        integer mycurrentiter        integer myiter
45        _RL     mycurrenttime        _RL     mytime
46    
47  c     == local variables ==  c     == local variables ==
48    
49          integer i, j, bi, bj, interp_method
50          parameter(interp_method=1)
51    
52  c     == end of interface ==  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    c     Zonal and meridional wind stress.
57    #ifdef USE_EXF_INTERPOLATION
58          call exf_set_uv(
59         &     ustressfile, ustressstartdate, ustressperiod,
60         &     ustressstartdate1, ustressstartdate2,
61         &     exf_inscal_ustress, ustress, ustress0, ustress1, ustressmask,
62         &     ustress_lon0, ustress_lon_inc, ustress_lat0, ustress_lat_inc,
63         &     ustress_nlon, ustress_nlat,
64         &     ustress_exfremo_intercept, ustress_exfremo_slope,
65         &     vstressfile, vstressstartdate, vstressperiod,
66         &     vstressstartdate1, vstressstartdate2,
67         &     exf_inscal_vstress, vstress, vstress0, vstress1, vstressmask,
68         &     vstress_lon0, vstress_lon_inc, vstress_lat0, vstress_lat_inc,
69         &     vstress_nlon, vstress_nlat,
70         &     vstress_exfremo_intercept, vstress_exfremo_slope,
71         &     mytime, myiter, mythid )
72    #else /* ifndef USE_EXF_INTERPOLATION */
73          call exf_set_gen(
74         &     ustressfile, ustressstartdate, ustressperiod,
75         &     ustressstartdate1, ustressstartdate2,
76         &     exf_inscal_ustress,
77         &     ustress_exfremo_intercept, ustress_exfremo_slope,
78         &     ustress, ustress0, ustress1, ustressmask,
79         &     mytime, myiter, mythid )
80          call exf_set_gen(
81         &     vstressfile, vstressstartdate, vstressperiod,
82         &     ustressstartdate1, ustressstartdate2,
83         &     exf_inscal_vstress,
84         &     vstress_exfremo_intercept, vstress_exfremo_slope,
85         &     vstress, vstress0, vstress1, vstressmask,
86         &     mytime, myiter, mythid )
87    #endif /* USE_EXF_INTERPOLATION */
88    
89  #ifdef ALLOW_ATM_WIND  #ifdef ALLOW_ATM_WIND
90    
91  c     Zonal wind.  c     Zonal and meridional wind.
       call exf_set_gen(  
      &     uwindfile, uwindstartdate, uwindperiod,  
      &     exf_inscal_uwind,  
      &     uwind, uwind0, uwind1, uwindmask,  
92  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
93          call exf_set_uv(
94         &     uwindfile, uwindstartdate, uwindperiod,
95         &     uwindstartdate1, uwindstartdate2,
96         &     exf_inscal_uwind, uwind, uwind0, uwind1, uwindmask,
97       &     uwind_lon0, uwind_lon_inc, uwind_lat0, uwind_lat_inc,       &     uwind_lon0, uwind_lon_inc, uwind_lat0, uwind_lat_inc,
98       &     uwind_nlon, uwind_nlat, xC, yC,       &     uwind_nlon, uwind_nlat,
99  #endif       &     uwind_exfremo_intercept, uwind_exfremo_slope,
100       &     mycurrenttime, mycurrentiter, mythid )       &     vwindfile, vwindstartdate, vwindperiod,
101         &     vwindstartdate1, vwindstartdate2,
102  c     Meridional wind.       &     exf_inscal_vwind, vwind, vwind0, vwind1, vwindmask,
       call exf_set_gen(  
      &     vwindfile, vwindstartdate, vwindperiod,  
      &     exf_inscal_vwind,  
      &     vwind, vwind0, vwind1, vwindmask,  
 #ifdef USE_EXF_INTERPOLATION  
103       &     vwind_lon0, vwind_lon_inc, vwind_lat0, vwind_lat_inc,       &     vwind_lon0, vwind_lon_inc, vwind_lat0, vwind_lat_inc,
104       &     vwind_nlon, vwind_nlat, xC, yC,       &     vwind_nlon, vwind_nlat,
105  #endif       &     vwind_exfremo_intercept, vwind_exfremo_slope,
106       &     mycurrenttime, mycurrentiter, mythid )       &     mytime, myiter, mythid )
107    #else /* ifndef USE_EXF_INTERPOLATION */
108  #ifdef ALLOW_UWIND_CONTROL        call exf_set_gen(
109        call ctrl_get_gen (       &     uwindfile, uwindstartdate, uwindperiod,
110       &     xx_uwind_file, xx_uwindstartdate, xx_uwindperiod,       &     uwindstartdate1, uwindstartdate2,
111       &     maskw, uwind, xx_uwind0, xx_uwind1, xx_uwind_dummy,       &     exf_inscal_uwind,
112       &     mycurrenttime, mycurrentiter, mythid )       &     uwind_exfremo_intercept, uwind_exfremo_slope,
113  #endif       &     uwind, uwind0, uwind1, uwindmask,
114         &     mytime, myiter, mythid )
115  #ifdef ALLOW_VWIND_CONTROL        call exf_set_gen(
116        call ctrl_get_gen (       &     vwindfile, vwindstartdate, vwindperiod,
117       &     xx_vwind_file, xx_vwindstartdate, xx_vwindperiod,       &     vwindstartdate1, vwindstartdate2,
118       &     masks, vwind, xx_vwind0, xx_vwind1, xx_vwind_dummy,       &     exf_inscal_vwind,
119       &     mycurrenttime, mycurrentiter, mythid )       &     vwind_exfremo_intercept, vwind_exfremo_slope,
120  #endif       &     vwind, vwind0, vwind1, vwindmask,
121         &     mytime, myiter, mythid )
122    #endif /* USE_EXF_INTERPOLATION */
123    
124  #else  /* ifndef ALLOW_ATM_WIND */  #endif /* ALLOW_ATM_WIND */
125    
126  c     Zonal wind stress.  c     Atmospheric heat flux.
127        call exf_set_gen(        call exf_set_gen  (
128       &     ustressfile, ustressstartdate, ustressperiod,       &     hfluxfile, hfluxstartdate, hfluxperiod,
129       &     exf_inscal_ustress,       &     hfluxstartdate1, hfluxstartdate2,
130       &     ustress, ustress0, ustress1, ustressmask,       &     exf_inscal_hflux,
131         &     hflux_exfremo_intercept, hflux_exfremo_slope,
132         &     hflux, hflux0, hflux1, hfluxmask,
133  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
134       &     ustress_lon0, ustress_lon_inc, ustress_lat0, ustress_lat_inc,       &     hflux_lon0, hflux_lon_inc, hflux_lat0, hflux_lat_inc,
135       &     ustress_nlon, ustress_nlat, xG, yC,       &     hflux_nlon, hflux_nlat, xC, yC, interp_method,
136  #endif  #endif
137       &     mycurrenttime, mycurrentiter, mythid )       &     mytime, myiter, mythid )
138    
139  c     Meridional wind stress.  c     Salt flux.
140        call exf_set_gen(        call exf_set_gen  (
141       &     vstressfile, vstressstartdate, vstressperiod,       &     sfluxfile, sfluxstartdate, sfluxperiod,
142       &     exf_inscal_vstress,       &     sfluxstartdate1, sfluxstartdate2,
143       &     vstress, vstress0, vstress1, vstressmask,       &     exf_inscal_sflux,
144         &     sflux_exfremo_intercept, sflux_exfremo_slope,
145         &     sflux, sflux0, sflux1, sfluxmask,
146  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
147       &     vstress_lon0, vstress_lon_inc, vstress_lat0, vstress_lat_inc,       &     sflux_lon0, sflux_lon_inc, sflux_lat0, sflux_lat_inc,
148       &     vstress_nlon, vstress_nlat, xC, yG,       &     sflux_nlon, sflux_nlat, xC, yC, interp_method,
149  #endif  #endif
150       &     mycurrenttime, mycurrentiter, mythid )       &     mytime, myiter, mythid )
   
 #endif /* ifndef ALLOW_ATM_WIND */  
151    
152  #ifdef ALLOW_ATM_TEMP  #ifdef ALLOW_ATM_TEMP
153    
154  c     Atmospheric temperature.  c     Atmospheric temperature.
155        call exf_set_gen(        call exf_set_gen(
156       &     atempfile, atempstartdate, atempperiod,       &     atempfile, atempstartdate, atempperiod,
157         &     atempstartdate1, atempstartdate2,
158       &     exf_inscal_atemp,       &     exf_inscal_atemp,
159         &     atemp_exfremo_intercept, atemp_exfremo_slope,
160       &     atemp, atemp0, atemp1, atempmask,       &     atemp, atemp0, atemp1, atempmask,
161  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
162       &     atemp_lon0, atemp_lon_inc, atemp_lat0, atemp_lat_inc,       &     atemp_lon0, atemp_lon_inc, atemp_lat0, atemp_lat_inc,
163       &     atemp_nlon, atemp_nlat, xC, yC,       &     atemp_nlon, atemp_nlat, xC, yC, interp_method,
164  #endif  #endif
165       &     mycurrenttime, mycurrentiter, mythid )       &     mytime, myiter, mythid )
166          do bj = mybylo(mythid),mybyhi(mythid)
167           do bi = mybxlo(mythid),mybxhi(mythid)
168            do j = 1,sny
169             do i = 1,snx
170              atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp
171             enddo
172            enddo
173           enddo
174          enddo
175    
176  c     Atmospheric humidity.  c     Atmospheric humidity.
177        call exf_set_gen(        call exf_set_gen(
178       &     aqhfile, aqhstartdate, aqhperiod,       &     aqhfile, aqhstartdate, aqhperiod,
179         &     aqhstartdate1, aqhstartdate2,
180       &     exf_inscal_aqh,       &     exf_inscal_aqh,
181         &     aqh_exfremo_intercept, aqh_exfremo_slope,
182       &     aqh, aqh0, aqh1, aqhmask,       &     aqh, aqh0, aqh1, aqhmask,
183  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
184       &     aqh_lon0, aqh_lon_inc, aqh_lat0, aqh_lat_inc,       &     aqh_lon0, aqh_lon_inc, aqh_lat0, aqh_lat_inc,
185       &     aqh_nlon, aqh_nlat, xC, yC,       &     aqh_nlon, aqh_nlat, xC, yC, interp_method,
186  #endif  #endif
187       &     mycurrenttime, mycurrentiter, mythid )       &     mytime, myiter, mythid )
188    
189  c     Net long wave radiative flux.  c     Net long wave radiative flux.
190        call exf_set_gen(        call exf_set_gen(
191       &     lwfluxfile, lwfluxstartdate, lwfluxperiod,       &     lwfluxfile, lwfluxstartdate, lwfluxperiod,
192         &     lwfluxstartdate1, lwfluxstartdate2,
193       &     exf_inscal_lwflux,       &     exf_inscal_lwflux,
194         &     lwflux_exfremo_intercept, lwflux_exfremo_slope,
195       &     lwflux, lwflux0, lwflux1, lwfluxmask,       &     lwflux, lwflux0, lwflux1, lwfluxmask,
196  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
197       &     lwflux_lon0, lwflux_lon_inc, lwflux_lat0, lwflux_lat_inc,       &     lwflux_lon0, lwflux_lon_inc, lwflux_lat0, lwflux_lat_inc,
198       &     lwflux_nlon, lwflux_nlat, xC, yC,       &     lwflux_nlon, lwflux_nlat, xC, yC, interp_method,
199  #endif  #endif
200       &     mycurrenttime, mycurrentiter, mythid )       &     mytime, myiter, mythid )
201    
202  c     Precipitation.  c     Precipitation.
203        call exf_set_gen(        call exf_set_gen(
204       &     precipfile, precipstartdate, precipperiod,       &     precipfile, precipstartdate, precipperiod,
205         &     precipstartdate1, precipstartdate2,
206       &     exf_inscal_precip,       &     exf_inscal_precip,
207         &     precip_exfremo_intercept, precip_exfremo_slope,
208       &     precip, precip0, precip1, precipmask,       &     precip, precip0, precip1, precipmask,
209  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
210       &     precip_lon0, precip_lon_inc, precip_lat0, precip_lat_inc,       &     precip_lon0, precip_lon_inc, precip_lat0, precip_lat_inc,
211       &     precip_nlon, precip_nlat, xC, yC,       &     precip_nlon, precip_nlat, xC, yC, interp_method,
212  #endif  #endif
213       &     mycurrenttime, mycurrentiter, mythid )       &     mytime, myiter, mythid )
214    
215  #ifdef ALLOW_ATEMP_CONTROL  #endif /* ALLOW_ATM_TEMP */
       call ctrl_get_gen (  
      &     xx_atemp_file, xx_atempstartdate, xx_atempperiod,  
      &     maskc, atemp, xx_atemp0, xx_atemp1, xx_atemp_dummy,  
      &     mycurrenttime, mycurrentiter, mythid )  
 #endif  
   
 #ifdef ALLOW_AQH_CONTROL  
       call ctrl_get_gen (  
      &     xx_aqh_file, xx_aqhstartdate, xx_aqhperiod,  
      &     maskc, aqh, xx_aqh0, xx_aqh1, xx_aqh_dummy,  
      &     mycurrenttime, mycurrentiter, mythid )  
 #endif  
   
 #else  /* ifndef ALLOW_ATM_TEMP */  
   
 c     Atmospheric heat flux.  
       call exf_set_gen  (  
      &     hfluxfile, hfluxstartdate, hfluxperiod, exf_inscal_hflux,  
      &     hflux, hflux0, hflux1, hfluxmask,  
 #ifdef USE_EXF_INTERPOLATION  
      &     hflux_lon0, hflux_lon_inc, hflux_lat0, hflux_lat_inc,  
      &     hflux_nlon, hflux_nlat, xC, yC,  
 #endif  
      &     mycurrenttime, mycurrentiter, mythid )  
   
 c     Salt flux.  
       call exf_set_gen  (  
      &     sfluxfile, sfluxstartdate, sfluxperiod, exf_inscal_sflux,  
      &     sflux, sflux0, sflux1, sfluxmask,  
 #ifdef USE_EXF_INTERPOLATION  
      &     sflux_lon0, sflux_lon_inc, sflux_lat0, sflux_lat_inc,  
      &     sflux_nlon, sflux_nlat, xC, yC,  
 #endif  
      &     mycurrenttime, mycurrentiter, mythid )  
   
 #endif /* ifndef ALLOW_ATM_TEMP */  
216    
217  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
218  c     Net short wave radiative flux.  c     Net short wave radiative flux.
219        call exf_set_gen  (        call exf_set_gen  (
220       &     swfluxfile, swfluxstartdate, swfluxperiod, exf_inscal_swflux,       &     swfluxfile, swfluxstartdate, swfluxperiod,
221         &     swfluxstartdate1, swfluxstartdate2,
222         &     exf_inscal_swflux,
223         &     swflux_exfremo_intercept, swflux_exfremo_slope,
224       &     swflux, swflux0, swflux1, swfluxmask,       &     swflux, swflux0, swflux1, swfluxmask,
225  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
226       &     swflux_lon0, swflux_lon_inc, swflux_lat0, swflux_lat_inc,       &     swflux_lon0, swflux_lon_inc, swflux_lat0, swflux_lat_inc,
227       &     swflux_nlon, swflux_nlat, xC, yC,       &     swflux_nlon, swflux_nlat, xC, yC, interp_method,
228  #endif  #endif
229       &     mycurrenttime, mycurrentiter, mythid )       &     mytime, myiter, mythid )
230  #endif  #endif
231    
232  #ifdef EXF_READ_EVAP  #ifdef EXF_READ_EVAP
233  c     Evaporation  c     Evaporation
234        call exf_set_gen  (        call exf_set_gen  (
235       &     evapfile, evapstartdate, evapperiod, exf_inscal_evap,       &     evapfile, evapstartdate, evapperiod,
236         &     evapstartdate1, evapstartdate2,
237         &     exf_inscal_evap,
238         &     evap_exfremo_intercept, evap_exfremo_slope,
239       &     evap, evap0, evap1, evapmask,       &     evap, evap0, evap1, evapmask,
240  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
241       &     evap_lon0, evap_lon_inc, evap_lat0, evap_lat_inc,       &     evap_lon0, evap_lon_inc, evap_lat0, evap_lat_inc,
242       &     evap_nlon, evap_nlat, xC, yC,       &     evap_nlon, evap_nlat, xC, yC, interp_method,
243  #endif  #endif
244       &     mycurrenttime, mycurrentiter, mythid )       &     mytime, myiter, mythid )
245  #endif  #endif
246    
247  #ifdef ALLOW_DOWNWARD_RADIATION  #ifdef ALLOW_DOWNWARD_RADIATION
248    
249  c     Downward shortwave radiation.  c     Downward shortwave radiation.
250        call exf_set_gen  (        call exf_set_gen  (
251       &     swdownfile, swdownstartdate, swdownperiod, exf_inscal_swdown,       &     swdownfile, swdownstartdate, swdownperiod,
252         &     swdownstartdate1, swdownstartdate2,
253         &     exf_inscal_swdown,
254         &     swdown_exfremo_intercept, swdown_exfremo_slope,
255       &     swdown, swdown0, swdown1, swdownmask,       &     swdown, swdown0, swdown1, swdownmask,
256  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
257       &     swdown_lon0, swdown_lon_inc, swdown_lat0, swdown_lat_inc,       &     swdown_lon0, swdown_lon_inc, swdown_lat0, swdown_lat_inc,
258       &     swdown_nlon, swdown_nlat, xC, yC,       &     swdown_nlon, swdown_nlat, xC, yC, interp_method,
259  #endif  #endif
260       &     mycurrenttime, mycurrentiter, mythid )       &     mytime, myiter, mythid )
261    
262  c     Downward longwave radiation.  c     Downward longwave radiation.
263        call exf_set_gen  (        call exf_set_gen  (
264       &     lwdownfile, lwdownstartdate, lwdownperiod, exf_inscal_lwdown,       &     lwdownfile, lwdownstartdate, lwdownperiod,
265         &     lwdownstartdate1, lwdownstartdate2,
266         &     exf_inscal_lwdown,
267         &     lwdown_exfremo_intercept, lwdown_exfremo_slope,
268       &     lwdown, lwdown0, lwdown1, lwdownmask,       &     lwdown, lwdown0, lwdown1, lwdownmask,
269  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
270       &     lwdown_lon0, lwdown_lon_inc, lwdown_lat0, lwdown_lat_inc,       &     lwdown_lon0, lwdown_lon_inc, lwdown_lat0, lwdown_lat_inc,
271       &     lwdown_nlon, lwdown_nlat, xC, yC,       &     lwdown_nlon, lwdown_nlat, xC, yC, interp_method,
272  #endif  #endif
273       &     mycurrenttime, mycurrentiter, mythid )       &     mytime, myiter, mythid )
274    
275  #endif  #endif
276    
# Line 250  c     Downward longwave radiation. Line 278  c     Downward longwave radiation.
278  c     Atmos. pressure forcing  c     Atmos. pressure forcing
279        call exf_set_gen  (        call exf_set_gen  (
280       &     apressurefile, apressurestartdate, apressureperiod,       &     apressurefile, apressurestartdate, apressureperiod,
281         &     apressurestartdate1, apressurestartdate2,
282       &     exf_inscal_apressure,       &     exf_inscal_apressure,
283         &     apressure_exfremo_intercept, apressure_exfremo_slope,
284       &     apressure, apressure0, apressure1, apressuremask,       &     apressure, apressure0, apressure1, apressuremask,
285  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
286       &     apressure_lon0, apressure_lon_inc, apressure_lat0,       &     apressure_lon0, apressure_lon_inc, apressure_lat0,
287       &     apressure_lat_inc, apressure_nlon, apressure_nlat, xC, yC,       &     apressure_lat_inc, apressure_nlon, apressure_nlat, xC, yC,
288         &     interp_method,
289    #endif
290         &     mytime, myiter, mythid )
291    #endif
292    
293    c-- Control variables for atmos. state
294    
295    #ifdef ALLOW_ATEMP_CONTROL
296          call ctrl_get_gen (
297         &     xx_atemp_file, xx_atempstartdate, xx_atempperiod,
298         &     maskc, atemp, xx_atemp0, xx_atemp1, xx_atemp_dummy,
299         &     xx_atemp_remo_intercept, xx_atemp_remo_slope,
300         &     mytime, myiter, mythid )
301  #endif  #endif
302       &     mycurrenttime, mycurrentiter, mythid )  
303    #ifdef ALLOW_AQH_CONTROL
304          call ctrl_get_gen (
305         &     xx_aqh_file, xx_aqhstartdate, xx_aqhperiod,
306         &     maskc, aqh, xx_aqh0, xx_aqh1, xx_aqh_dummy,
307         &     xx_aqh_remo_intercept, xx_aqh_remo_slope,
308         &     mytime, myiter, mythid )
309    #endif
310    
311    #ifdef ALLOW_PRECIP_CONTROL
312          call ctrl_get_gen (
313         &     xx_precip_file, xx_precipstartdate, xx_precipperiod,
314         &     maskc, precip, xx_precip0, xx_precip1, xx_precip_dummy,
315         &     xx_precip_remo_intercept, xx_precip_remo_slope,
316         &     mytime, myiter, mythid )
317    #endif
318    
319    #ifdef ALLOW_SWFLUX_CONTROL
320          call ctrl_get_gen (
321         &     xx_swflux_file, xx_swfluxstartdate, xx_swfluxperiod,
322         &     maskc, swflux, xx_swflux0, xx_swflux1, xx_swflux_dummy,
323         &     xx_swflux_remo_intercept, xx_swflux_remo_slope,
324         &     mytime, myiter, mythid )
325    #endif
326    
327    #ifdef ALLOW_SWDOWN_CONTROL
328          call ctrl_get_gen (
329         &     xx_swdown_file, xx_swdownstartdate, xx_swdownperiod,
330         &     maskc, swdown, xx_swdown0, xx_swdown1, xx_swdown_dummy,
331         &     xx_swdown_remo_intercept, xx_swdown_remo_slope,
332         &     mytime, myiter, mythid )
333    #endif
334    
335    #ifdef ALLOW_UWIND_CONTROL
336          call ctrl_get_gen (
337         &     xx_uwind_file, xx_uwindstartdate, xx_uwindperiod,
338         &     maskc, uwind, xx_uwind0, xx_uwind1, xx_uwind_dummy,
339         &     xx_uwind_remo_intercept, xx_uwind_remo_slope,
340         &     mytime, myiter, mythid )
341    #endif /* ALLOW_UWIND_CONTROL */
342    
343    #ifdef ALLOW_VWIND_CONTROL
344          call ctrl_get_gen (
345         &     xx_vwind_file, xx_vwindstartdate, xx_vwindperiod,
346         &     maskc, vwind, xx_vwind0, xx_vwind1, xx_vwind_dummy,
347         &     xx_vwind_remo_intercept, xx_vwind_remo_slope,
348         &     mytime, myiter, mythid )
349    #endif /* ALLOW_VWIND_CONTROL */
350    
351    #ifdef ALLOW_LWFLUX_CONTROL
352          call ctrl_get_gen (
353    NOT YET IMPLEMENTED
354         &     mytime, myiter, mythid )
355  #endif  #endif
356    
357    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22