1 2 SUBROUTINE PRESOINC 3 !*********************************************************************** 4 ! PRESOINC Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: To preprocess receptor inputs to determine 7 ! storage requirements 8 ! 9 ! PROGRAMMER: Roger Brode 10 ! 11 ! DATE: September 24, 1996 12 ! 13 ! MODIFIED: To include allocation for SHRDOW emission factor 14 ! option. R.W. Brode, PES, Inc., 9/15/2000 15 ! 16 ! INPUTS: Pathway (RE) and Keyword 17 ! 18 ! OUTPUTS: Receptor Arrays 19 ! Receptor Setup Status Switches 20 ! 21 ! CALLED FROM: PREINCLUD 22 !*********************************************************************** 23 24 ! Variable Declarations 25 USE MAIN1 26 IMPLICIT NONE 27 CHARACTER MODNAM*12 28 29 SAVE 30 31 ! Variable Initializations 32 MODNAM = 'PRESOINC' ! 0 33 34 IF ( KEYWRD.EQ.'LOCATION' ) THEN 35 NSRC = NSRC + 1 ! 0 36 37 ELSEIF ( (KEYWRD.EQ.'PARTDIAM' .OR. KEYWRD.EQ.'MASSFRAX' .OR. & 38 & KEYWRD.EQ.'PARTDENS') ) THEN 39 NPDMAX = 20 ! 0 40 41 ELSEIF ( KEYWRD.EQ.'EMISFACT' ) THEN 42 IF ( FIELD(4).EQ.'SEASON' ) THEN ! 0 43 NQF = MAX(NQF,4) ! 0 44 ELSEIF ( FIELD(4).EQ.'MONTH' ) THEN 45 NQF = MAX(NQF,12) ! 0 46 ELSEIF ( FIELD(4).EQ.'HROFDY' ) THEN 47 NQF = MAX(NQF,24) ! 0 48 ELSEIF ( FIELD(4).EQ.'WSPEED' ) THEN 49 NQF = MAX(NQF,6) ! 0 50 ELSEIF ( FIELD(4).EQ.'SEASHR' ) THEN 51 NQF = MAX(NQF,96) ! 0 52 ELSEIF ( FIELD(4).EQ.'SHRDOW' ) THEN 53 NQF = MAX(NQF,288) ! 0 54 ELSEIF ( FIELD(4).EQ.'SHRDOW7' ) THEN 55 NQF = MAX(NQF,672) ! 0 56 ENDIF 57 58 ELSEIF ( KEYWRD.EQ.'SRCGROUP' ) THEN 59 IF ( FIELD(3).NE.PREVGRPID ) THEN ! 0 60 NGRP = NGRP + 1 ! 0 61 PREVGRPID = FIELD(3) 62 ENDIF 63 ENDIF 64 65 CONTINUE ! 0 66 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