












      subroutine alfabeta_k_empty

      use Agrif_Types, only : Agrif_tabvars


      return
      end
