PROGRAM drv_main
!
      USE drv_dat_mod                       ! ALMA data module
      USE drv_input_mod                     ! ALMA input and quality check module
      USE drv_output_mod                    ! ALMA output and its generator
!
      IMPLICIT NONE
      OPEN(3, FILE='run.con', STATUS='OLD')
      CALL drv_readcon(3)
      PAUSE
      CALL drv_allocate_alma
!nf   Open and QC all of the NetCDF input files, and collect variable info
      ncvar_count = 0
      CALL drv_almaparse(ncin_file,ncin_count,ncin_dim,nc_input,ncvar_count)
      CALL drv_gsp2d 
      CALL drv_almagen(lpnts, idp, adtt, nodsecin, user, title, &
                   iyrbeg, mthbeg, ndybeg, nhrbeg, minbeg, secbeg, &
                   gvarid, ncid_gout, gout_file, gout_num, gout_lat, gout_lon, &
                   fvarid, ncid_fout, fout_file, fout_flag, &
                   mvarid, ncid_mout, mout_file, mout_flag)
!
      STOP
      END PROGRAM drv_main