subroutine Agrif2Model
         write(*,*) 'Impossible to bet here'
      end subroutine Agrif2model