1
2      SUBROUTINE EFFILL(ISDX,IQMAX)
3!***********************************************************************
4!                 EFFILL Module of the AMS/EPA Regulatory Model - AERMOD
5!
6!        PURPOSE: Fill Variable Emission Rate Array
7!
8!        PROGRAMMER:  Roger Brode, Jeff Wang
9!
10!        DATE:    March 2, 1992
11!
12!        INPUTS:  Input Runstream Image Parameters
13!
14!        OUTPUTS: Direction Specific Building Directions
15!
16!        CALLED FROM:   EMVARY
17!***********************************************************************
18
19!     Variable Declarations
20      USE MAIN1
21      IMPLICIT NONE
22      CHARACTER MODNAM*12
23
24      SAVE
25      INTEGER :: J , K , ISDX , IQMAX
26
27!     Variable Initializations
28      MODNAM = 'EFFILL'                                                 !      0
29
30      ISET = IWRK2(ISDX,4)
31
32      DO K = 5 , IFC
33!        Change Fields To Numbers
34         CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT)                       !      0
35!        Check The Numerical Field
36         IF ( IMIT.EQ.-1 ) THEN
37            CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD)                   !      0
38            GOTO 100
39         ENDIF
40         DO J = 1 , IMIT                                                !      0
41            ISET = ISET + 1                                             !      0
42!           Assign The Field
43            IF ( ISET.LE.IQMAX ) THEN
44               QFACT(ISET,ISDX) = FNUM                                  !      0
45!                 WRITE Error Message:  Negative Value for QFACT
46               IF ( FNUM.LT.0.0 )                                       &
47     &              CALL ERRHDL(PATH,MODNAM,'E','209',KEYWRD)
48            ELSE
49!              WRITE Error Message    ! Too Many QFACT Values Input
50               CALL ERRHDL(PATH,MODNAM,'E','231','QFACT')               !      0
51            ENDIF
52         ENDDO
53 100  ENDDO
54
55      IWRK2(ISDX,4) = ISET                                              !      0
56
57      CONTINUE
58      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