1 2 SUBROUTINE RUNNOT 3 !*********************************************************************** 4 ! RUNNOT Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Process Option To RUN Or NOT From Runstream Input Image 7 ! 8 ! PROGRAMMER: Roger Brode, Jeff Wang 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: Input Runstream Image Parameters 13 ! 14 ! OUTPUTS: Model RUN Logical Switch 15 ! 16 ! ERROR HANDLING: Checks for Invalid Parameters; 17 ! Checks for No Parameters; 18 ! Checks for Too Many Parameters 19 ! 20 ! CALLED FROM: COCARD 21 !*********************************************************************** 22 23 ! Variable Declarations 24 USE MAIN1 25 IMPLICIT NONE 26 CHARACTER MODNAM*12 27 28 SAVE 29 30 ! Variable Initializations 31 MODNAM = 'RUNNOT' ! 3 32 33 IF ( IFC.EQ.3 ) THEN 34 IF ( FIELD(3).EQ.'RUN' ) THEN ! 3 35 RUN = .TRUE. ! 3 36 ELSEIF ( FIELD(3).EQ.'NOT' ) THEN 37 RUN = .FALSE. ! 0 38 ELSE 39 ! WRITE Error Message ! Invalid Parameter 40 CALL ERRHDL(PATH,MODNAM,'E','203',KEYWRD) ! 0 41 ENDIF 42 ELSEIF ( IFC.GT.3 ) THEN 43 ! WRITE Error Message ! Too Many Parameters 44 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 45 ELSE 46 ! WRITE Error Message ! No Parameters 47 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 48 ENDIF 49 50 CONTINUE ! 3 51 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