1 2 SUBROUTINE OEVENT 3 !*********************************************************************** 4 ! OEVENT Module of the AMS/EPA Regulatory Model - AERMOD - EVENT 5 ! 6 ! PURPOSE: To Process EVENT File Output Selections 7 ! 8 ! PROGRAMMER: Jeff Wang 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: Input Runstream Parameters 13 ! 14 ! OUTPUTS: Output Option Switches 15 ! 16 ! CALLED FROM: OUCARD 17 !*********************************************************************** 18 19 ! Variable Declarations 20 USE MAIN1 21 IMPLICIT NONE 22 CHARACTER MODNAM*12 23 24 SAVE 25 CHARACTER OPTION*6 26 27 ! Variable Initializations 28 MODNAM = 'OEVENT' ! 0 29 30 ! Check If Enough Fields 31 IF ( IFC.EQ.2 ) THEN 32 ! Error Message: No Parameters 33 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 34 GOTO 999 35 ELSEIF ( IFC.GT.3 ) THEN 36 ! Error Message: Too Many Fields 37 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 38 GOTO 999 39 ENDIF 40 41 ! Assign Variable of EVENTOUT 42 OPTION = FIELD(3) ! 0 43 IF ( OPTION.EQ.'SOCONT' ) THEN 44 SOCONT = .TRUE. ! 0 45 ELSEIF ( OPTION.EQ.'DETAIL' ) THEN 46 DETAIL = .TRUE. ! 0 47 ELSE 48 ! WRITE Error Message: Invalid Parameter Field 49 CALL ERRHDL(PATH,MODNAM,'E','203',KEYWRD) ! 0 50 ENDIF 51 52 999 CONTINUE ! 0 53 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