ExtData_Driver Program

Uses

  • program~~extdata_driver~~UsesGraph program~extdata_driver ExtData_Driver ESMF ESMF program~extdata_driver->ESMF module~extdata_drivergridcompmod ExtData_DriverGridCompMod program~extdata_driver->module~extdata_drivergridcompmod module~extdatadrivermod ExtDataDriverMod program~extdata_driver->module~extdatadrivermod module~extdatautroot_gridcompmod ExtDataUtRoot_GridCompMod program~extdata_driver->module~extdatautroot_gridcompmod module~mapl MAPL program~extdata_driver->module~mapl mpi mpi program~extdata_driver->mpi

Calls

program~~extdata_driver~~CallsGraph program~extdata_driver ExtData_Driver mapl_fargparsecli mapl_fargparsecli program~extdata_driver->mapl_fargparsecli proc~mapl_abort MAPL_abort program~extdata_driver->proc~mapl_abort proc~mapl_verify MAPL_Verify program~extdata_driver->proc~mapl_verify proc~run ExtDataDriver%run program~extdata_driver->proc~run

Variables

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

Source Code

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