cdifs_obj_Final Subroutine

    subroutine cdifs_obj_Final(this)
      !> Finalizes solver and frees memory.
      implicit none
      class(cdifs_obj), intent(inout) :: this                                  !! CDIFS solver

      ! Nullify pointers
      this%timer    => null()
      this%parallel => null()
      this%parser   => null()
      this%hdf5     => null()

      ! Deallocate allocatables
      if (allocated(this%name))       deallocate(this%name)
      if (allocated(this%outputs))    deallocate(this%outputs)
      if (allocated(this%output_var)) deallocate(this%output_var)
      if (allocated(this%bodyforce))  deallocate(this%bodyforce)
      if (allocated(this%pGRAD))      deallocate(this%pGRAD)
      if (allocated(this%DIV))        deallocate(this%DIV)
      if (allocated(this%LAP))        deallocate(this%LAP)

      ! Finalize derived types
      call this%RP         % Finalize()
      call this%IB         % Finalize()
      call this%collisions % Finalize()
      call this%hypre      % Finalize()
      call this%VFSolver   % Finalize()
      call this%op         % Finalize()
      call this%fields     % Finalize()
      call this%bcs        % Finalize()
      call this%block      % Finalize()
      call this%monitors   % Finalize()
      call this%pmonitor   % Finalize()

      return
    end subroutine cdifs_obj_Final