Subject: CROWN WIDTH CALCULATIONS
Name: R. Havis - coding completed by Chad Keyser
Date: December 22, 2004
Variants affected: Central States (CS), Lake States (NE), Southeast (SE)
and Southern (SN)

Description: A new routine called CWCALC was introduced and is called
to return crown width.  In R8 and R9, a new routine ls/CWCALC
(replaces ls/ECRWD) returns crown width and is called by ls/CCFCAL to return
crown width for CCF calculations.  In the west ni/CWCALC calls the
variant-specific CCFCAL routines to return crown width.  The forest-specific
default values of TLAT, TLONG and ELEV are now set in the R8 and R9 FORKOD
routines specifically for the simiulation forest.  These values are
intitialized to zero in the GRINT routines.


Impact on users: The CCF values in R8 and R9 are significantly effected and
therefore growth is also effected.

Files:
ak/src/ccfcal.f      - removed reference to MODE 3
ak/src/estab.f       - changed from call to CCFCAL to call to CWCALC
base/src/cwidth.f    - changed from call to CCFCAL to call to CWCALC
base/src/revise.f
bm/src/ccfcal.f      - removed reference to MODE 3
ca/src/ccfcal.f      - removed reference to MODE 3
ca/src/esuckr.f      - changed from call to CCFCAL to call to CWCALC
ci/src/ccfcal.f      - modified comments
cr/src/ccfcal.f      - modified comments
cr/src/esuckr.f      - changed from call to CCFCAL to call to CWCALC
cs/src/forkod.f
cs/src/grinit.f
ec/src/ccfcal.f      - removed reference to MODE 3
em/src/ccfcal.f      - removed reference to MODE 3
estb/src/estab.f     - changed from call to CCFCAL to call to CWCALC
estb/src/esuckr.f    - changed from call to CCFCAL to call to CWCALC
ie/src/ccfcal.f      - removed reference to MODE 3
ie/src/esuckr.f      - canged from call to CCFCAL to call to CWCALC
ls/src/ccfcal.f      - added call to CWCALC for CCF calcualtions
ls/src/cwcalc.f      - **new routine and replaces ls/ECRWD.  It calculates crown
                         width specifically for crown width purposes and
                         specifically for CCF calculations
nc/src/ccfcal.f      - removed reference to MODE 3
ne/src/forkod.f
ne/src/grinit.f
ni/src/ccfcal.f      - removed reference to MODE 3
ni/src/cwcalc.f      - **new routine, that calls CCFCAL to return crown width
                         for western variants
pn/src/ccfcal.f      - removed reference to MODE 3
se/src/forkod.f
se/src/grinit.f
sn/src/forkod.f
sn/src/grinit.f
so/src/ccfcal.f      - removed reference to MODE 3
strp/src/estab.f     - changed from call to CCFCAL to call to CWCALC
strp/src/esuckr.f    - changed from call to CCFCAL to call to CWCALC
tt/src/ccfcal.f      - modified comments
tt/src/esuckr.f      - changed from call to CCFCAL to call to CWCALC
ut/src/ccfcal.f      - modified comments
ut/src/esuckr.f      - changed from call to CCFCAL to call to CWCALC
wc/src/ccfcal.f      - modified comments
wc/src/esuckr.f      - changed from call to CCFCAL to call to CWCALC
ws/src/ccfcal.f

COMPILE Notes:

ak/obj/makefile      - add ni/CWCALC to compile instructions
ca/obj/makefile      - add ni/CWCALC to compile instructions
cr/obj/makefile      - add ni/CWCALC to compile instructions
cs/obj/makefile      - remove ls/ECRWD compile instructions
                       add ls/CWCALC compile intructions
ie/obj/makefile      - add ni/CWCALC to compile instructions
ls/obj/makefile      - remove ls/ECRWD compile instructions
                       add ls/CWCALC compile intructions
ne/obj/makefile      - remove ls/ECRWD compile instructions
                       add ls/CWCALC compile intructions
ni/obj/makefile      - add ni/CWCALC to compile instructions
se/obj/makefile      - remove ls/ECRWD compile instructions
                       add ls/CWCALC compile intructions
sn/obj/makefile      - remove sn/CCFCAL compile instructions
                       add ls/CCFCAL compile intructions
                       add ls/CWCALC compile intructions
ut/obj/makefile      - add ni/CWCALC to compile instructions
wc/obj/makefile      - add ni/CWCALC to compile instructions

LINK Notes:

bin/makefile         - add the CWCALC object to all link lists,
                            - add ni/CWCALC to the BM, CI, EC, EM, KT, NC, NI,
                              SO, TT, and WS link lists
                            - add wc/CWCALC to the PN variant link lists
                            - add the variant specific CWCALC objects to the 
                              CA, CR, IE, LS, SN, UT, and WC link lists
                     - remove ECRWD and add the variant-specific CWCALC
                       objects to the CS, LS, NE and SE variant link lists

delete ls/ECRWD
delete sn/CCFCAL
replace ls/CCFCAL with the new ls/CCFCAL routine

Compile these routines and link the CS, LS, NE, SE and SN variants 
and their extensions.