f_esmf_compresetvmreleased Subroutine

recursive subroutine f_esmf_compresetvmreleased(comp, rc)
  use ESMF_UtilTypesMod      ! ESMF utility types
  use ESMF_BaseMod           ! ESMF base class
  use ESMF_CompMod

  implicit none

  type(ESMF_CWrap)   :: comp
  integer            :: rc

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

  comp%compp%vm_released = .false.  ! reset
  
  ! return successfully
  rc = ESMF_SUCCESS

end subroutine f_esmf_compresetvmreleased