1 2 SUBROUTINE COUNIT 3 !*********************************************************************** 4 ! COUNIT Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Processes Emission Rate Unit Conversion Factors 7 ! for CONCentration Values 8 ! 9 ! PROGRAMMER: Roger Brode 10 ! 11 ! DATE: March 2, 1992 12 ! 13 ! INPUTS: Input Runstream Image Parameters 14 ! 15 ! OUTPUTS: Emission Rate Unit Conversion Factors 16 ! 17 ! CALLED FROM: SOCARD 18 !*********************************************************************** 19 20 ! Variable Declarations 21 USE MAIN1 22 IMPLICIT NONE 23 CHARACTER MODNAM*12 24 25 SAVE 26 27 ! Variable Initializations 28 MODNAM = 'COUNIT' ! 0 29 30 ! Check The Number Of The Fields 31 IF ( IFC.LE.2 ) THEN 32 ! Error Message: No Parameters 33 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 34 GOTO 999 35 ELSEIF ( IFC.LT.5 ) THEN 36 ! Error Message: Not Enough Parameters 37 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 38 GOTO 999 39 ELSEIF ( IFC.GT.5 ) THEN 40 ! Error Message: Too Many Parameters 41 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 42 GOTO 999 43 ENDIF 44 45 ! Fetch Each Field 46 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 47 ! Check The Numerical Field 48 IF ( IMIT.NE.1 ) THEN 49 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 50 GOTO 999 51 ENDIF 52 53 EMIFAC(1) = FNUM ! 0 54 EMILBL(1) = FIELD(4) 55 OUTLBL(1) = FIELD(5) 56 PERLBL(1) = FIELD(5) 57 58 999 CONTINUE ! 0 59 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