O     xx_hfluxstartdate, diffrec, startrec, endrec,

     &     xx_hflux_file, 3, 103, diffrec, startrec, endrec,

     O     xx_atempstartdate, diffrec, startrec, endrec,

     &     xx_atemp_file, 7, 107, diffrec, startrec, endrec,

     O     xx_sfluxstartdate, diffrec, startrec, endrec,

     &     xx_sflux_file, 4, 104, diffrec, startrec, endrec,

     O     xx_aqhstartdate, diffrec, startrec, endrec,

     &     xx_aqh_file, 8, 108, diffrec, startrec, endrec,

     O     xx_tauustartdate, diffrec, startrec, endrec,

     &     xx_tauu_file, 5, 105, diffrec, startrec, endrec,

     O     xx_uwindstartdate, diffrec, startrec, endrec,

     &     xx_uwind_file, 9, 109, diffrec, startrec, endrec,

     O     xx_tauvstartdate, diffrec, startrec, endrec,

     &     xx_tauv_file, 6, 106, diffrec, startrec, endrec,

     O     xx_vwindstartdate, diffrec, startrec, endrec,

     &     xx_vwind_file, 10, 110, diffrec, startrec, endrec,

     O     xx_obcsnstartdate, diffrec, startrec, endrec,

     &     xx_obcsn_file, 11, 111, diffrec, startrec, endrec,

     O     xx_obcssstartdate, diffrec, startrec, endrec,

     &     xx_obcss_file, 12, 112, diffrec, startrec, endrec,

     O     xx_obcswstartdate, diffrec, startrec, endrec,

     &     xx_obcsw_file, 13, 113, diffrec, startrec, endrec,

     O     xx_obcsestartdate, diffrec, startrec, endrec,

     &     xx_obcse_file, 14, 114, diffrec, startrec, endrec,

     O     xx_sststartdate, diffrec, startrec, endrec,

     &     xx_sst_file, 18, 118, diffrec, startrec, endrec,

     O     xx_sssstartdate, diffrec, startrec, endrec,

     &     xx_sss_file, 19, 119, diffrec, startrec, endrec,

     O     xx_precipstartdate, diffrec, startrec, endrec,

     &     xx_precip_file, 32, 132, diffrec, startrec, endrec,

     O     xx_swfluxstartdate, diffrec, startrec, endrec,

     &     xx_swflux_file, 33, 133, diffrec, startrec, endrec,

     O     xx_swdownstartdate, diffrec, startrec, endrec,

     &     xx_swdown_file, 34, 134, diffrec, startrec, endrec,

      integer diffrec

     O     xx_lwfluxstartdate, diffrec, startrec, endrec,

     &     xx_lwflux_file, 35, 135, diffrec, startrec, endrec,

     O     xx_lwdownstartdate, diffrec, startrec, endrec,

     &     xx_lwdown_file, 36, 136, diffrec, startrec, endrec,

     O     xx_evapstartdate, diffrec, startrec, endrec,

     &     xx_evap_file, 37, 137, diffrec, startrec, endrec,

     O     xx_snowprecipstartdate, diffrec, startrec, endrec,

     &     xx_snowprecip_file, 38, 138, diffrec, startrec, endrec,

     O     xx_apressurestartdate, diffrec, startrec, endrec,

     &     xx_apressure_file, 39, 139, diffrec, startrec, endrec,

     O     xx_runoffstartdate, diffrec, startrec, endrec,

     &     xx_runoff_file, 40, 140, diffrec, startrec, endrec,

      diffrec  = endrec - startrec + 1

     &     xx_siarea_file, 41, 141, diffrec, startrec, endrec,

      diffrec  = endrec - startrec + 1

     &     xx_siheff_file, 42, 142, diffrec, startrec, endrec,

      diffrec  = endrec - startrec + 1

     &     xx_sihsnow_file, 43, 143, diffrec, startrec, endrec,

     O     xx_shifwflxstartdate, diffrec, startrec, endrec,

     &     xx_shifwflx_file, 45, 145, diffrec, startrec, endrec,

     O       diffrec, startrec, endrec,

     &       diffrec, startrec, endrec,

      diffrec  = endrec - startrec + 1

     O     fldstartdate, diffrec, startrec, endrec,

      integer diffrec

      diffrec  = 0