1 2 SUBROUTINE EDECAY 3 !*********************************************************************** 4 ! EDECAY Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Processes Exponential Decay Options 7 ! 8 ! PROGRAMMER: Jeff Wang 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: Input Runstream Image Parameters 13 ! 14 ! OUTPUTS: Exponental Decay Options 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 = 'EDECAY' ! 0 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 ! Start To Get Decay Coef. 41 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 42 ! Check The Numerical Field 43 IF ( IMIT.NE.1 ) THEN 44 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 45 GOTO 999 46 ENDIF 47 48 IF ( KEYWRD.EQ.'HALFLIFE' ) THEN ! 0 49 HAFLIF = FNUM ! 0 50 ! Calculate Decay Coef. by Halflife 51 DECOEF = 0.693/HAFLIF 52 ELSEIF ( KEYWRD.EQ.'DCAYCOEF' ) THEN 53 DECOEF = FNUM ! 0 54 ENDIF 55 56 ! Check for Urban Regulatory Default for SO2 57 IF ( DFAULT .AND. URBAN .AND. POLLUT.EQ.'SO2' ) THEN ! 0 58 ! WRITE Warning Message: Attempt to Override Regulatory Default 59 IF ( DECOEF.NE.4.81E-5 ) & 60 & CALL ERRHDL(PATH,MODNAM,'W','206','DCAYCOEF') 61 DECOEF = 4.81E-5 62 ELSEIF ( DFAULT ) THEN 63 ! WRITE Warning Message: Attempt to Override Regulatory Default 64 IF ( DECOEF.NE.0.0 ) & 65 & CALL ERRHDL(PATH,MODNAM,'W','206','DCAYCOEF') 66 DECOEF = 0.0 67 ENDIF 68 69 999 CONTINUE ! 0 70 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