1 2 SUBROUTINE WSCATS 3 !*********************************************************************** 4 ! WSCATS Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: PROCESSES INPUT FOR WIND SPEED CATEGORIES 7 ! 8 ! PROGRAMMER: Roger Brode, Jeff Wang 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: Input Runstream Image Parameters 13 ! 14 ! OUTPUT: Array of Wind Speed Category Limits (5) 15 ! 16 ! CALLED FROM: MECARD 17 ! 18 ! ERROR HANDLING: Checks for No Parameters; 19 ! Checks for Too Many Parameters; 20 ! Checks for Invalid Numeric Fields; 21 ! Checks for Wind Speed Category Decreasing 22 !*********************************************************************** 23 24 ! Variable Declarations 25 USE MAIN1 26 IMPLICIT NONE 27 CHARACTER MODNAM*12 28 29 SAVE 30 INTEGER :: I , IWS 31 32 ! Variable Initializations 33 MODNAM = 'WSCATS' ! 0 34 35 IF ( IFC.EQ.7 ) THEN 36 ! Fill UCAT Array 37 DO I = 3 , IFC ! 0 38 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 39 IF ( IMIT.NE.1 ) THEN 40 ! WRITE Error Message ! Invalid Numeric Field Encountered 41 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 42 ELSEIF ( FNUM.LT.1.0 .OR. FNUM.GT.20.0 ) THEN 43 ! WRITE Error Message ! UCAT Out of Range 44 CALL ERRHDL(PATH,MODNAM,'E','380','UCAT') ! 0 45 ELSE 46 IWS = I - 2 ! 0 47 UCAT(IWS) = FNUM 48 ! WRITE Error Message ! Invalid UCAT Value, LE Previous 49 IF ( IWS.GT.1 .AND. UCAT(IWS).LE.UCAT(IWS-1) ) & 50 & CALL ERRHDL(PATH,MODNAM,'E','203','UCAT') 51 ENDIF 52 ENDDO 53 ELSEIF ( IFC.GT.7 ) THEN 54 ! WRITE Error Message ! Too Many Parameters 55 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 56 ELSE 57 ! WRITE Error Message ! No Parameters 58 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 59 ENDIF 60 61 CONTINUE ! 0 62 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