1 2 SUBROUTINE SETORD 3 !*********************************************************************** 4 ! SETORD Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: To Check Run Stream Setup Images for Proper 7 ! Order 8 ! 9 ! MODIFIED: To allow for skipping of TG pathway if no terrain 10 ! grid is used. Roger Brode, PES, Inc. - 11/7/94 11 ! 12 ! INPUTS: Input Runstream Card Image 13 ! 14 ! OUTPUTS: Status Settings and Error Messages 15 ! 16 ! CALLED FROM: SETUP 17 !*********************************************************************** 18 ! 19 ! Variable Declarations 20 USE MAIN1 21 IMPLICIT NONE 22 CHARACTER MODNAM*12 23 24 SAVE 25 26 ! Variable Initializations 27 MODNAM = 'SETORD' ! 369 28 29 IF ( KEYWRD.EQ.'STARTING' ) THEN 30 IF ( ISTART .OR. .NOT.IFINIS ) THEN ! 15 31 ! WRITE Error Message: Starting Out of Order 32 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 33 ELSEIF ( IPNUM.NE.IPPNUM+1 ) THEN 34 IF ( PATH.EQ.'OU' .AND. PPATH.EQ.'ME' ) THEN ! 3 35 ! TG Pathway has been omitted - Assume no TG file and no error 36 LTGRID = .FALSE. ! 3 37 ELSE 38 ! WRITE Error Message: Pathway Out of Order 39 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 40 ENDIF 41 ENDIF 42 ! Set Starting Indicator 43 ISTART = .TRUE. ! 15 44 ! Set Finished Indicator 45 IFINIS = .FALSE. 46 ELSEIF ( KEYWRD.EQ.'FINISHED' ) THEN 47 IF ( IFINIS .OR. .NOT.ISTART ) THEN ! 15 48 ! WRITE Error Message: Finished Out of Order 49 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 50 ELSEIF ( ISTART .AND. PATH.NE.PPATH ) THEN 51 ! WRITE Warning Message: Pathway Out of Order 52 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 53 ENDIF 54 ! Reset Starting Indicator 55 ISTART = .FALSE. ! 15 56 ! Set Finished Indicator 57 IFINIS = .TRUE. 58 ELSEIF ( .NOT.ISTART .OR. IFINIS ) THEN 59 ! WRITE Error Message: Starting or Finished Out of Order 60 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 61 ELSEIF ( ISTART .AND. PATH.NE.PPATH ) THEN 62 ! WRITE Warning Message: Pathway Out of Order 63 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 64 ENDIF 65 66 ! Save Current Path and Path Number as Previous Path and Number 67 PPATH = PATH ! 369 68 IPPNUM = IPNUM 69 70 CONTINUE 71 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