teardown Subroutine

   subroutine teardown(this)
      class(Scenario), intent(inout) :: this

      integer :: status

      !# call ESMF_GridCompDestroy(this%outer_gc, _RC)

      !# call ESMF_StateDestroy(this%outer_states%importState,_RC)
      !# call ESMF_StateDestroy(this%outer_states%exportState, _RC)
   end subroutine teardown