1 2 SUBROUTINE HIVALS 3 !*********************************************************************** 4 ! HIVALS Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Updates High Value Tables 7 ! 8 ! PROGRAMMER: Roger Brode, Jeff Wang 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! MODIFIED: To change subroutine name MAXVAL to MAXVALUE to 13 ! avoid conflicts with intrinsic function MAXVAL under 14 ! Fortran 90. R. Brode, PES, 12/29/97 15 ! 16 ! INPUTS: High Value Option Switches 17 ! Array of CONC or DEPOS Averages 18 ! 19 ! OUTPUTS: Updated High Value Arrays 20 ! 21 ! CALLED FROM: MAIN 22 !*********************************************************************** 23 24 ! Variable Declarations 25 USE MAIN1 26 IMPLICIT NONE 27 CHARACTER MODNAM*12 28 29 SAVE 30 31 ! Variable Initializations 32 MODNAM = 'HIVALS' ! 1620 33 34 ! Check for High/Max Value Options - Skip Update If KAVE=1, 35 ! And No CALCS Were Made for the Current Hour 36 IF ( CALCS .OR. KAVE(IAVE).NE.1 ) THEN 37 IF ( INHI(IAVE).EQ.1 ) THEN ! 1620 38 DO ITYP = 1 , NUMTYP ! 1620 39 ! Update High Values for Each Receptor --- CALL NHIGH 40 CALL NHIGH ! 1620 41 ENDDO 42 ENDIF 43 IF ( MAXAVE(IAVE).EQ.1 ) THEN ! 1620 44 DO ITYP = 1 , NUMTYP ! 1620 45 ! Update Maximum Value Table for KAVE --- CALL MAXVALUE 46 CALL MAXVALUE ! 1620 47 ENDDO 48 ENDIF 49 ENDIF 50 ! Reset Counters for This Averaging Period 51 NUMHRS(IAVE) = 0 ! 1620 52 NUMCLM(IAVE) = 0 53 NUMMSG(IAVE) = 0 54 55 CONTINUE 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