1 2 SUBROUTINE FLAGDF 3 !*********************************************************************** 4 ! FLAGDF Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Process Default Flagpole Receptor Height Option 7 ! From Runstream Input Image 8 ! 9 ! PROGRAMMER: Roger Brode, Jeff Wang 10 ! 11 ! DATE: March 2, 1992 12 ! 13 ! INPUTS: Input Runstream Image Parameters 14 ! 15 ! OUTPUTS: Default Flagpole Receptor Heights 16 ! 17 ! ERROR HANDLING: Checks for Invalid Parameters; 18 ! Checks for No Parameters; 19 ! Checks for Too Many Parameters 20 ! 21 ! CALLED FROM: COCARD 22 !*********************************************************************** 23 24 ! Variable Declarations 25 USE MAIN1 26 IMPLICIT NONE 27 CHARACTER MODNAM*12 28 29 SAVE 30 INTEGER :: I 31 REAL :: ZFLG 32 33 ! Variable Initializations 34 MODNAM = 'FLAGDF' ! 0 35 FLGPOL = .TRUE. 36 37 IF ( IFC.EQ.3 ) THEN 38 CALL STONUM(FIELD(3),ILEN_FLD,ZFLG,IMIT) ! 0 39 ! Write Error Message:Invalid Numerical Field 40 IF ( IMIT.EQ.-1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) 41 IF ( ZFLG.GE.0.0 .AND. IMIT.EQ.1 ) THEN 42 DO I = 1 , NREC ! 0 43 AZFLAG(I) = ZFLG ! 0 44 ENDDO 45 ELSEIF ( ZFLG.LT.0.0 ) THEN 46 ! WRITE Error Message: Invalid Data. Positive Value Turns Negative 47 CALL ERRHDL(PATH,MODNAM,'E','209','ZFLAG') ! 0 48 ELSEIF ( IMIT.NE.1 ) THEN 49 ! WRITE Error Message: Field Number Not Meet Requirement 50 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 51 ELSE 52 ! WRITE Error Message: Invalid Parameter 53 CALL ERRHDL(PATH,MODNAM,'E','203',KEYWRD) ! 0 54 ENDIF 55 ELSEIF ( IFC.GT.3 ) THEN 56 ! WRITE Error Message: Too Many Parameters 57 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 58 ELSE 59 ! WRITE Error Message: No Parameters 60 CALL ERRHDL(PATH,MODNAM,'W','205','ZFLAG=0.') ! 0 61 ENDIF 62 63 CONTINUE ! 0 64 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