C***********************************
      SUBROUTINE SUMS 
      
      implicit integer (a-z)
C***********************************
C     
*** DO SUMMATIONS FOR CURRENT STN-YR-MO-DA ***  
***                                        ***  
*** ONLY ALLOW FOR 1 OB PER H0UR (MAX 24 PER DAY).  
*** USE HOURLY DATA TO ASSIGN MAX/MIN TEMPS FROM HOURLY DATA--TO
*** LATER BE COMPARED WITH MAX/MIN FROM EXPLICIT MAX/MIN REPORT 
**  (IF AVAILABLE). 

	INCLUDE 'dat3.com'

          ! AB TEST print*,'    <<<<<<<     SUMS    >>>>>>>'
          ! AB TEST  print*, '1 TTF =', TTF,' HR,P=',HR,HRPRV, 'TTCNT =',TTCNT
          IF (TTF .NE. 9999.9) THEN  
             IF (HR.NE.HRPRV.AND.TTCNT.LE.23) TTSUM = TTSUM + TTF   
             IF (HR.NE.HRPRV.AND.TTCNT.LE.23) TTCNT = TTCNT + 1 
             IF (TTF .GT. THRMAX) THRMAX = TTF  
             IF (TTF .LT. THRMIN) THRMIN = TTF  
          ELSE   
          END IF
          IF (TDDF .NE. 9999.9 .AND. TTF .NE. 9999.9) THEN   
             IF (HR.NE.HRPRV.AND.TDDCNT.LE.23) TDDSUM = TDDSUM+TDDF 
             IF (HR.NE.HRPRV.AND.TDDCNT.LE.23) TDDCNT = TDDCNT + 1  
          ELSE   
          END IF 
	  
          IF (SLPMB .NE. 9999.9 .AND. TTF .NE. 9999.9) THEN  
             IF (HR.NE.HRPRV.AND.SLPCNT.LE.23) SLPSUM = SLPSUM+SLPMB
             IF (HR.NE.HRPRV.AND.SLPCNT.LE.23) SLPCNT = SLPCNT + 1  
          ELSE   
          END IF 
	  
          IF (STPMB .NE. 9999.9 .AND. TTF .NE. 9999.9) THEN  
             IF (HR.NE.HRPRV.AND.STPCNT.LE.23) STPSUM = STPSUM+STPMB
             IF (HR.NE.HRPRV.AND.STPCNT.LE.23) STPCNT = STPCNT + 1  
          ELSE   
          END IF 
	 
          IF (MAXTMP .NE. 9999.9) THEN   
             IF (MAXTMP.LT.MAXPRV .AND. MAXPRV.NE.9999.9) THEN  
                MAXTMP = MAXPRV
             ELSE   
                MAXPRV = MAXTMP
             END IF 
             MAXSUM = MAXSUM + MAXTMP   
             MAXCNT = MAXCNT + 1
          ELSE   
          END IF 
	  
          IF (MINTMP .NE. 9999.9) THEN   
             IF (MINTMP.GT.MINPRV .AND. MINPRV.NE.9999.9) THEN  
                MINTMP = MINPRV
             ELSE   
                MINPRV = MINTMP
             END IF 
             MINSUM = MINSUM + MINTMP   
             MINCNT = MINCNT + 1
          ELSE   
          END IF 
	  
          IF (SPEEDK .NE. 999.9 .AND. TTF .NE. 9999.9) THEN  
             IF (HR.NE.HRPRV.AND.SPDCNT.LE.23) SPDSUM=SPDSUM+SPEEDK 
             IF (HR.NE.HRPRV.AND.SPDCNT.LE.23) SPDCNT = SPDCNT + 1  
          ELSE   
          END IF 
	  
          IF (SPEEDK .NE. 999.9) THEN
             IF (SPEEDK .GT. SPDMAX) SPDMAX = SPEEDK
          ELSE   
          END IF 
	  
          IF (GUSTK .NE. 999.9) THEN 
             GSTCNT = GSTCNT + 1
             IF (GUSTK .GT. GSTMAX) GSTMAX = GUSTK  
          ELSE   
          END IF 
	  
          IF (GUSTK2 .NE. 999.9) THEN
             GSTCN2 = GSTCN2 + 1
             IF (GUSTK2 .GT. GSTMX2) GSTMX2 = GUSTK2
          ELSE   
          END IF 
	     
          IF (VISBYM .NE. 999.9 .AND. TTF .NE. 9999.9) THEN  
             IF (HR.NE.HRPRV.AND.VISCNT.LE.23) VISSUM=VISSUM+VISBYM 
             IF (HR.NE.HRPRV.AND.VISCNT.LE.23) VISCNT = VISCNT + 1  
          ELSE   
          END IF 
	
         YRPRV = YEAR   
         MOPRV = MO 
         DAPRV = DA 
         STNPRV = STN   
	   WBANPRV = WBAN
         LATPRV = LAT   
         ELVPRV = STNELV
CC......         print*,ELVPRV,' in sums'
         SPDPRV = SPEEDK
         GSTPRV = GUSTK 
         GSTPR2 = GUSTK2

         IF (TTF .NE. 9999.9) HRPRV = HR
         RETURN 
	   END