1 2 SUBROUTINE OUTQA 3 !*********************************************************************** 4 ! OUTQA Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: To process OUtput Pathway card images QA Check 7 ! 8 ! PROGRAMMER: Jeff Wang, Roger Brode 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! MODIFIED: To check for EVALFILE option without EVALCART. 13 ! R.W. Brode, MACTEC/PES - 10/26/04 14 ! 15 ! MODIFIED: To Include TOXXFILE Option - 9/29/92 16 ! 17 ! INPUTS: Pathway (OU) and Keyword 18 ! 19 ! OUTPUTS: Output Messages 20 ! 21 ! CALLED FROM: OUCARD 22 !*********************************************************************** 23 24 ! Variable Declarations 25 USE MAIN1 26 IMPLICIT NONE 27 CHARACTER MODNAM*12 28 29 SAVE 30 INTEGER :: I , IVAL , IDCST1 31 LOGICAL OUTOPT 32 CHARACTER KEYMSG*8 , MSG1*3 33 34 ! Variable Initializations 35 MODNAM = 'OUTQA' ! 3 36 MSG1 = '-HR' 37 OUTOPT = .FALSE. 38 39 ! Check If Missing Mandatory Keyword 40 IF ( IOSTAT(1).EQ.0 ) CALL ERRHDL(PATH,MODNAM,'E','130','STARTING'& 41 & ) 42 43 ! Check For Lack of Any Output Option Cards 44 DO I = 2 , 8 45 IF ( IOSTAT(I).GT.0 ) OUTOPT = .TRUE. ! 21 46 ENDDO 47 ! WRITE Error Message - No Output Keywords and No PERIOD Averages 48 IF ( .NOT.OUTOPT .AND. .NOT.PERIOD .AND. .NOT.ANNUAL ) & 49 & CALL ERRHDL(PATH,MODNAM,'E','190',' ') 50 51 DO IAVE = 1 , NUMAVE 52 IDCST1 = 0 ! 6 53 DO IVAL = 1 , NVAL 54 IF ( NHIAVE(IVAL,IAVE).EQ.1 ) IDCST1 = 1 ! 12 55 ENDDO 56 IF ( IDCST1.EQ.0 .AND. MAXAVE(IAVE).EQ.0 .AND. IDYTAB(IAVE) & 57 & .EQ.0 ) THEN 58 WRITE (KEYMSG,'(I2.2,A3)') KAVE(IAVE) , MSG1 ! 0 59 CALL ERRHDL(PATH,MODNAM,'W','540',KEYMSG) 60 ENDIF 61 ENDDO 62 63 ! Check for DAYTABLE Option With SAVEFILE or INITFILE Options 64 ! WRITE Warning Message: DAYTABLE Results Overwritten on Re-start 65 IF ( DAYTAB .AND. (RSTSAV .OR. RSTINP) ) & 66 & CALL ERRHDL(PATH,MODNAM,'W','195','DAYTABLE') 67 ! Check for TOXXFILE Option With SAVEFILE or INITFILE Options 68 ! WRITE Error Message: Incompatible Options 69 IF ( TXFILE .AND. (RSTSAV .OR. RSTINP) ) & 70 & CALL ERRHDL(PATH,MODNAM,'E','195','TOXXFILE') 71 72 ! Check for post-1997 PM10 processing with EVENTFIL and no MAXIFILE 73 IF ( PM10AVE .AND. EVENTS .AND. .NOT.MXFILE ) THEN 74 ! Write Warning Message: EVENTFIL option not compatible 75 ! with post-1997 PM10 processing without MAXIFILE option 76 CALL ERRHDL(PATH,MODNAM,'W','197','EVENTFIL') ! 0 77 EVENTS = .FALSE. 78 ENDIF 79 80 ! Check for EVALFILE Option without EVALCART Inputs 81 IF ( IOSTAT(11).GT.0 .AND. NUMARC.EQ.0 ) & 82 & CALL ERRHDL(PATH,MODNAM,'E','256','NUMARC=0') 83 84 CONTINUE 85 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