ExtDataDriver.F90 Source File

#define I_AM_MAIN

#include "MAPL_Generic.h"

program ExtData_Driver
  use MPI
  use ESMF
  use ExtData_DriverGridCompMod, only: ExtData_DriverGridComp, new_ExtData_DriverGridComp
  use ExtDataUtRoot_GridCompMod, only:  ROOT_SetServices => SetServices
  use ExtDataDriverMod
  use MAPL

  implicit none

  integer :: status
  character(len=*), parameter :: Iam="ExtData_Driver"
  type(ExtDataDriver) :: Driver
  type (MAPL_CapOptions) :: cap_options
  type (MAPL_FargparseCLI) :: cli

  cli = MAPL_FargparseCLI()
  cap_options=MAPL_CapOptions(cli)

  driver = ExtDataDriver('ExtDataApp',Root_SetServices,cap_options=cap_options,_RC)
  call driver%run(_RC)

  stop

end program ExtData_Driver