pkg/exf/exf_param.h

c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_param.h,v 1.25 2006/05/30 22:47:40 mlosch Exp $
c
c
c     ==================================================================
c     HEADER exf_param
c     ==================================================================
c
c     o Header file for the surface flux data. Used by the external
c       forcing package.
c
c     started: Christian Eckert eckert@mit.edu  30-Jun-1999
c
c     changed: Christian Eckert eckert@mit.edu  14-Jan-2000
c              - Restructured the original version in order to have a
c                better interface to the MITgcmUV.
c
c              Christian Eckert eckert@mit.edu  12-Feb-2000
c              - Changed some variables names (package prefix: exf_)
c
c              Patrick Heimbach, heimbach@mit.edu  04-May-2000
c              - included exf_iprec, exf_yftype to enable easy
c                switch between 32bit/64 bit data format
c
c              Patrick Heimbach, heimbach@mit.edu  01-May-2001
c              - added obcs parameters
c
c     mods for pkg/seaice: menemenlis@jpl.nasa.gov 20-Dec-2002
c
c     ==================================================================
c     HEADER exf_param
c     ==================================================================

c     year in seconds
      _RL     year2sec

c     Calendar data.
      _RL     repeatPeriod

c     Monitor Frequency (s)
      _RL     exf_monFreq

c     Sea-water albedo
      _RL     exf_albedo
c     longwave surface emissivities (ice and snow emissivities are used
c     in conjunction with thsice/seaice)
      _RL     ocean_emissivity
      _RL     ice_emissivity
      _RL     snow_emissivity

c     Maximum absolute windstress, used to reset unreastically high
c     data values
      _RL     windstressmax

      integer hfluxstartdate1
      integer hfluxstartdate2
      _RL     hfluxstartdate
      _RL     hfluxperiod
      _RL     hfluxconst
      _RL     hflux_exfremo_intercept 
      _RL     hflux_exfremo_slope
      character*1 hfluxmask
      parameter(  hfluxmask = 's' )

      integer atempstartdate1
      integer atempstartdate2
      _RL     atempstartdate
      _RL     atempperiod
      _RL     atempconst
      _RL     atemp_exfremo_intercept 
      _RL     atemp_exfremo_slope
      character*1 atempmask
      parameter(  atempmask = 's' )

      integer aqhstartdate1
      integer aqhstartdate2
      _RL     aqhstartdate
      _RL     aqhperiod
      _RL     aqhconst
      _RL     aqh_exfremo_intercept 
      _RL     aqh_exfremo_slope
      character*1 aqhmask
      parameter(  aqhmask = 's' )

      integer sfluxstartdate1
      integer sfluxstartdate2
      _RL     sfluxstartdate
      _RL     sfluxperiod
      _RL     sfluxconst
      _RL     sflux_exfremo_intercept 
      _RL     sflux_exfremo_slope
      character*1 sfluxmask
      parameter(  sfluxmask = 's' )

      integer evapstartdate1
      integer evapstartdate2
      _RL     evapstartdate
      _RL     evapperiod
      _RL     evapconst
      _RL     evap_exfremo_intercept 
      _RL     evap_exfremo_slope
      character*1 evapmask
      parameter(  evapmask = 's' )

      integer precipstartdate1
      integer precipstartdate2
      _RL     precipstartdate
      _RL     precipperiod
      _RL     precipconst
      _RL     precip_exfremo_intercept 
      _RL     precip_exfremo_slope
      character*1 precipmask
      parameter(  precipmask = 's' )

      integer snowprecipstartdate1
      integer snowprecipstartdate2
      _RL     snowprecipstartdate
      _RL     snowprecipperiod
      _RL     snowprecipconst
      _RL     snowprecip_exfremo_intercept 
      _RL     snowprecip_exfremo_slope
      character*1 snowprecipmask
      parameter(  snowprecipmask = 's' )

      integer runoffstartdate1
      integer runoffstartdate2
      _RL     runoffstartdate
      _RL     runoffperiod
      _RL     runoffconst
      _RL     runoff_exfremo_intercept 
      _RL     runoff_exfremo_slope
      character*1 runoffmask
      parameter(  runoffmask = 's' )

      integer ustressstartdate1
      integer ustressstartdate2
      _RL     ustressstartdate
      _RL     ustressperiod
      _RL     ustressconst
      _RL     ustress_exfremo_intercept 
      _RL     ustress_exfremo_slope
      character*1 ustressmask
      parameter(  ustressmask = 'u' )

      integer vstressstartdate1
      integer vstressstartdate2
      _RL     vstressstartdate
      _RL     vstressperiod
      _RL     vstressconst
      _RL     vstress_exfremo_intercept 
      _RL     vstress_exfremo_slope
      character*1 vstressmask
      parameter(  vstressmask = 'v' )

      integer uwindstartdate1
      integer uwindstartdate2
      _RL     uwindstartdate
      _RL     uwindperiod
      _RL     uwindconst
      _RL     uwind_exfremo_intercept 
      _RL     uwind_exfremo_slope
      character*1 uwindmask
      parameter(  uwindmask = 's' )

      integer vwindstartdate1
      integer vwindstartdate2
      _RL     vwindstartdate
      _RL     vwindperiod
      _RL     vwindconst
      _RL     vwind_exfremo_intercept 
      _RL     vwind_exfremo_slope
      character*1 vwindmask
      parameter(  vwindmask = 's' )

      integer wspeedstartdate1
      integer wspeedstartdate2
      _RL     wspeedstartdate
      _RL     wspeedperiod
      _RL     wspeedconst
      _RL     wspeed_exfremo_intercept 
      _RL     wspeed_exfremo_slope
      character*1 wspeedmask
      parameter(  wspeedmask = 's' )

      integer swfluxstartdate1
      integer swfluxstartdate2
      _RL     swfluxstartdate
      _RL     swfluxperiod
      _RL     swfluxconst
      _RL     swflux_exfremo_intercept 
      _RL     swflux_exfremo_slope
      character*1 swfluxmask
      parameter(  swfluxmask = 's' )

      integer lwfluxstartdate1
      integer lwfluxstartdate2
      _RL     lwfluxstartdate
      _RL     lwfluxperiod
      _RL     lwfluxconst
      _RL     lwflux_exfremo_intercept 
      _RL     lwflux_exfremo_slope
      character*1 lwfluxmask
      parameter(  lwfluxmask = 's' )

      integer swdownstartdate1
      integer swdownstartdate2
      _RL     swdownstartdate
      _RL     swdownperiod
      _RL     swdownconst
      _RL     swdown_exfremo_intercept 
      _RL     swdown_exfremo_slope
      character*1 swdownmask
      parameter(  swdownmask = 's' )

      integer lwdownstartdate1
      integer lwdownstartdate2
      _RL     lwdownstartdate
      _RL     lwdownperiod
      _RL     lwdownconst
      _RL     lwdown_exfremo_intercept 
      _RL     lwdown_exfremo_slope
      character*1 lwdownmask
      parameter(  lwdownmask = 's' )

      integer apressurestartdate1
      integer apressurestartdate2
      _RL     apressurestartdate
      _RL     apressureperiod
      _RL     apressureconst
      _RL     apressure_exfremo_intercept 
      _RL     apressure_exfremo_slope
      character*1 apressuremask
      parameter(  apressuremask = 's' )

      integer obcsNstartdate1
      integer obcsNstartdate2
      _RL     obcsNstartdate
      _RL     obcsNperiod

      integer obcsSstartdate1
      integer obcsSstartdate2
      _RL     obcsSstartdate
      _RL     obcsSperiod

      integer obcsEstartdate1
      integer obcsEstartdate2
      _RL     obcsEstartdate
      _RL     obcsEperiod

      integer obcsWstartdate1
      integer obcsWstartdate2
      _RL     obcsWstartdate
      _RL     obcsWperiod

c     File names.
      character*(128) hfluxfile
      character*(128) atempfile
      character*(128) aqhfile
      character*(128) evapfile
      character*(128) precipfile
      character*(128) snowprecipfile
      character*(128) sfluxfile
      character*(128) runofffile
      character*(128) ustressfile
      character*(128) vstressfile
      character*(128) uwindfile
      character*(128) vwindfile
      character*(128) wspeedfile
      character*(128) swfluxfile
      character*(128) lwfluxfile
      character*(128) swdownfile
      character*(128) lwdownfile
      character*(128) apressurefile

C     useExfYearlyFields :: when set, automatically add extension
C                           _YEAR to input file names
C     twoDigitYear       :: when set, use 2-digit year extension YR
C                           instead of _YEAR for useExfYearlyFields
      logical useExfYearlyFields, twoDigitYear
      logical useExfCheckRange

      common /exf_param_l/
     &                     useExfYearlyFields, twoDigitYear,
     &                     useExfCheckRange
      common /exf_param_i/
     &                     hfluxstartdate1,   hfluxstartdate2,
     &                     atempstartdate1,   atempstartdate2,
     &                     aqhstartdate1,     aqhstartdate2,
     &                     sfluxstartdate1,   sfluxstartdate2,
     &                     evapstartdate1,    evapstartdate2,
     &                     runoffstartdate1,  runoffstartdate2,
     &                     precipstartdate1,  precipstartdate2,
     &                     snowprecipstartdate1, snowprecipstartdate2,
     &                     ustressstartdate1, ustressstartdate2,
     &                     vstressstartdate1, vstressstartdate2,
     &                     uwindstartdate1,   uwindstartdate2,
     &                     vwindstartdate1,   vwindstartdate2,
     &                     wspeedstartdate1,  wspeedstartdate2,
     &                     swfluxstartdate1,  swfluxstartdate2,
     &                     lwfluxstartdate1,  lwfluxstartdate2,
     &                     swdownstartdate1,  swdownstartdate2,
     &                     lwdownstartdate1,  lwdownstartdate2,
     &                     obcsNstartdate1,   obcsNstartdate2,
     &                     obcsSstartdate1,   obcsSstartdate2,
     &                     obcsEstartdate1,   obcsEstartdate2,
     &                     obcsWstartdate1,   obcsWstartdate2,
     &                     apressurestartdate1,apressurestartdate2

      common /exf_param_r/
     &                     year2sec,          windstressmax,
     &                     repeatPeriod,      exf_monFreq,
     &                     exf_albedo,        ocean_emissivity,
     &                     ice_emissivity,    snow_emissivity,
     &                     hfluxperiod,       hfluxstartdate,
     &                     atempperiod,       atempstartdate,
     &                     aqhperiod,         aqhstartdate,
     &                     sfluxperiod,       sfluxstartdate,
     &                     evapperiod,        evapstartdate,
     &                     precipperiod,      precipstartdate,
     &                     snowprecipperiod,  snowprecipstartdate,
     &                     runoffperiod,      runoffstartdate,
     &                     ustressperiod,     ustressstartdate,
     &                     vstressperiod,     vstressstartdate,
     &                     uwindperiod,       uwindstartdate,
     &                     vwindperiod,       vwindstartdate,
     &                     wspeedperiod,      wspeedstartdate,
     &                     swfluxperiod,      swfluxstartdate,
     &                     lwfluxperiod,      lwfluxstartdate,
     &                     swdownperiod,      swdownstartdate,
     &                     lwdownperiod,      lwdownstartdate,
     &                     obcsNperiod,       obcsNstartdate,
     &                     obcsSperiod,       obcsSstartdate,
     &                     obcsEperiod,       obcsEstartdate,
     &                     obcsWperiod,       obcsWstartdate,
     &                     apressureperiod,   apressurestartdate,
     &                     hfluxconst,
     &                     atempconst,
     &                     aqhconst,
     &                     sfluxconst,
     &                     evapconst,
     &                     precipconst,
     &                     snowprecipconst,
     &                     runoffconst,
     &                     ustressconst,
     &                     vstressconst,
     &                     uwindconst,
     &                     vwindconst,
     &                     wspeedconst,
     &                     swfluxconst,
     &                     lwfluxconst,
     &                     swdownconst,
     &                     lwdownconst,
     &                     apressureconst

      common /exf_param_trend_removal/
     &                     hflux_exfremo_intercept,
     &                     atemp_exfremo_intercept,
     &                     aqh_exfremo_intercept,
     &                     sflux_exfremo_intercept,
     &                     evap_exfremo_intercept,
     &                     precip_exfremo_intercept,
     &                     snowprecip_exfremo_intercept,
     &                     runoff_exfremo_intercept,
     &                     ustress_exfremo_intercept,
     &                     vstress_exfremo_intercept,
     &                     uwind_exfremo_intercept,
     &                     vwind_exfremo_intercept,
     &                     wspeed_exfremo_intercept,
     &                     swflux_exfremo_intercept,
     &                     lwflux_exfremo_intercept,
     &                     swdown_exfremo_intercept,
     &                     lwdown_exfremo_intercept,
     &                     apressure_exfremo_intercept,
     &                     hflux_exfremo_slope,
     &                     atemp_exfremo_slope,
     &                     aqh_exfremo_slope,
     &                     sflux_exfremo_slope,
     &                     evap_exfremo_slope,
     &                     precip_exfremo_slope,
     &                     snowprecip_exfremo_slope,
     &                     runoff_exfremo_slope,
     &                     ustress_exfremo_slope,
     &                     vstress_exfremo_slope,
     &                     uwind_exfremo_slope,
     &                     vwind_exfremo_slope,
     &                     wspeed_exfremo_slope,
     &                     swflux_exfremo_slope,
     &                     lwflux_exfremo_slope,
     &                     swdown_exfremo_slope,
     &                     lwdown_exfremo_slope,
     &                     apressure_exfremo_slope

      common /exf_param_c/
     &                     hfluxfile,
     &                     atempfile,
     &                     aqhfile,
     &                     sfluxfile,
     &                     evapfile,
     &                     precipfile,
     &                     snowprecipfile,
     &                     runofffile,
     &                     ustressfile,
     &                     vstressfile,
     &                     uwindfile,
     &                     vwindfile,
     &                     wspeedfile,
     &                     swfluxfile,
     &                     lwfluxfile,
     &                     swdownfile,
     &                     lwdownfile,
     &                     apressurefile

c     file precision and field type

      common /exf_param_type/ 
     &                     exf_iprec,
     &                     exf_yftype

      integer exf_iprec
      character*(2) exf_yftype

c     exf_inscal_*      input scaling factors
c     exf_offset_atemp  input air temperature offset
c                       (for conversion from C to K, if needed)
c     exf_outscale_*    output scaling factors

      _RL     exf_inscal_hflux
      _RL     exf_inscal_sflux
      _RL     exf_inscal_ustress
      _RL     exf_inscal_vstress
      _RL     exf_inscal_uwind
      _RL     exf_inscal_vwind
      _RL     exf_inscal_wspeed
      _RL     exf_inscal_swflux
      _RL     exf_inscal_lwflux
      _RL     exf_inscal_precip
      _RL     exf_inscal_snowprecip
      _RL     exf_inscal_sst
      _RL     exf_inscal_sss
      _RL     exf_inscal_atemp
      _RL     exf_offset_atemp
      _RL     exf_inscal_aqh
      _RL     exf_inscal_evap
      _RL     exf_inscal_apressure
      _RL     exf_inscal_runoff
      _RL     exf_inscal_swdown
      _RL     exf_inscal_lwdown

      _RL     exf_outscal_hflux
      _RL     exf_outscal_sflux
      _RL     exf_outscal_ustress
      _RL     exf_outscal_vstress
      _RL     exf_outscal_swflux
      _RL     exf_outscal_sst
      _RL     exf_outscal_sss
      _RL     exf_outscal_apressure

      common /exf_param_scal/
     &                      exf_inscal_hflux
     &                    , exf_inscal_sflux
     &                    , exf_inscal_ustress
     &                    , exf_inscal_vstress
     &                    , exf_inscal_uwind
     &                    , exf_inscal_vwind
     &                    , exf_inscal_wspeed
     &                    , exf_inscal_swflux
     &                    , exf_inscal_lwflux
     &                    , exf_inscal_precip
     &                    , exf_inscal_snowprecip
     &                    , exf_inscal_sst
     &                    , exf_inscal_sss
     &                    , exf_inscal_atemp
     &                    , exf_offset_atemp
     &                    , exf_inscal_aqh
     &                    , exf_inscal_evap
     &                    , exf_inscal_apressure
     &                    , exf_inscal_runoff
     &                    , exf_inscal_swdown
     &                    , exf_inscal_lwdown
     &                    , exf_outscal_hflux
     &                    , exf_outscal_sflux
     &                    , exf_outscal_ustress
     &                    , exf_outscal_vstress
     &                    , exf_outscal_swflux
     &                    , exf_outscal_sst
     &                    , exf_outscal_sss
     &                    , exf_outscal_apressure

#ifndef USE_EXF_INTERPOLATION
c-- set dummy dimension 1
       integer MAX_LAT_INC
       parameter(MAX_LAT_INC = 1)
#else
c for lat interpolation, arraysize currently set to 2176 max data values
       integer MAX_LAT_INC
       parameter(MAX_LAT_INC = 2176)
      _RL ustress_lon0, ustress_lon_inc
      _RL ustress_lat0, ustress_lat_inc(MAX_LAT_INC)
      INTEGER ustress_nlon, ustress_nlat
      _RL vstress_lon0, vstress_lon_inc
      _RL vstress_lat0, vstress_lat_inc(MAX_LAT_INC)
      INTEGER vstress_nlon, vstress_nlat
      _RL hflux_lon0, hflux_lon_inc
      _RL hflux_lat0, hflux_lat_inc(MAX_LAT_INC)
      INTEGER hflux_nlon, hflux_nlat
      _RL sflux_lon0, sflux_lon_inc
      _RL sflux_lat0, sflux_lat_inc(MAX_LAT_INC)
      INTEGER sflux_nlon, sflux_nlat
      _RL swflux_lon0, swflux_lon_inc
      _RL swflux_lat0, swflux_lat_inc(MAX_LAT_INC)
      INTEGER swflux_nlon, swflux_nlat
      _RL runoff_lon0, runoff_lon_inc
      _RL runoff_lat0, runoff_lat_inc(MAX_LAT_INC)
      INTEGER runoff_nlon, runoff_nlat
      _RL atemp_lon0, atemp_lon_inc
      _RL atemp_lat0, atemp_lat_inc(MAX_LAT_INC)
      INTEGER atemp_nlon, atemp_nlat
      _RL aqh_lon0, aqh_lon_inc
      _RL aqh_lat0, aqh_lat_inc(MAX_LAT_INC)
      INTEGER aqh_nlon, aqh_nlat
      _RL evap_lon0, evap_lon_inc
      _RL evap_lat0, evap_lat_inc(MAX_LAT_INC)
      INTEGER evap_nlon, evap_nlat
      _RL precip_lon0, precip_lon_inc
      _RL precip_lat0, precip_lat_inc(MAX_LAT_INC)
      INTEGER precip_nlon, precip_nlat
      _RL snowprecip_lon0, snowprecip_lon_inc
      _RL snowprecip_lat0, snowprecip_lat_inc(MAX_LAT_INC)
      INTEGER snowprecip_nlon, snowprecip_nlat
      _RL uwind_lon0, uwind_lon_inc
      _RL uwind_lat0, uwind_lat_inc(MAX_LAT_INC)
      INTEGER uwind_nlon, uwind_nlat
      _RL vwind_lon0, vwind_lon_inc
      _RL vwind_lat0, vwind_lat_inc(MAX_LAT_INC)
      INTEGER vwind_nlon, vwind_nlat
      _RL wspeed_lon0, wspeed_lon_inc
      _RL wspeed_lat0, wspeed_lat_inc(MAX_LAT_INC)
      INTEGER wspeed_nlon, wspeed_nlat
      _RL lwflux_lon0, lwflux_lon_inc
      _RL lwflux_lat0, lwflux_lat_inc(MAX_LAT_INC)
      INTEGER lwflux_nlon, lwflux_nlat
      _RL swdown_lon0, swdown_lon_inc
      _RL swdown_lat0, swdown_lat_inc(MAX_LAT_INC)
      INTEGER swdown_nlon, swdown_nlat
      _RL lwdown_lon0, lwdown_lon_inc
      _RL lwdown_lat0, lwdown_lat_inc(MAX_LAT_INC)
      INTEGER lwdown_nlon, lwdown_nlat
      _RL apressure_lon0,apressure_lon_inc
      _RL apressure_lat0,apressure_lat_inc(MAX_LAT_INC)
      INTEGER apressure_nlon,apressure_nlat

      common /exf_interpolation/
     & ustress_lon0, ustress_lon_inc,
     & ustress_lat0, ustress_lat_inc,
     & ustress_nlon, ustress_nlat,
     & vstress_lon0, vstress_lon_inc,
     & vstress_lat0, vstress_lat_inc,
     & vstress_nlon, vstress_nlat,
     & hflux_lon0, hflux_lon_inc,
     & hflux_lat0, hflux_lat_inc,
     & hflux_nlon, hflux_nlat,
     & sflux_lon0, sflux_lon_inc,
     & sflux_lat0, sflux_lat_inc,
     & sflux_nlon, sflux_nlat,
     & swflux_lon0, swflux_lon_inc,
     & swflux_lat0, swflux_lat_inc,
     & swflux_nlon, swflux_nlat,
     & runoff_lon0, runoff_lon_inc,
     & runoff_lat0, runoff_lat_inc,
     & runoff_nlon, runoff_nlat,
     & atemp_lon0, atemp_lon_inc,
     & atemp_lat0, atemp_lat_inc,
     & atemp_nlon, atemp_nlat,
     & aqh_lon0, aqh_lon_inc,
     & aqh_lat0, aqh_lat_inc,
     & aqh_nlon, aqh_nlat,
     & evap_lon0, evap_lon_inc,
     & evap_lat0, evap_lat_inc,
     & evap_nlon, evap_nlat,
     & precip_lon0, precip_lon_inc,
     & precip_lat0, precip_lat_inc,
     & precip_nlon, precip_nlat,
     & snowprecip_lon0, snowprecip_lon_inc,
     & snowprecip_lat0, snowprecip_lat_inc,
     & snowprecip_nlon, snowprecip_nlat,
     & uwind_lon0, uwind_lon_inc,
     & uwind_lat0, uwind_lat_inc,
     & uwind_nlon, uwind_nlat,
     & vwind_lon0, vwind_lon_inc,
     & vwind_lat0, vwind_lat_inc,
     & vwind_nlon, vwind_nlat,
     & wspeed_lon0, wspeed_lon_inc,
     & wspeed_lat0, wspeed_lat_inc,
     & wspeed_nlon, wspeed_nlat,
     & lwflux_lon0, lwflux_lon_inc,
     & lwflux_lat0, lwflux_lat_inc,
     & lwflux_nlon, lwflux_nlat,
     & swdown_lon0, swdown_lon_inc,
     & swdown_lat0, swdown_lat_inc,
     & swdown_nlon, swdown_nlat,
     & lwdown_lon0, lwdown_lon_inc,
     & lwdown_lat0, lwdown_lat_inc,
     & lwdown_nlon, lwdown_nlat,
     & apressure_lon0,apressure_lon_inc,
     & apressure_lat0,apressure_lat_inc,
     & apressure_nlon,apressure_nlat
#endif
1	jmc	1.26	c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_param.h,v 1.25 2006/05/30 22:47:40 mlosch Exp $
2	heimbach	1.1	c
3			c
4			c ==================================================================
5			c HEADER exf_param
6			c ==================================================================
7			c
8			c o Header file for the surface flux data. Used by the external
9			c forcing package.
10			c
11			c started: Christian Eckert eckert@mit.edu 30-Jun-1999
12			c
13			c changed: Christian Eckert eckert@mit.edu 14-Jan-2000
14			c - Restructured the original version in order to have a
15			c better interface to the MITgcmUV.
16			c
17			c Christian Eckert eckert@mit.edu 12-Feb-2000
18			c - Changed some variables names (package prefix: exf_)
19			c
20			c Patrick Heimbach, heimbach@mit.edu 04-May-2000
21			c - included exf_iprec, exf_yftype to enable easy
22			c switch between 32bit/64 bit data format
23			c
24			c Patrick Heimbach, heimbach@mit.edu 01-May-2001
25			c - added obcs parameters
26			c
27	dimitri	1.6	c mods for pkg/seaice: menemenlis@jpl.nasa.gov 20-Dec-2002
28	dimitri	1.5	c
29	heimbach	1.1	c ==================================================================
30			c HEADER exf_param
31			c ==================================================================
32
33	heimbach	1.19	c year in seconds
34			_RL year2sec
35
36	heimbach	1.1	c Calendar data.
37	cheisey	1.4	_RL repeatPeriod
38
39	jmc	1.26	c Monitor Frequency (s)
40			_RL exf_monFreq
41
42	dimitri	1.14	c Sea-water albedo
43			_RL exf_albedo
44	mlosch	1.25	c longwave surface emissivities (ice and snow emissivities are used
45			c in conjunction with thsice/seaice)
46			_RL ocean_emissivity
47			_RL ice_emissivity
48			_RL snow_emissivity
49	dimitri	1.14
50	mlosch	1.16	c Maximum absolute windstress, used to reset unreastically high
51			c data values
52			_RL windstressmax
53
54	heimbach	1.1	integer hfluxstartdate1
55			integer hfluxstartdate2
56	dimitri	1.11	_RL hfluxstartdate
57	heimbach	1.1	_RL hfluxperiod
58	heimbach	1.7	_RL hfluxconst
59	heimbach	1.23	_RL hflux_exfremo_intercept
60			_RL hflux_exfremo_slope
61	heimbach	1.1	character*1 hfluxmask
62			parameter( hfluxmask = 's' )
63
64			integer atempstartdate1
65			integer atempstartdate2
66	dimitri	1.11	_RL atempstartdate
67	heimbach	1.1	_RL atempperiod
68	heimbach	1.7	_RL atempconst
69	heimbach	1.23	_RL atemp_exfremo_intercept
70			_RL atemp_exfremo_slope
71	heimbach	1.1	character*1 atempmask
72			parameter( atempmask = 's' )
73
74			integer aqhstartdate1
75			integer aqhstartdate2
76	dimitri	1.11	_RL aqhstartdate
77	heimbach	1.1	_RL aqhperiod
78	heimbach	1.7	_RL aqhconst
79	heimbach	1.23	_RL aqh_exfremo_intercept
80			_RL aqh_exfremo_slope
81	heimbach	1.1	character*1 aqhmask
82			parameter( aqhmask = 's' )
83
84			integer sfluxstartdate1
85			integer sfluxstartdate2
86	dimitri	1.11	_RL sfluxstartdate
87	heimbach	1.1	_RL sfluxperiod
88	heimbach	1.7	_RL sfluxconst
89	heimbach	1.23	_RL sflux_exfremo_intercept
90			_RL sflux_exfremo_slope
91	heimbach	1.1	character*1 sfluxmask
92			parameter( sfluxmask = 's' )
93
94	dimitri	1.5	integer evapstartdate1
95			integer evapstartdate2
96	dimitri	1.11	_RL evapstartdate
97	dimitri	1.5	_RL evapperiod
98	heimbach	1.7	_RL evapconst
99	heimbach	1.23	_RL evap_exfremo_intercept
100			_RL evap_exfremo_slope
101	dimitri	1.5	character*1 evapmask
102			parameter( evapmask = 's' )
103
104	heimbach	1.1	integer precipstartdate1
105			integer precipstartdate2
106	dimitri	1.11	_RL precipstartdate
107	heimbach	1.1	_RL precipperiod
108	heimbach	1.7	_RL precipconst
109	heimbach	1.23	_RL precip_exfremo_intercept
110			_RL precip_exfremo_slope
111	heimbach	1.1	character*1 precipmask
112			parameter( precipmask = 's' )
113
114	heimbach	1.24	integer snowprecipstartdate1
115			integer snowprecipstartdate2
116			_RL snowprecipstartdate
117			_RL snowprecipperiod
118			_RL snowprecipconst
119			_RL snowprecip_exfremo_intercept
120			_RL snowprecip_exfremo_slope
121			character*1 snowprecipmask
122			parameter( snowprecipmask = 's' )
123
124	heimbach	1.3	integer runoffstartdate1
125			integer runoffstartdate2
126	dimitri	1.11	_RL runoffstartdate
127	heimbach	1.3	_RL runoffperiod
128	heimbach	1.7	_RL runoffconst
129	heimbach	1.23	_RL runoff_exfremo_intercept
130			_RL runoff_exfremo_slope
131	heimbach	1.3	character*1 runoffmask
132			parameter( runoffmask = 's' )
133
134	heimbach	1.1	integer ustressstartdate1
135			integer ustressstartdate2
136	dimitri	1.11	_RL ustressstartdate
137	heimbach	1.1	_RL ustressperiod
138	heimbach	1.7	_RL ustressconst
139	heimbach	1.23	_RL ustress_exfremo_intercept
140			_RL ustress_exfremo_slope
141	heimbach	1.1	character*1 ustressmask
142			parameter( ustressmask = 'u' )
143
144			integer vstressstartdate1
145			integer vstressstartdate2
146	dimitri	1.11	_RL vstressstartdate
147	heimbach	1.1	_RL vstressperiod
148	heimbach	1.7	_RL vstressconst
149	heimbach	1.23	_RL vstress_exfremo_intercept
150			_RL vstress_exfremo_slope
151	heimbach	1.1	character*1 vstressmask
152			parameter( vstressmask = 'v' )
153
154			integer uwindstartdate1
155			integer uwindstartdate2
156	dimitri	1.11	_RL uwindstartdate
157	heimbach	1.1	_RL uwindperiod
158	heimbach	1.7	_RL uwindconst
159	heimbach	1.23	_RL uwind_exfremo_intercept
160			_RL uwind_exfremo_slope
161	heimbach	1.1	character*1 uwindmask
162	mlosch	1.17	parameter( uwindmask = 's' )
163	heimbach	1.1
164			integer vwindstartdate1
165			integer vwindstartdate2
166	dimitri	1.11	_RL vwindstartdate
167	heimbach	1.1	_RL vwindperiod
168	heimbach	1.7	_RL vwindconst
169	heimbach	1.23	_RL vwind_exfremo_intercept
170			_RL vwind_exfremo_slope
171	heimbach	1.1	character*1 vwindmask
172	mlosch	1.17	parameter( vwindmask = 's' )
173	heimbach	1.1
174	heimbach	1.24	integer wspeedstartdate1
175			integer wspeedstartdate2
176			_RL wspeedstartdate
177			_RL wspeedperiod
178			_RL wspeedconst
179			_RL wspeed_exfremo_intercept
180			_RL wspeed_exfremo_slope
181			character*1 wspeedmask
182			parameter( wspeedmask = 's' )
183
184	heimbach	1.1	integer swfluxstartdate1
185			integer swfluxstartdate2
186	dimitri	1.11	_RL swfluxstartdate
187	heimbach	1.1	_RL swfluxperiod
188	heimbach	1.7	_RL swfluxconst
189	heimbach	1.23	_RL swflux_exfremo_intercept
190			_RL swflux_exfremo_slope
191	heimbach	1.1	character*1 swfluxmask
192			parameter( swfluxmask = 's' )
193
194			integer lwfluxstartdate1
195			integer lwfluxstartdate2
196	dimitri	1.11	_RL lwfluxstartdate
197	heimbach	1.1	_RL lwfluxperiod
198	heimbach	1.7	_RL lwfluxconst
199	heimbach	1.23	_RL lwflux_exfremo_intercept
200			_RL lwflux_exfremo_slope
201	heimbach	1.1	character*1 lwfluxmask
202			parameter( lwfluxmask = 's' )
203
204	dimitri	1.6	integer swdownstartdate1
205			integer swdownstartdate2
206	dimitri	1.11	_RL swdownstartdate
207	dimitri	1.6	_RL swdownperiod
208	heimbach	1.7	_RL swdownconst
209	heimbach	1.23	_RL swdown_exfremo_intercept
210			_RL swdown_exfremo_slope
211	dimitri	1.6	character*1 swdownmask
212			parameter( swdownmask = 's' )
213
214			integer lwdownstartdate1
215			integer lwdownstartdate2
216	dimitri	1.11	_RL lwdownstartdate
217	dimitri	1.6	_RL lwdownperiod
218	heimbach	1.7	_RL lwdownconst
219	heimbach	1.23	_RL lwdown_exfremo_intercept
220			_RL lwdown_exfremo_slope
221	dimitri	1.6	character*1 lwdownmask
222			parameter( lwdownmask = 's' )
223
224	heimbach	1.23	integer apressurestartdate1
225			integer apressurestartdate2
226			_RL apressurestartdate
227			_RL apressureperiod
228			_RL apressureconst
229			_RL apressure_exfremo_intercept
230			_RL apressure_exfremo_slope
231			character*1 apressuremask
232			parameter( apressuremask = 's' )
233
234	heimbach	1.2	integer obcsNstartdate1
235			integer obcsNstartdate2
236	dimitri	1.11	_RL obcsNstartdate
237	heimbach	1.2	_RL obcsNperiod
238
239			integer obcsSstartdate1
240			integer obcsSstartdate2
241	dimitri	1.11	_RL obcsSstartdate
242	heimbach	1.2	_RL obcsSperiod
243
244			integer obcsEstartdate1
245			integer obcsEstartdate2
246	dimitri	1.11	_RL obcsEstartdate
247	heimbach	1.2	_RL obcsEperiod
248
249			integer obcsWstartdate1
250			integer obcsWstartdate2
251	dimitri	1.11	_RL obcsWstartdate
252	heimbach	1.2	_RL obcsWperiod
253	heimbach	1.1
254			c File names.
255			character*(128) hfluxfile
256			character*(128) atempfile
257			character*(128) aqhfile
258	dimitri	1.5	character*(128) evapfile
259	heimbach	1.1	character*(128) precipfile
260	heimbach	1.24	character*(128) snowprecipfile
261	heimbach	1.1	character*(128) sfluxfile
262	heimbach	1.3	character*(128) runofffile
263	heimbach	1.1	character*(128) ustressfile
264			character*(128) vstressfile
265			character*(128) uwindfile
266			character*(128) vwindfile
267	heimbach	1.24	character*(128) wspeedfile
268	heimbach	1.1	character*(128) swfluxfile
269			character*(128) lwfluxfile
270	dimitri	1.6	character*(128) swdownfile
271			character*(128) lwdownfile
272	heimbach	1.3	character*(128) apressurefile
273	heimbach	1.1
274	dimitri	1.22	C useExfYearlyFields :: when set, automatically add extension
275			C _YEAR to input file names
276			C twoDigitYear :: when set, use 2-digit year extension YR
277			C instead of _YEAR for useExfYearlyFields
278			logical useExfYearlyFields, twoDigitYear
279	heimbach	1.18	logical useExfCheckRange
280
281			common /exf_param_l/
282	heimbach	1.24	& useExfYearlyFields, twoDigitYear,
283			& useExfCheckRange
284	heimbach	1.1	common /exf_param_i/
285	heimbach	1.24	& hfluxstartdate1, hfluxstartdate2,
286			& atempstartdate1, atempstartdate2,
287			& aqhstartdate1, aqhstartdate2,
288			& sfluxstartdate1, sfluxstartdate2,
289			& evapstartdate1, evapstartdate2,
290			& runoffstartdate1, runoffstartdate2,
291			& precipstartdate1, precipstartdate2,
292			& snowprecipstartdate1, snowprecipstartdate2,
293			& ustressstartdate1, ustressstartdate2,
294			& vstressstartdate1, vstressstartdate2,
295			& uwindstartdate1, uwindstartdate2,
296			& vwindstartdate1, vwindstartdate2,
297			& wspeedstartdate1, wspeedstartdate2,
298			& swfluxstartdate1, swfluxstartdate2,
299			& lwfluxstartdate1, lwfluxstartdate2,
300			& swdownstartdate1, swdownstartdate2,
301			& lwdownstartdate1, lwdownstartdate2,
302			& obcsNstartdate1, obcsNstartdate2,
303			& obcsSstartdate1, obcsSstartdate2,
304			& obcsEstartdate1, obcsEstartdate2,
305			& obcsWstartdate1, obcsWstartdate2,
306			& apressurestartdate1,apressurestartdate2
307	heimbach	1.1
308			common /exf_param_r/
309	heimbach	1.24	& year2sec, windstressmax,
310	jmc	1.26	& repeatPeriod, exf_monFreq,
311			& exf_albedo, ocean_emissivity,
312	mlosch	1.25	& ice_emissivity, snow_emissivity,
313	heimbach	1.24	& hfluxperiod, hfluxstartdate,
314			& atempperiod, atempstartdate,
315			& aqhperiod, aqhstartdate,
316			& sfluxperiod, sfluxstartdate,
317			& evapperiod, evapstartdate,
318			& precipperiod, precipstartdate,
319			& snowprecipperiod, snowprecipstartdate,
320			& runoffperiod, runoffstartdate,
321			& ustressperiod, ustressstartdate,
322			& vstressperiod, vstressstartdate,
323			& uwindperiod, uwindstartdate,
324			& vwindperiod, vwindstartdate,
325			& wspeedperiod, wspeedstartdate,
326			& swfluxperiod, swfluxstartdate,
327			& lwfluxperiod, lwfluxstartdate,
328			& swdownperiod, swdownstartdate,
329			& lwdownperiod, lwdownstartdate,
330			& obcsNperiod, obcsNstartdate,
331			& obcsSperiod, obcsSstartdate,
332			& obcsEperiod, obcsEstartdate,
333			& obcsWperiod, obcsWstartdate,
334			& apressureperiod, apressurestartdate,
335			& hfluxconst,
336			& atempconst,
337			& aqhconst,
338			& sfluxconst,
339			& evapconst,
340			& precipconst,
341			& snowprecipconst,
342			& runoffconst,
343			& ustressconst,
344			& vstressconst,
345			& uwindconst,
346			& vwindconst,
347			& wspeedconst,
348			& swfluxconst,
349			& lwfluxconst,
350			& swdownconst,
351			& lwdownconst,
352			& apressureconst
353	heimbach	1.1
354	heimbach	1.23	common /exf_param_trend_removal/
355	heimbach	1.24	& hflux_exfremo_intercept,
356			& atemp_exfremo_intercept,
357			& aqh_exfremo_intercept,
358			& sflux_exfremo_intercept,
359			& evap_exfremo_intercept,
360			& precip_exfremo_intercept,
361			& snowprecip_exfremo_intercept,
362			& runoff_exfremo_intercept,
363			& ustress_exfremo_intercept,
364			& vstress_exfremo_intercept,
365			& uwind_exfremo_intercept,
366			& vwind_exfremo_intercept,
367			& wspeed_exfremo_intercept,
368			& swflux_exfremo_intercept,
369			& lwflux_exfremo_intercept,
370			& swdown_exfremo_intercept,
371			& lwdown_exfremo_intercept,
372			& apressure_exfremo_intercept,
373			& hflux_exfremo_slope,
374			& atemp_exfremo_slope,
375			& aqh_exfremo_slope,
376			& sflux_exfremo_slope,
377			& evap_exfremo_slope,
378			& precip_exfremo_slope,
379			& snowprecip_exfremo_slope,
380			& runoff_exfremo_slope,
381			& ustress_exfremo_slope,
382			& vstress_exfremo_slope,
383			& uwind_exfremo_slope,
384			& vwind_exfremo_slope,
385			& wspeed_exfremo_slope,
386			& swflux_exfremo_slope,
387			& lwflux_exfremo_slope,
388			& swdown_exfremo_slope,
389			& lwdown_exfremo_slope,
390			& apressure_exfremo_slope
391	heimbach	1.23
392	heimbach	1.1	common /exf_param_c/
393	heimbach	1.24	& hfluxfile,
394			& atempfile,
395			& aqhfile,
396			& sfluxfile,
397			& evapfile,
398			& precipfile,
399			& snowprecipfile,
400			& runofffile,
401			& ustressfile,
402			& vstressfile,
403			& uwindfile,
404			& vwindfile,
405			& wspeedfile,
406			& swfluxfile,
407			& lwfluxfile,
408			& swdownfile,
409			& lwdownfile,
410			& apressurefile
411	heimbach	1.1
412			c file precision and field type
413
414			common /exf_param_type/
415	heimbach	1.24	& exf_iprec,
416			& exf_yftype
417	heimbach	1.1
418			integer exf_iprec
419			character*(2) exf_yftype
420	heimbach	1.3
421	dimitri	1.13	c exf_inscal_* input scaling factors
422			c exf_offset_atemp input air temperature offset
423			c (for conversion from C to K, if needed)
424			c exf_outscale_* output scaling factors
425	heimbach	1.3
426	heimbach	1.8	_RL exf_inscal_hflux
427			_RL exf_inscal_sflux
428			_RL exf_inscal_ustress
429			_RL exf_inscal_vstress
430			_RL exf_inscal_uwind
431			_RL exf_inscal_vwind
432	heimbach	1.24	_RL exf_inscal_wspeed
433	heimbach	1.8	_RL exf_inscal_swflux
434			_RL exf_inscal_lwflux
435			_RL exf_inscal_precip
436	heimbach	1.24	_RL exf_inscal_snowprecip
437	dimitri	1.6	_RL exf_inscal_sst
438			_RL exf_inscal_sss
439	heimbach	1.8	_RL exf_inscal_atemp
440	dimitri	1.13	_RL exf_offset_atemp
441	heimbach	1.8	_RL exf_inscal_aqh
442			_RL exf_inscal_evap
443	dimitri	1.6	_RL exf_inscal_apressure
444			_RL exf_inscal_runoff
445	heimbach	1.8	_RL exf_inscal_swdown
446			_RL exf_inscal_lwdown
447
448			_RL exf_outscal_hflux
449			_RL exf_outscal_sflux
450			_RL exf_outscal_ustress
451			_RL exf_outscal_vstress
452			_RL exf_outscal_swflux
453	dimitri	1.6	_RL exf_outscal_sst
454			_RL exf_outscal_sss
455			_RL exf_outscal_apressure
456	heimbach	1.3
457			common /exf_param_scal/
458	heimbach	1.8	& exf_inscal_hflux
459			& , exf_inscal_sflux
460			& , exf_inscal_ustress
461			& , exf_inscal_vstress
462			& , exf_inscal_uwind
463			& , exf_inscal_vwind
464	heimbach	1.24	& , exf_inscal_wspeed
465	heimbach	1.8	& , exf_inscal_swflux
466			& , exf_inscal_lwflux
467			& , exf_inscal_precip
468	heimbach	1.24	& , exf_inscal_snowprecip
469	dimitri	1.6	& , exf_inscal_sst
470			& , exf_inscal_sss
471	heimbach	1.8	& , exf_inscal_atemp
472	dimitri	1.13	& , exf_offset_atemp
473	heimbach	1.8	& , exf_inscal_aqh
474			& , exf_inscal_evap
475	dimitri	1.6	& , exf_inscal_apressure
476			& , exf_inscal_runoff
477	heimbach	1.8	& , exf_inscal_swdown
478			& , exf_inscal_lwdown
479			& , exf_outscal_hflux
480			& , exf_outscal_sflux
481			& , exf_outscal_ustress
482			& , exf_outscal_vstress
483			& , exf_outscal_swflux
484	dimitri	1.6	& , exf_outscal_sst
485			& , exf_outscal_sss
486			& , exf_outscal_apressure
487
488	heimbach	1.15	#ifndef USE_EXF_INTERPOLATION
489			c-- set dummy dimension 1
490			integer MAX_LAT_INC
491			parameter(MAX_LAT_INC = 1)
492			#else
493	dimitri	1.21	c for lat interpolation, arraysize currently set to 2176 max data values
494	dimitri	1.9	integer MAX_LAT_INC
495	dimitri	1.21	parameter(MAX_LAT_INC = 2176)
496	dimitri	1.9	_RL ustress_lon0, ustress_lon_inc
497			_RL ustress_lat0, ustress_lat_inc(MAX_LAT_INC)
498			INTEGER ustress_nlon, ustress_nlat
499			_RL vstress_lon0, vstress_lon_inc
500			_RL vstress_lat0, vstress_lat_inc(MAX_LAT_INC)
501			INTEGER vstress_nlon, vstress_nlat
502			_RL hflux_lon0, hflux_lon_inc
503			_RL hflux_lat0, hflux_lat_inc(MAX_LAT_INC)
504			INTEGER hflux_nlon, hflux_nlat
505			_RL sflux_lon0, sflux_lon_inc
506			_RL sflux_lat0, sflux_lat_inc(MAX_LAT_INC)
507			INTEGER sflux_nlon, sflux_nlat
508			_RL swflux_lon0, swflux_lon_inc
509			_RL swflux_lat0, swflux_lat_inc(MAX_LAT_INC)
510			INTEGER swflux_nlon, swflux_nlat
511			_RL runoff_lon0, runoff_lon_inc
512			_RL runoff_lat0, runoff_lat_inc(MAX_LAT_INC)
513			INTEGER runoff_nlon, runoff_nlat
514			_RL atemp_lon0, atemp_lon_inc
515	dimitri	1.10	_RL atemp_lat0, atemp_lat_inc(MAX_LAT_INC)
516	dimitri	1.9	INTEGER atemp_nlon, atemp_nlat
517			_RL aqh_lon0, aqh_lon_inc
518	dimitri	1.10	_RL aqh_lat0, aqh_lat_inc(MAX_LAT_INC)
519	dimitri	1.9	INTEGER aqh_nlon, aqh_nlat
520			_RL evap_lon0, evap_lon_inc
521	dimitri	1.10	_RL evap_lat0, evap_lat_inc(MAX_LAT_INC)
522	dimitri	1.9	INTEGER evap_nlon, evap_nlat
523			_RL precip_lon0, precip_lon_inc
524	dimitri	1.10	_RL precip_lat0, precip_lat_inc(MAX_LAT_INC)
525	dimitri	1.9	INTEGER precip_nlon, precip_nlat
526	heimbach	1.24	_RL snowprecip_lon0, snowprecip_lon_inc
527			_RL snowprecip_lat0, snowprecip_lat_inc(MAX_LAT_INC)
528			INTEGER snowprecip_nlon, snowprecip_nlat
529	dimitri	1.9	_RL uwind_lon0, uwind_lon_inc
530	dimitri	1.10	_RL uwind_lat0, uwind_lat_inc(MAX_LAT_INC)
531	dimitri	1.9	INTEGER uwind_nlon, uwind_nlat
532			_RL vwind_lon0, vwind_lon_inc
533	dimitri	1.10	_RL vwind_lat0, vwind_lat_inc(MAX_LAT_INC)
534	dimitri	1.9	INTEGER vwind_nlon, vwind_nlat
535	heimbach	1.24	_RL wspeed_lon0, wspeed_lon_inc
536			_RL wspeed_lat0, wspeed_lat_inc(MAX_LAT_INC)
537			INTEGER wspeed_nlon, wspeed_nlat
538	dimitri	1.9	_RL lwflux_lon0, lwflux_lon_inc
539	dimitri	1.10	_RL lwflux_lat0, lwflux_lat_inc(MAX_LAT_INC)
540	dimitri	1.9	INTEGER lwflux_nlon, lwflux_nlat
541			_RL swdown_lon0, swdown_lon_inc
542	dimitri	1.10	_RL swdown_lat0, swdown_lat_inc(MAX_LAT_INC)
543	dimitri	1.9	INTEGER swdown_nlon, swdown_nlat
544			_RL lwdown_lon0, lwdown_lon_inc
545	dimitri	1.10	_RL lwdown_lat0, lwdown_lat_inc(MAX_LAT_INC)
546	dimitri	1.9	INTEGER lwdown_nlon, lwdown_nlat
547			_RL apressure_lon0,apressure_lon_inc
548	dimitri	1.10	_RL apressure_lat0,apressure_lat_inc(MAX_LAT_INC)
549	dimitri	1.9	INTEGER apressure_nlon,apressure_nlat
550
551	dimitri	1.10	common /exf_interpolation/
552	dimitri	1.9	& ustress_lon0, ustress_lon_inc,
553			& ustress_lat0, ustress_lat_inc,
554			& ustress_nlon, ustress_nlat,
555			& vstress_lon0, vstress_lon_inc,
556			& vstress_lat0, vstress_lat_inc,
557			& vstress_nlon, vstress_nlat,
558			& hflux_lon0, hflux_lon_inc,
559			& hflux_lat0, hflux_lat_inc,
560			& hflux_nlon, hflux_nlat,
561			& sflux_lon0, sflux_lon_inc,
562			& sflux_lat0, sflux_lat_inc,
563			& sflux_nlon, sflux_nlat,
564			& swflux_lon0, swflux_lon_inc,
565			& swflux_lat0, swflux_lat_inc,
566			& swflux_nlon, swflux_nlat,
567			& runoff_lon0, runoff_lon_inc,
568			& runoff_lat0, runoff_lat_inc,
569			& runoff_nlon, runoff_nlat,
570	dimitri	1.12	& atemp_lon0, atemp_lon_inc,
571	dimitri	1.9	& atemp_lat0, atemp_lat_inc,
572			& atemp_nlon, atemp_nlat,
573			& aqh_lon0, aqh_lon_inc,
574			& aqh_lat0, aqh_lat_inc,
575			& aqh_nlon, aqh_nlat,
576			& evap_lon0, evap_lon_inc,
577			& evap_lat0, evap_lat_inc,
578			& evap_nlon, evap_nlat,
579			& precip_lon0, precip_lon_inc,
580			& precip_lat0, precip_lat_inc,
581			& precip_nlon, precip_nlat,
582	heimbach	1.24	& snowprecip_lon0, snowprecip_lon_inc,
583			& snowprecip_lat0, snowprecip_lat_inc,
584			& snowprecip_nlon, snowprecip_nlat,
585	dimitri	1.9	& uwind_lon0, uwind_lon_inc,
586			& uwind_lat0, uwind_lat_inc,
587			& uwind_nlon, uwind_nlat,
588			& vwind_lon0, vwind_lon_inc,
589			& vwind_lat0, vwind_lat_inc,
590			& vwind_nlon, vwind_nlat,
591	heimbach	1.24	& wspeed_lon0, wspeed_lon_inc,
592			& wspeed_lat0, wspeed_lat_inc,
593			& wspeed_nlon, wspeed_nlat,
594	dimitri	1.9	& lwflux_lon0, lwflux_lon_inc,
595			& lwflux_lat0, lwflux_lat_inc,
596			& lwflux_nlon, lwflux_nlat,
597			& swdown_lon0, swdown_lon_inc,
598			& swdown_lat0, swdown_lat_inc,
599			& swdown_nlon, swdown_nlat,
600			& lwdown_lon0, lwdown_lon_inc,
601			& lwdown_lat0, lwdown_lat_inc,
602			& lwdown_nlon, lwdown_nlat,
603			& apressure_lon0,apressure_lon_inc,
604			& apressure_lat0,apressure_lat_inc,
605			& apressure_nlon,apressure_nlat
606			#endif