January 21, 2004

Please download new copies of the following routines.

./ni/src/spctrn.f    - expanded this routine to be an all western variants routine,
                       thus laying the groundwork for better translation or FIA
                       codes to alpha species codes in the future. Also, makes L
                       and WL recognized for western Larch, S and ES recognized
                       for Engelmann spruce, C and RC recognized for western red
                       cedar, and J and JU recognized for western juniper in
                       variants where this is still and issue (data input only,
                       not on keywords).
./cs/src/sitset.f    - For the Mark Twain NF, merchantability specs entered for
                       cycle 0 via keyword were being overwritten by the default
                       merch specs for the Mark Twain.  Moved the setting of the
                       default merch specs from grinit to sitset to correct this
                       problem.
./cs/src/grinit.f    - see above
./sn/src/findag.f    - logic was corrected so trees exceeding the calculated maximum
                       height were assigned the correct age when FINDAG is called
                       from CRATET.  This problem was discovered by Don
                       Vandendriesche when calculating stand age in cycle 0, based
                       on input tree heights using an algorithm not in production.
                       This will not affect other basic model calculations.
./base/src/stkval.f  - Tree species FIA codes are used as an index to Arner's (2001)
                       initial type groups and stocking equations.  These are used
                       to estimate size and stocking class and forest type
                       (in FORTYP) appearing in Summary Statistics table.  Species
                       having no valid FIA code are assigned three dashes ('---').
                       This code is now assigned an initial type group of 998 other
                       hardwoods (OH) rather than non stocked (initial type group
                       999).  Other cedars in the NE variant were not indexed and
                       are now assigned initial type group 60.  The initial type
                       group of other pines (NE) was changed from 52 to 42.  Other
                       changes were made in the indexing system to accommodate the
                       changes to the FIA codes described below.
./base/src/revise.f
./ls/src/spctrn.f    - changes in FIA codes and alpha codes were made to accommodate
                       the changes described below.

The changes to the BLKDAT routines are described in the table below.

./se/src/blkdat.f
./wc/src/blkdat.f
./ws/src/blkdat.f
./pn/src/blkdat.f
./ne/src/blkdat.f
./nc/src/blkdat.f
./ls/src/blkdat.f
./cr/src/blkdat.f
./cs/src/blkdat.f
./ca/src/blkdat.f
./ak/src/blkdat.f
./ie/src/blkdat.f
./sn/src/blkdat.f

The following table shows the FIA and ALPHA code changes made in the
indicated BLKDAT routines.  The '---' codes are used for species
that have no valid FIA code.  See explanation for STKVAL, above.

BLKDAT Routine        OLD CODE      NEW CODE
                     ALPHA  FIA    ALPHA  FIA
       AK            OS     290    OS     298
       AK            OH     990    OH     998

       CA            OS     290    OS     298
       CA            BU     330    BU     333
       CA            OH     990    OH     998

       CR            OS     290    OS     298
       CR            OH     990    OH     998

       CS            HS     410    HS     ---
       CS            HB     462    HK     462
       CS            CW     742    EC     742
       CS            NC     994    NC     ---
       CS            UH     991    UH     ---
       CS            UL     992    UL     ---

       IE            PI     106    PI     133
       IE            OS     001    OS     298
       IE            OH     004    OH     998

       LS            HB     462    HK     462
       LS            CW     742    EC     742
       LS            PL     766    PL     760
       LS            CH     993    CH     ---
       LS            NC     994    NC     ---

       NC            OS     290    OS     298
       NC            OH     990    OH     998

       NE            OS     290    OS     298
       NE            HB     462    HK     462
       NE            NP     830    NP     809
       NE            OH     990    OH     998
       NE            NC     994    NC     ---

       PN            J      060    J      064
       PN            PB     376    PB     375

       SE            DW     490    DW     491
       SE            HB     462    HK     462
       SE            MG     652    MG     650
       SE            MP     310    MA     935
       SE            NC     994    NC     ---

       SN            0H     990    OH     998
       SN            OS     290    OS     298

       WC            J      060    J      064
       WC            PB     376    PB     375

       WS            OS     290    OS     298


DELETE the ie/src/SPCTRN routine from the IE source directory.

COMPILE MACRO CHANGES

IE variant Compile MACRO

DELETE ie/src/SPCTRN
ADD    ni/src/SPCTRN

Compile these routines and link all variants and extensions because
of the base code changes.
