      subroutine wrt_diag_empty

      use Agrif_Types, only : Agrif_tabvars


#include "Param_BeforeCall_wrt_diag_empty.h"
      end
