1 SUBROUTINE AVEREV 2 !*********************************************************************** 3 ! AVEREV Module of the AMS/EPA Regulatory Model - AERMOD - EVENT 4 ! 5 ! PURPOSE: Sums Values and Calculates Averages 6 ! 7 ! PROGRAMMER: Jeff Wang, Roger Brode 8 ! 9 ! DATE: March 2, 1992 10 ! 11 ! INPUTS: Averaging Time Option Switches 12 ! Array of CONC or DEPOS Values for One Hour, HRVALS 13 ! 14 ! OUTPUTS: Updated Array of Cumulative Values and Averages, AVEVAL 15 ! 16 ! CALLED FROM: EVLOOP 17 !*********************************************************************** 18 19 ! Variable Declarations 20 USE MAIN1 21 IMPLICIT NONE 22 CHARACTER MODNAM*12 23 24 SAVE 25 REAL :: SNUM 26 27 ! Variable Initializations 28 MODNAM = 'AVEREV' ! 0 29 30 ! Calculate Average CONCentrations If Hour is Right 31 IF ( CONC ) THEN 32 IF ( EVAPER(IEVENT).NE.1 ) THEN ! 0 33 ! Calculate Denominator Considering Calms and Missing, 34 ! Skipping Averaging if Averaging Period is 1-Hour 35 SNUM = AMAX0((EV_NUMHRS-EV_NUMCLM-EV_NUMMSG), & 36 & NINT(EV_NUMHRS*0.75+0.4)) 37 ! Begin Source Group LOOP 38 DO ISRC = 1 , NUMSRC 39 IF ( IGROUP(ISRC,IDXEV(IEVENT)).EQ.1 ) EV_AVEVAL(ISRC) & 40 & = (1./SNUM)*EV_AVEVAL(ISRC) 41 ENDDO 42 ! End Source Group LOOP 43 ENDIF 44 ENDIF 45 46 ! Calculate The Group Value 47 GRPAVE = 0. ! 0 48 ! Begin Source Group LOOP 49 DO ISRC = 1 , NUMSRC 50 IF ( IGROUP(ISRC,IDXEV(IEVENT)).EQ.1 ) GRPAVE = GRPAVE + & 51 & EV_AVEVAL(ISRC) 52 ENDDO 53 ! End Source Group LOOP 54 55 CONTINUE ! 0 56 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