1 2 SUBROUTINE MSETFG(INDT,J) 3 !*********************************************************************** 4 ! MSETFG Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Set Calm and Missing Flag Of the Max Result 7 ! 8 ! PROGRAMMER: Jeff Wang 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: Maximum Value Table Options 13 ! Array of CONC or DEPOS Averages 14 ! Averaging Period 15 ! 16 ! OUTPUTS: Updated Maximum Value Flag Array 17 ! 18 ! CALLED FROM: MAXVALUE 19 !*********************************************************************** 20 21 ! Variable Declarations 22 USE MAIN1 23 IMPLICIT NONE 24 CHARACTER MODNAM*12 25 26 SAVE 27 INTEGER :: J , INDT 28 29 ! Variable Initializations 30 MODNAM = 'MSETFG' ! 790 31 32 IF ( INDT.EQ.0 ) THEN 33 ! Set Indicator Of Calm and Missing 34 IF ( NUMCLM(IAVE).NE.0 .AND. NUMMSG(IAVE).EQ.0 ) THEN ! 764 35 MCLMSG(J+1,IGRP,IAVE,ITYP) = 'c' ! 196 36 ELSEIF ( NUMCLM(IAVE).EQ.0 .AND. NUMMSG(IAVE).NE.0 ) THEN 37 MCLMSG(J+1,IGRP,IAVE,ITYP) = 'm' ! 288 38 ELSEIF ( NUMCLM(IAVE).NE.0 .AND. NUMMSG(IAVE).NE.0 ) THEN 39 MCLMSG(J+1,IGRP,IAVE,ITYP) = 'b' ! 280 40 ENDIF 41 ELSEIF ( INDT.EQ.1 ) THEN 42 ! Set Indicator Of Calm and Missing 43 IF ( NUMCLM(IAVE).NE.0 .AND. NUMMSG(IAVE).EQ.0 ) THEN ! 26 44 MCLMSG(1,IGRP,IAVE,ITYP) = 'c' ! 4 45 ELSEIF ( NUMCLM(IAVE).EQ.0 .AND. NUMMSG(IAVE).NE.0 ) THEN 46 MCLMSG(1,IGRP,IAVE,ITYP) = 'm' ! 16 47 ELSEIF ( NUMCLM(IAVE).NE.0 .AND. NUMMSG(IAVE).NE.0 ) THEN 48 MCLMSG(1,IGRP,IAVE,ITYP) = 'b' ! 6 49 ENDIF 50 ENDIF 51 52 CONTINUE ! 790 53 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