1 2 SUBROUTINE SUMVAL 3 !*********************************************************************** 4 ! SUMVAL Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Sums HRVAL to AVEVAL and ANNVAL Arrays 7 ! 8 ! PROGRAMMER: Roger Brode 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: HRVAL - Hourly Value for (IREC,ISRC) Combination 13 ! Averaging Period Options 14 ! Source Groupings 15 ! 16 ! OUTPUTS: Updated Sums of AVEVAL and ANNVAL Arrays 17 ! 18 ! CALLED FROM: PCALC 19 ! VCALC 20 ! ACALC 21 !*********************************************************************** 22 23 ! Variable Declarations 24 USE MAIN1 25 IMPLICIT NONE 26 CHARACTER MODNAM*12 27 28 SAVE 29 30 ! Variable Initializations 31 MODNAM = 'SUMVAL' !2901448 32 33 ! Begin LOOP Over Output Types 34 DO ITYP = 1 , NUMTYP 35 IF ( HRVAL(ITYP).NE.0.0 ) THEN !2901448 36 ! Begin Source Group LOOP 37 DO IGRP = 1 , NUMGRP !2560066 38 ! Check for Source Belonging to Group 39 IF ( IGROUP(ISRC,IGRP).EQ.1 ) THEN !2560066 40 ! Begin Averaging Period LOOP 41 DO IAVE = 1 , NUMAVE !2560066 42 AVEVAL(IREC,IGRP,IAVE,ITYP) = HRVAL(ITYP) & 43 & + AVEVAL(IREC,IGRP,IAVE,ITYP) 44 ENDDO 45 ! End Averaging Period LOOP 46 IF ( PERIOD .OR. ANNUAL ) THEN !2560066 47 IF ( .NOT.SCIM .OR. (SCIM .AND. .NOT.WETSCIM) ) & 48 & ANNVAL(IREC,IGRP,ITYP) = HRVAL(ITYP) & 49 & + ANNVAL(IREC,IGRP,ITYP) 50 IF ( SCIM .AND. WETSCIM .AND. WETHR ) & 51 & ANNVALW(IREC,IGRP,ITYP) = HRVAL(ITYP) & 52 & + ANNVALW(IREC,IGRP,ITYP) 53 IF ( SCIM .AND. WETSCIM .AND. SCIMHR ) & 54 & ANNVALD(IREC,IGRP,ITYP) = HRVALD(ITYP) & 55 & + ANNVALD(IREC,IGRP,ITYP) 56 ENDIF 57 IF ( ISEAHR(IGRP).EQ.1 ) & 58 & SHVALS(IREC,IGRP,ISEAS,IHOUR,ITYP) = HRVAL(ITYP) & 59 & + SHVALS(IREC,IGRP,ISEAS,IHOUR,ITYP) 60 ENDIF 61 ENDDO 62 ! End Source Group LOOP 63 ENDIF 64 ENDDO 65 ! End LOOP Over Output Types 66 67 CONTINUE !2901448 68 END
HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use