












      subroutine get_psource_ts_empty

      use Agrif_Types, only : Agrif_tabvars


           write(*,*)'get_psource_ts_empty'
      return
      end
