pkg/exf/EXF_PARAM.h

C $Header: /u/gcmpack/MITgcm/pkg/exf/EXF_PARAM.h,v 1.2 2007/04/18 19:55:34 heimbach Exp $
C $Name:  $
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     Drag coefficient scaling factor
      _RL     exf_scal_BulkCdn

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' )

c     Calendar data.
      integer climsststartdate1
      integer climsststartdate2
      _RL     climsststartdate
      _RL     climsstperiod
      _RL     climsstconst
      _RL     climsst_exfremo_intercept 
      _RL     climsst_exfremo_slope
      character*1 climsstmask
      parameter(  climsstmask = 's' )

      integer climsssstartdate1
      integer climsssstartdate2
      _RL     climsssstartdate
      _RL     climsssperiod
      _RL     climsssconst
      _RL     climsss_exfremo_intercept 
      _RL     climsss_exfremo_slope
      character*1 climsssmask
      parameter(  climsssmask = 's' )

c     freezing temperature is the minimum temperature allowed, used
c     to reset climatological temperatures fields where they have
c     values below climtempfreeze
      _RL climtempfreeze

      integer selectStressGridPosition

      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
      character*(128) climsstfile
      character*(128) climsssfile

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/ selectStressGridPosition,
     &                     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,
     &                     exf_scal_BulkCdn,
     &                     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

      common /exf_clim_i/
     &                        climsststartdate1,  climsststartdate2,
     &                        climsssstartdate1,  climsssstartdate2

      common /exf_clim_c/
     &                        climsstfile,
     &                        climsssfile

      common /exf_clim_r/
     &                        climtempfreeze,
     &                        climsstperiod,      climsststartdate,
     &                        climsssperiod,      climsssstartdate,
     &                        climsstconst,       climsssconst,
     &     climsst_exfremo_intercept, climsst_exfremo_slope,
     &     climsss_exfremo_intercept, climsss_exfremo_slope,
     &     exf_inscal_climsst, exf_inscal_climsss

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_inscal_climsst
      _RL     exf_inscal_climsss

      _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

      _RL climsst_lon0, climsst_lon_inc
      _RL climsst_lat0, climsst_lat_inc(MAX_LAT_INC)
      INTEGER climsst_nlon, climsst_nlat
      _RL climsss_lon0, climsss_lon_inc
      _RL climsss_lat0, climsss_lat_inc(MAX_LAT_INC)
      INTEGER climsss_nlon, climsss_nlat
      common /exf_clim_interpolation/
     & climsst_lon0, climsst_lon_inc,
     & climsst_lat0, climsst_lat_inc,
     & climsst_nlon, climsst_nlat,
     & climsss_lon0, climsss_lon_inc,
     & climsss_lat0, climsss_lat_inc,
     & climsss_nlon, climsss_nlat

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