CapDriver_Main Program

Uses

  • program~~capdriver_main~~UsesGraph program~capdriver_main CapDriver_Main module~extdatautroot_gridcompmod ExtDataUtRoot_GridCompMod program~capdriver_main->module~extdatautroot_gridcompmod module~mapl MAPL program~capdriver_main->module~mapl mpi mpi program~capdriver_main->mpi module~extdatautroot_gridcompmod->module~mapl ESMF ESMF module~extdatautroot_gridcompmod->ESMF gFTL_StringStringMap gFTL_StringStringMap module~extdatautroot_gridcompmod->gFTL_StringStringMap iso_fortran_env iso_fortran_env module~extdatautroot_gridcompmod->iso_fortran_env module~maplshared MaplShared module~extdatautroot_gridcompmod->module~maplshared module~varspecdescriptionmod VarspecDescriptionMod module~extdatautroot_gridcompmod->module~varspecdescriptionmod module~varspecdescriptionvectormod VarspecDescriptionVectorMod module~extdatautroot_gridcompmod->module~varspecdescriptionvectormod netcdf netcdf module~extdatautroot_gridcompmod->netcdf module~esmf_cfiomod ESMF_CFIOMod module~mapl->module~esmf_cfiomod module~mapl_esmffieldbundleread MAPL_ESMFFieldBundleRead module~mapl->module~mapl_esmffieldbundleread module~mapl_esmffieldbundlewrite MAPL_ESMFFieldBundleWrite module~mapl->module~mapl_esmffieldbundlewrite module~mapl_fieldutils MAPL_FieldUtils module~mapl->module~mapl_fieldutils module~mapl_genericmod MAPL_GenericMod module~mapl->module~mapl_genericmod module~mapl_gridcompsmod MAPL_GridCompsMod module~mapl->module~mapl_gridcompsmod module~mapl_openmp_support MAPL_OpenMP_Support module~mapl->module~mapl_openmp_support module~mapl_profiler mapl_Profiler module~mapl->module~mapl_profiler module~mapl_stubcomponent MAPL_StubComponent module~mapl->module~mapl_stubcomponent module~mapl_varspecmiscmod MAPL_VarSpecMiscMod module~mapl->module~mapl_varspecmiscmod module~maplbase_mod MAPLBase_Mod module~mapl->module~maplbase_mod module~pfio pFIO module~mapl->module~pfio

Calls

program~~capdriver_main~~CallsGraph program~capdriver_main CapDriver_Main mapl_fargparsecli mapl_fargparsecli program~capdriver_main->mapl_fargparsecli none~run~14 MAPL_Cap%run program~capdriver_main->none~run~14 proc~mapl_abort MAPL_abort program~capdriver_main->proc~mapl_abort proc~mapl_verify MAPL_Verify program~capdriver_main->proc~mapl_verify none~run~14->proc~mapl_verify none~finalize_mpi MAPL_Cap%finalize_mpi none~run~14->none~finalize_mpi none~run_ensemble MAPL_Cap%run_ensemble none~run~14->none~run_ensemble proc~mapl_return MAPL_Return none~run~14->proc~mapl_return mpi_abort mpi_abort proc~mapl_abort->mpi_abort proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception none~finalize_mpi->proc~mapl_return mpi_finalize mpi_finalize none~finalize_mpi->mpi_finalize proc~mapl_finalize MAPL_Finalize none~finalize_mpi->proc~mapl_finalize none~run_ensemble->proc~mapl_verify none~run_ensemble->proc~mapl_return none~create_member_subcommunicator MAPL_Cap%create_member_subcommunicator none~run_ensemble->none~create_member_subcommunicator none~finalize_io_clients_servers~2 MAPL_Cap%finalize_io_clients_servers none~run_ensemble->none~finalize_io_clients_servers~2 none~free_sub_comm SimpleCommSplitter%free_sub_comm none~run_ensemble->none~free_sub_comm none~initialize_io_clients_servers~2 MAPL_Cap%initialize_io_clients_servers none~run_ensemble->none~initialize_io_clients_servers~2 none~run_member MAPL_Cap%run_member none~run_ensemble->none~run_member proc~mapl_return->proc~mapl_throw_exception at at proc~mapl_return->at insert insert proc~mapl_return->insert

Variables

Type Attributes Name Initial
character(len=*), parameter :: Iam = "CapDriver_Main"
integer :: status
type(MAPL_Cap) :: cap
type(MAPL_CapOptions) :: cap_options
type(MAPL_FargparseCLI) :: cli

Source Code

program CapDriver_Main
   use MPI
   use MAPL
   use ExtDataUtRoot_GridCompMod, only:  ROOT_SetServices => SetServices
   implicit none

   character(len=*), parameter :: Iam="CapDriver_Main"
   type (MAPL_Cap) :: cap
   type (MAPL_FargparseCLI) :: cli
   type (MAPL_CapOptions) :: cap_options
   integer :: status

   cli = MAPL_FargparseCLI()
   cap_options = MAPL_CapOptions(cli)
   cap = MAPL_Cap('Root', ROOT_SetServices, cap_options = cap_options)

   call cap%run(_RC)

end program CapDriver_Main