***  ASSIGN VALUES TO VARIOUS PRESENT WEATHER REPORTS TO DETERMINE THE 
***  OCCURRENCE OF SELECTED PHENOMENON EACH DAY
***
	subroutine ww_values(ww,wxind,thnder,fog,rain,hail,snow,tt,torn)
	implicit none
	integer ww,wxind,thnder,fog,rain,hail,snow,tt,torn
         IF (WW  .GE. 0 .AND. WW  .LE. 99) WXIND = 1 
          
         IF (WW.EQ.17)  THNDER = 1   
	 
         IF (WW  .GE. 91 .AND. WW  .LE. 99) THNDER = 1   
         
         IF (WW  .GE. 40 .AND. WW  .LE. 49) FOG = 1  
         
         IF (WW  .GE. 50 .AND. WW  .LE. 69) RAIN = 1 
        
         IF (WW  .GE. 80 .AND. WW  .LE. 84) RAIN = 1 
         
         IF (WW  .GE. 89 .AND. WW  .LE. 92) RAIN = 1 
         
         IF (TT.GT.2732 .AND. WW.GE.93  .AND. WW.LE.99)  RAIN = 1
        
         IF (TT.LE.2732 .AND. WW.GE.93  .AND. WW.LE.99)  SNOW = 1
      
         IF (WW .GE. 70 .AND. WW .LE. 75) SNOW = 1 
     
         IF (WW .GE. 77 .AND. WW .LE. 79) SNOW = 1 
     
         IF (WW .GE. 85 .AND. WW .LE. 88) SNOW = 1 
     
         IF (WW .GE. 93 .AND. WW .LE. 94) SNOW = 1 
      
         IF (WW .GE. 89 .AND. WW .LE. 90) HAIL = 1 
       
         IF (WW .EQ. 96 .OR. WW .EQ. 99)  HAIL = 1  
       
         IF (WW .EQ. 19) TORN = 1  
       
         IF (WW .GE. 20   .AND. WW .LE. 21) RAIN = 1 
       
         IF (WW .GE. 23   .AND. WW .LE. 25) RAIN = 1 
        
         IF (TT .GT. 2732 .AND. WW. EQ. 26) RAIN = 1   
         IF (WW  .EQ. 27) RAIN = 1  
        
         IF (WW .GE. 22 .AND. WW .LE. 23) SNOW = 1 
        
         IF (WW .EQ. 26)  SNOW = 1  
       
         IF (WW .EQ. 27)  HAIL = 1  
       
         IF (WW .EQ. 28)  FOG = 1   
        
         IF (WW .EQ. 29)  THNDER = 1
       
	return
	end