f_esmf_regriddestroy Subroutine

    subroutine f_esmf_regriddestroy(regridp, rc)
      use ESMF_UtilTypesMod
      use ESMF_BaseMod       ! ESMF_Base class
      use ESMF_RegridMod

      implicit none

      type(ESMF_Regrid), pointer :: regridp
      integer, intent(out), :: rc
     
      call ESMF_RegridDestroy(regridp, rc)
    
    end subroutine f_esmf_regriddestroy