/[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.31 by heimbach, Thu Mar 2 15:30:10 2006 UTC revision 1.33 by heimbach, Fri Oct 27 05:16:54 2006 UTC
# Line 86  c     Zonal and meridional wind stress. Line 86  c     Zonal and meridional wind stress.
86       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
87  #endif /* USE_EXF_INTERPOLATION */  #endif /* USE_EXF_INTERPOLATION */
88    
89    c--   wind speed
90          call exf_set_gen(
91         &     wspeedfile, wspeedstartdate, wspeedperiod,
92         &     wspeedstartdate1, wspeedstartdate2,
93         &     exf_inscal_wspeed,
94         &     wspeed_exfremo_intercept, wspeed_exfremo_slope,
95         &     wspeed, wspeed0, wspeed1, wspeedmask,
96    #ifdef USE_EXF_INTERPOLATION
97         &     wspeed_lon0, wspeed_lon_inc,
98         &     wspeed_lat0, wspeed_lat_inc,
99         &     wspeed_nlon, wspeed_nlat, xC, yC, interp_method,
100    #endif
101         &     mytime, myiter, mythid )
102    
103  #ifdef ALLOW_ATM_WIND  #ifdef ALLOW_ATM_WIND
104    
105  c     Zonal and meridional wind.  c     Zonal and meridional wind.
# Line 212  c     Precipitation. Line 226  c     Precipitation.
226  #endif  #endif
227       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
228    
229    c     Snow.
230          call exf_set_gen(
231         &     snowprecipfile, snowprecipstartdate, snowprecipperiod,
232         &     snowprecipstartdate1, snowprecipstartdate2,
233         &     exf_inscal_snowprecip,
234         &     snowprecip_exfremo_intercept, snowprecip_exfremo_slope,
235         &     snowprecip, snowprecip0, snowprecip1, snowprecipmask,
236    #ifdef USE_EXF_INTERPOLATION
237         &     snowprecip_lon0, snowprecip_lon_inc,
238         &     snowprecip_lat0, snowprecip_lat_inc,
239         &     snowprecip_nlon, snowprecip_nlat, xC, yC, interp_method,
240    #endif
241         &     mytime, myiter, mythid )
242    
243  #endif /* ALLOW_ATM_TEMP */  #endif /* ALLOW_ATM_TEMP */
244    
245  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
# Line 332  c-- Control variables for atmos. state Line 360  c-- Control variables for atmos. state
360       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
361  #endif  #endif
362    
363    #ifdef ALLOW_LWFLUX_CONTROL
364          call ctrl_get_gen (
365         &     xx_lwflux_file, xx_lwfluxstartdate, xx_lwfluxperiod,
366         &     maskc, lwflux, xx_lwflux0, xx_lwflux1, xx_lwflux_dummy,
367         &     xx_lwflux_remo_intercept, xx_lwflux_remo_slope,
368         &     mytime, myiter, mythid )
369    #endif
370    
371    #ifdef ALLOW_LWDOWN_CONTROL
372          call ctrl_get_gen (
373         &     xx_lwdown_file, xx_lwdownstartdate, xx_lwdownperiod,
374         &     maskc, lwdown, xx_lwdown0, xx_lwdown1, xx_lwdown_dummy,
375         &     xx_lwdown_remo_intercept, xx_lwdown_remo_slope,
376         &     mytime, myiter, mythid )
377    #endif
378    
379    #ifdef ALLOW_EVAP_CONTROL
380          call ctrl_get_gen (
381         &     xx_evap_file, xx_evapstartdate, xx_evapperiod,
382         &     maskc, evap, xx_evap0, xx_evap1, xx_evap_dummy,
383         &     xx_evap_remo_intercept, xx_evap_remo_slope,
384         &     mytime, myiter, mythid )
385    #endif
386    
387    #ifdef ALLOW_SNOWPRECIP_CONTROL
388          call ctrl_get_gen (
389         &     xx_snowprecip_file, xx_snowprecipstartdate,
390         &     xx_snowprecipperiod,
391         &     maskc, snowprecip, xx_snowprecip0, xx_snowprecip1,
392         &     xx_snowprecip_dummy,
393         &     xx_snowprecip_remo_intercept, xx_snowprecip_remo_slope,
394         &     mytime, myiter, mythid )
395    #endif
396    
397    #ifdef ALLOW_APRESSURE_CONTROL
398          call ctrl_get_gen (
399         &     xx_apressure_file, xx_apressurestartdate,
400         &     xx_apressureperiod,
401         &     maskc, apressure, xx_apressure0, xx_apressure1,
402         &     xx_apressure_dummy,
403         &     xx_apressure_remo_intercept, xx_apressure_remo_slope,
404         &     mytime, myiter, mythid )
405    #endif
406    
407  #ifdef ALLOW_UWIND_CONTROL  #ifdef ALLOW_UWIND_CONTROL
408        call ctrl_get_gen (        call ctrl_get_gen (
409       &     xx_uwind_file, xx_uwindstartdate, xx_uwindperiod,       &     xx_uwind_file, xx_uwindstartdate, xx_uwindperiod,
# Line 348  c-- Control variables for atmos. state Line 420  c-- Control variables for atmos. state
420       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
421  #endif /* ALLOW_VWIND_CONTROL */  #endif /* ALLOW_VWIND_CONTROL */
422    
 #ifdef ALLOW_LWFLUX_CONTROL  
       call ctrl_get_gen (  
 NOT YET IMPLEMENTED  
      &     mytime, myiter, mythid )  
 #endif  
   
   
423        end        end
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22