1 2 SUBROUTINE POLLID 3 !*********************************************************************** 4 ! POLLID Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Processes Pollutant Identification Option 7 ! 8 ! PROGRAMMER: Jeff Wang 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: Input Runstream Image Parameters 13 ! 14 ! OUTPUTS: Pollutant Identification Option 15 ! 16 ! CALLED FROM: COCARD 17 !*********************************************************************** 18 19 ! Variable Declarations 20 USE MAIN1 21 IMPLICIT NONE 22 CHARACTER MODNAM*12 23 24 SAVE 25 26 ! Variable Initializations 27 MODNAM = 'POLLID' ! 3 28 29 ! Check The Number Of The Fields 30 IF ( IFC.LE.2 ) THEN 31 ! Error Message: No Parameters 32 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 33 GOTO 999 34 ELSEIF ( IFC.GT.3 ) THEN 35 ! Error Message: Too Many Parameters 36 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 37 GOTO 999 38 ENDIF 39 40 POLLUT = FIELD(3) ! 3 41 42 999 CONTINUE ! 3 43 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