f_esmf_scicompcreate Subroutine

subroutine f_esmf_scicompcreate(scomp, name, rc)
  use ESMF_UtilTypesMod      ! ESMF utility types
  use ESMF_BaseMod           ! ESMF base class
  use ESMF_CompMod
  use ESMF_SciCompMod
  use ESMF_InitMacrosMod
  
  implicit none

  type(ESMF_SciComp)        :: scomp
  character(len=*)          :: name
  integer                   :: rc

  type(ESMF_Pointer) :: this

  ! Initialize return code; assume routine not implemented
  rc = ESMF_RC_NOT_IMPL

  scomp = ESMF_SciCompCreate(name=name, rc=rc)

end subroutine f_esmf_scicompcreate