/[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.33 by heimbach, Fri Oct 27 05:16:54 2006 UTC revision 1.34 by dimitri, Mon Dec 11 16:19:19 2006 UTC
# Line 138  c     Zonal and meridional wind. Line 138  c     Zonal and meridional wind.
138  #endif /* ALLOW_ATM_WIND */  #endif /* ALLOW_ATM_WIND */
139    
140  c     Atmospheric heat flux.  c     Atmospheric heat flux.
141        call exf_set_gen  (        call exf_set_gen  (
142       &     hfluxfile, hfluxstartdate, hfluxperiod,       &     hfluxfile, hfluxstartdate, hfluxperiod,
143       &     hfluxstartdate1, hfluxstartdate2,       &     hfluxstartdate1, hfluxstartdate2,
144       &     exf_inscal_hflux,       &     exf_inscal_hflux,
# Line 151  c     Atmospheric heat flux. Line 151  c     Atmospheric heat flux.
151       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
152    
153  c     Salt flux.  c     Salt flux.
154        call exf_set_gen  (        call exf_set_gen  (
155       &     sfluxfile, sfluxstartdate, sfluxperiod,       &     sfluxfile, sfluxstartdate, sfluxperiod,
156       &     sfluxstartdate1, sfluxstartdate2,       &     sfluxstartdate1, sfluxstartdate2,
157       &     exf_inscal_sflux,       &     exf_inscal_sflux,
# Line 244  c     Snow. Line 244  c     Snow.
244    
245  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
246  c     Net short wave radiative flux.  c     Net short wave radiative flux.
247        call exf_set_gen  (        call exf_set_gen  (
248       &     swfluxfile, swfluxstartdate, swfluxperiod,       &     swfluxfile, swfluxstartdate, swfluxperiod,
249       &     swfluxstartdate1, swfluxstartdate2,       &     swfluxstartdate1, swfluxstartdate2,
250       &     exf_inscal_swflux,       &     exf_inscal_swflux,
# Line 259  c     Net short wave radiative flux. Line 259  c     Net short wave radiative flux.
259    
260  #ifdef EXF_READ_EVAP  #ifdef EXF_READ_EVAP
261  c     Evaporation  c     Evaporation
262        call exf_set_gen  (        call exf_set_gen  (
263       &     evapfile, evapstartdate, evapperiod,       &     evapfile, evapstartdate, evapperiod,
264       &     evapstartdate1, evapstartdate2,       &     evapstartdate1, evapstartdate2,
265       &     exf_inscal_evap,       &     exf_inscal_evap,
# Line 275  c     Evaporation Line 275  c     Evaporation
275  #ifdef ALLOW_DOWNWARD_RADIATION  #ifdef ALLOW_DOWNWARD_RADIATION
276    
277  c     Downward shortwave radiation.  c     Downward shortwave radiation.
278        call exf_set_gen  (        call exf_set_gen  (
279       &     swdownfile, swdownstartdate, swdownperiod,       &     swdownfile, swdownstartdate, swdownperiod,
280       &     swdownstartdate1, swdownstartdate2,       &     swdownstartdate1, swdownstartdate2,
281       &     exf_inscal_swdown,       &     exf_inscal_swdown,
# Line 288  c     Downward shortwave radiation. Line 288  c     Downward shortwave radiation.
288       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
289    
290  c     Downward longwave radiation.  c     Downward longwave radiation.
291        call exf_set_gen  (        call exf_set_gen  (
292       &     lwdownfile, lwdownstartdate, lwdownperiod,       &     lwdownfile, lwdownstartdate, lwdownperiod,
293       &     lwdownstartdate1, lwdownstartdate2,       &     lwdownstartdate1, lwdownstartdate2,
294       &     exf_inscal_lwdown,       &     exf_inscal_lwdown,
# Line 304  c     Downward longwave radiation. Line 304  c     Downward longwave radiation.
304    
305  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
306  c     Atmos. pressure forcing  c     Atmos. pressure forcing
307        call exf_set_gen  (        call exf_set_gen  (
308       &     apressurefile, apressurestartdate, apressureperiod,       &     apressurefile, apressurestartdate, apressureperiod,
309       &     apressurestartdate1, apressurestartdate2,       &     apressurestartdate1, apressurestartdate2,
310       &     exf_inscal_apressure,       &     exf_inscal_apressure,
# Line 318  c     Atmos. pressure forcing Line 318  c     Atmos. pressure forcing
318       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
319  #endif  #endif
320    
321    #if (defined (ALLOW_RUNOFF) || defined (ALLOW_SEAICE))
322    c     Runoff
323          call exf_set_gen  (
324         &     runofffile, runoffstartdate, runoffperiod,
325         &     runoffstartdate1, runoffstartdate2,
326         &     exf_inscal_runoff,
327         &     runoff_exfremo_intercept, runoff_exfremo_slope,
328         &     runoff, runoff0, runoff1, runoffmask,
329    #ifdef USE_EXF_INTERPOLATION
330         &     runoff_lon0, runoff_lon_inc, runoff_lat0,
331         &     runoff_lat_inc, runoff_nlon, runoff_nlat, xC, yC,
332         &     interp_method,
333    #endif
334         &     mytime, myiter, mythid )
335    #endif
336    
337  c-- Control variables for atmos. state  c-- Control variables for atmos. state
338    
339  #ifdef ALLOW_ATEMP_CONTROL  #ifdef ALLOW_ATEMP_CONTROL
340        call ctrl_get_gen (        call ctrl_get_gen (
341       &     xx_atemp_file, xx_atempstartdate, xx_atempperiod,       &     xx_atemp_file, xx_atempstartdate, xx_atempperiod,
342       &     maskc, atemp, xx_atemp0, xx_atemp1, xx_atemp_dummy,       &     maskc, atemp, xx_atemp0, xx_atemp1, xx_atemp_dummy,
343       &     xx_atemp_remo_intercept, xx_atemp_remo_slope,       &     xx_atemp_remo_intercept, xx_atemp_remo_slope,
# Line 329  c-- Control variables for atmos. state Line 345  c-- Control variables for atmos. state
345  #endif  #endif
346    
347  #ifdef ALLOW_AQH_CONTROL  #ifdef ALLOW_AQH_CONTROL
348        call ctrl_get_gen (        call ctrl_get_gen (
349       &     xx_aqh_file, xx_aqhstartdate, xx_aqhperiod,       &     xx_aqh_file, xx_aqhstartdate, xx_aqhperiod,
350       &     maskc, aqh, xx_aqh0, xx_aqh1, xx_aqh_dummy,       &     maskc, aqh, xx_aqh0, xx_aqh1, xx_aqh_dummy,
351       &     xx_aqh_remo_intercept, xx_aqh_remo_slope,       &     xx_aqh_remo_intercept, xx_aqh_remo_slope,
# Line 337  c-- Control variables for atmos. state Line 353  c-- Control variables for atmos. state
353  #endif  #endif
354    
355  #ifdef ALLOW_PRECIP_CONTROL  #ifdef ALLOW_PRECIP_CONTROL
356        call ctrl_get_gen (        call ctrl_get_gen (
357       &     xx_precip_file, xx_precipstartdate, xx_precipperiod,       &     xx_precip_file, xx_precipstartdate, xx_precipperiod,
358       &     maskc, precip, xx_precip0, xx_precip1, xx_precip_dummy,       &     maskc, precip, xx_precip0, xx_precip1, xx_precip_dummy,
359       &     xx_precip_remo_intercept, xx_precip_remo_slope,       &     xx_precip_remo_intercept, xx_precip_remo_slope,
# Line 345  c-- Control variables for atmos. state Line 361  c-- Control variables for atmos. state
361  #endif  #endif
362    
363  #ifdef ALLOW_SWFLUX_CONTROL  #ifdef ALLOW_SWFLUX_CONTROL
364        call ctrl_get_gen (        call ctrl_get_gen (
365       &     xx_swflux_file, xx_swfluxstartdate, xx_swfluxperiod,       &     xx_swflux_file, xx_swfluxstartdate, xx_swfluxperiod,
366       &     maskc, swflux, xx_swflux0, xx_swflux1, xx_swflux_dummy,       &     maskc, swflux, xx_swflux0, xx_swflux1, xx_swflux_dummy,
367       &     xx_swflux_remo_intercept, xx_swflux_remo_slope,       &     xx_swflux_remo_intercept, xx_swflux_remo_slope,
# Line 353  c-- Control variables for atmos. state Line 369  c-- Control variables for atmos. state
369  #endif  #endif
370    
371  #ifdef ALLOW_SWDOWN_CONTROL  #ifdef ALLOW_SWDOWN_CONTROL
372        call ctrl_get_gen (        call ctrl_get_gen (
373       &     xx_swdown_file, xx_swdownstartdate, xx_swdownperiod,       &     xx_swdown_file, xx_swdownstartdate, xx_swdownperiod,
374       &     maskc, swdown, xx_swdown0, xx_swdown1, xx_swdown_dummy,       &     maskc, swdown, xx_swdown0, xx_swdown1, xx_swdown_dummy,
375       &     xx_swdown_remo_intercept, xx_swdown_remo_slope,       &     xx_swdown_remo_intercept, xx_swdown_remo_slope,
# Line 361  c-- Control variables for atmos. state Line 377  c-- Control variables for atmos. state
377  #endif  #endif
378    
379  #ifdef ALLOW_LWFLUX_CONTROL  #ifdef ALLOW_LWFLUX_CONTROL
380        call ctrl_get_gen (        call ctrl_get_gen (
381       &     xx_lwflux_file, xx_lwfluxstartdate, xx_lwfluxperiod,       &     xx_lwflux_file, xx_lwfluxstartdate, xx_lwfluxperiod,
382       &     maskc, lwflux, xx_lwflux0, xx_lwflux1, xx_lwflux_dummy,       &     maskc, lwflux, xx_lwflux0, xx_lwflux1, xx_lwflux_dummy,
383       &     xx_lwflux_remo_intercept, xx_lwflux_remo_slope,       &     xx_lwflux_remo_intercept, xx_lwflux_remo_slope,
# Line 369  c-- Control variables for atmos. state Line 385  c-- Control variables for atmos. state
385  #endif  #endif
386    
387  #ifdef ALLOW_LWDOWN_CONTROL  #ifdef ALLOW_LWDOWN_CONTROL
388        call ctrl_get_gen (        call ctrl_get_gen (
389       &     xx_lwdown_file, xx_lwdownstartdate, xx_lwdownperiod,       &     xx_lwdown_file, xx_lwdownstartdate, xx_lwdownperiod,
390       &     maskc, lwdown, xx_lwdown0, xx_lwdown1, xx_lwdown_dummy,       &     maskc, lwdown, xx_lwdown0, xx_lwdown1, xx_lwdown_dummy,
391       &     xx_lwdown_remo_intercept, xx_lwdown_remo_slope,       &     xx_lwdown_remo_intercept, xx_lwdown_remo_slope,
# Line 377  c-- Control variables for atmos. state Line 393  c-- Control variables for atmos. state
393  #endif  #endif
394    
395  #ifdef ALLOW_EVAP_CONTROL  #ifdef ALLOW_EVAP_CONTROL
396        call ctrl_get_gen (        call ctrl_get_gen (
397       &     xx_evap_file, xx_evapstartdate, xx_evapperiod,       &     xx_evap_file, xx_evapstartdate, xx_evapperiod,
398       &     maskc, evap, xx_evap0, xx_evap1, xx_evap_dummy,       &     maskc, evap, xx_evap0, xx_evap1, xx_evap_dummy,
399       &     xx_evap_remo_intercept, xx_evap_remo_slope,       &     xx_evap_remo_intercept, xx_evap_remo_slope,
# Line 385  c-- Control variables for atmos. state Line 401  c-- Control variables for atmos. state
401  #endif  #endif
402    
403  #ifdef ALLOW_SNOWPRECIP_CONTROL  #ifdef ALLOW_SNOWPRECIP_CONTROL
404        call ctrl_get_gen (        call ctrl_get_gen (
405       &     xx_snowprecip_file, xx_snowprecipstartdate,       &     xx_snowprecip_file, xx_snowprecipstartdate,
406       &     xx_snowprecipperiod,       &     xx_snowprecipperiod,
407       &     maskc, snowprecip, xx_snowprecip0, xx_snowprecip1,       &     maskc, snowprecip, xx_snowprecip0, xx_snowprecip1,
# Line 395  c-- Control variables for atmos. state Line 411  c-- Control variables for atmos. state
411  #endif  #endif
412    
413  #ifdef ALLOW_APRESSURE_CONTROL  #ifdef ALLOW_APRESSURE_CONTROL
414        call ctrl_get_gen (        call ctrl_get_gen (
415       &     xx_apressure_file, xx_apressurestartdate,       &     xx_apressure_file, xx_apressurestartdate,
416       &     xx_apressureperiod,       &     xx_apressureperiod,
417       &     maskc, apressure, xx_apressure0, xx_apressure1,       &     maskc, apressure, xx_apressure0, xx_apressure1,
# Line 420  c-- Control variables for atmos. state Line 436  c-- Control variables for atmos. state
436       &     mytime, myiter, mythid )       &     mytime, myiter, mythid )
437  #endif /* ALLOW_VWIND_CONTROL */  #endif /* ALLOW_VWIND_CONTROL */
438    
439    cdm transferred from exf_init_runoff.F
440    cdm functionality needs to be checked before turning on
441    cdm #ifdef ALLOW_RUNOFF_CONTROL
442    cdm       call ctrl_get_gen (
443    cdm      &     xx_runoff_file, xx_runoffstartdate, xx_runoffperiod,
444    cdm      &     maskc, runoff, xx_runoff0, xx_runoff1, xx_runoff_dummy,
445    cdm      &     xx_runoff_remo_intercept, xx_runoff_remo_slope,
446    cdm      &     0., 0., mythid )
447    cdm #endif
448    
449        end        end
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22