#!/usr/bin/perl -I/nwprod/lib/incmod/perl

# $Id: sub_emissions_model_baseclass.pl,v 1.2 2004/02/17 22:53:27 smo Exp $

#------------------------------------------------------------------------------
# Filename:  sub_emissions_model_baseclass.pl
#
# Purpose:  Parent class for the emissions model system.
#
# By:  Sim
#
#  USDA Forest Service - Pacific Northwest Wildland Fire Labratory
#  Copyright (C) 2003-2004
#------------------------------------------------------------------------------

package Emissions_Model_Class;

use Text::CSV_XS;
use IO::File;

$cwd = `pwd`;
# $cwd = system(pwd);
print ("luke- in smoke_sub_emissions_model_baseclass.pl the cwd is $cwd \n");

sub new
{
    my $class = shift;
    my $self = { };
    bless($self, $class);
    return $self;
};

sub run_model
{
    # virtual placeholder for method implemented in child classes
    die("Emissions_Model_Class baseclass run_model called - check that EMISSIONS_TYPE is specified");
};

return 1;