! THIS EVENT MONITOR APPLICATION CALCULATES A RISK RATING for MPB in LPP
! BASED ON THE SYSTEM OF AMMAN, et al (1977)
! [Amman, McGregor, Cahill & Klein. 1977.  Guidelines for reducing losses
! of LPP to the MPB in unmanaged stands in the Rocky Mountains.
! USDA FS GTR INT-36, Intermountain F&R Exp Sta., Ogden, UT 22pp.]
!
! RISK IS BASED ON THREE FACTORS:
!
!      STAND ELEVATION,
!      STAND AGE,
!      AND HOST QMD (OF HOST TREES >5 INCHES DBH)
!
! EACH FACTOR IS ASSIGNED A VALUE (1,2, OR 3) BASED ON STAND CONDITIONS.
! RISK RATING IS BASED UPON THE PRODUCT OF THE THREE FACTORS:
!
!     ELEVATION      AGE      DBH     FACTOR VALUE
!       >10400       <60      <7            1
!     9400-10400    60-80     7-8           2
!       <9400        >80      >8            3
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! (Note: elevation breakpoints (E_THOLDs) vary with latitude.
! Those noted in table above are for ~ 39 deg. N latitude.
! See the "INITIALIZE" section below to set your E_THOLDS.)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! RISK RATING: FACTOR1 * FACTOR2 * FACTOR3
!
! (Possible values: 1, 2, 3, 4, 6, 8, 9, 12, 18, 27)
!
!  1-9 = LOW; 12-18 = MODERATE; 27 = HIGH
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!                                                                 !!
!!  Prepared 07/01 AJ McMahan, INTECS International, Inc., for:    !!
!!                                                                 !!
!!  Forest Health Technology Enterprise Team, USDA Forest Service, !!
!!  2150 Centre Ave Bldg A Suite 331, Ft. Collins, CO  80526-1891  !!
!!                                                                 !!
!!  Contact: Eric Smith  970 295-5841 (email:  elsmith@fs.fed.us)  !!
!!                                                                 !!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!
!! INITIALIZE  !!
!!!!!!!!!!!!!!!!!

COMPUTE            0
AMMAN1 = -1
AMMAN2 = -1
AMMAN3 = -1
QMD_GT_5 = SPMCDBH(5,LP,0,5,999)
END


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!                        DEFINE E_THOLDs
!!
!!  ADD asterisk(s) (*) or exclamation points (!!) in column 1 to
!!    "comment out" the line.  (If "*" or "!", the line will be printed
!!    [as a comment] in output; if "!!", line will not be printed in output.)
!!
!!  REMOVE asterisks/exclamation points to "activate" the line.

!!  The following blocks define E_THOLDs for various latitudes.
!!  "Activate" the applicable pair for your latitude,
!!  or enter your own E_THOLDs.

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

COMPUTE            0

!!  For ~33 degrees N Latitude

!!E_THOLD1 = 13070
!!E_THOLD2 = 12070


!!  For ~35 degrees N Latitude

!!E_THOLD1 = 12180
!!E_THOLD2 = 11180


!!  For ~37 degrees N Latitude

!!E_THOLD1 = 11290
!!E_THOLD2 = 10290


!!  For ~39 degrees N Latitude

E_THOLD1 = 10400
E_THOLD2 = 9400


!!  For ~41 degrees N Latitude

!!E_THOLD1 = 9510
!!E_THOLD2 = 8510


!!  For ~43 degrees N Latitude

!!E_THOLD1 = 8620
!!E_THOLD2 = 7620


!!  For ~45 degrees N Latitude

!!E_THOLD1 = 7740
!!E_THOLD2 = 6740


!!  For ~47 degrees N Latitude

!!E_THOLD1 = 6850
!!E_THOLD2 = 5850


!!  For ~49 degrees N Latitude

!!E_THOLD1 = 5960
!!E_THOLD2 = 4960


!!  OTHER--User Defined

!!E_THOLD1 =
!!E_THOLD2 =

END

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!                  END OF DEFINING E_THOLDs
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!
!! FACTOR 1 (ELEVATION) !!
!!!!!!!!!!!!!!!!!!!!!!!!!!

IF
ELEV GT E_THOLD1
THEN
COMPUTE           0
AMMAN1 = 1
END
ENDIF

IF
ELEV GE E_THOLD2 AND ELEV LE E_THOLD1
THEN
COMPUTE           0
AMMAN1 = 2
END
ENDIF

IF
ELEV LT E_THOLD2
THEN
COMPUTE           0
AMMAN1 = 3
END
ENDIF

!!!!!!!!!!!!!!!!!!!!
!! FACTOR 2 (AGE) !!
!!!!!!!!!!!!!!!!!!!!

IF
AGE LT 60
THEN
COMPUTE           0
AMMAN2 = 1
END
ENDIF

IF
AGE GE 60 AND AGE LE 80
THEN
COMPUTE           0
AMMAN2 = 2
END
ENDIF

IF
AGE GT 80
THEN
COMPUTE           0
AMMAN2 = 3
END
ENDIF

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! FACTOR THREE (QMD OF HOST > 5") !!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

IF
QMD_GT_5 LT 7.0
THEN
COMPUTE           0
AMMAN3 = 1
END
ENDIF

IF
QMD_GT_5 GE 7.0 AND QMD_GT_5 LE 8.0
THEN
COMPUTE           0
AMMAN3 = 2
END
ENDIF

IF
QMD_GT_5 GT 8.0
THEN
COMPUTE           0
AMMAN3 = 3
END
ENDIF

!!!!!!!!!!!!!!!!!
!! RISK RATING !!
!!!!!!!!!!!!!!!!!

IF
AMMAN1 GT 0 AND AMMAN2 GT 0 AND AMMAN3 GT 0
THEN
COMPUTE           0
AMM_HAZ = AMMAN1 * AMMAN2 * AMMAN3
END
ENDIF