1 2 SUBROUTINE RESINI 3 !*********************************************************************** 4 ! RESINI Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: To Initialize Results Variables With Zeroes 7 ! 8 ! PROGRAMMER: Roger Brode, Jeff Wang 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! MODIFIED: Added results arrays for post-1997 PM10 processing 13 ! option. Also replaced labeled DO loop terminators 14 ! with unlabeled END DO statements. 15 ! R.W. Brode, PES, Inc., 11/19/98 16 ! 17 ! MODIFIED: Changed parameter for specifying the number of 18 ! high annual/period averages from NVAL to NHIANN. 19 ! R.W. Brode, PES, Inc., 4/3/98 20 ! 21 ! INPUTS: None 22 ! 23 ! OUTPUTS: Initialized Variables 24 ! 25 ! CALLED FROM: MAIN 26 !*********************************************************************** 27 28 ! Variable Declarations 29 USE MAIN1 30 IMPLICIT NONE 31 CHARACTER MODNAM*12 32 33 SAVE 34 INTEGER :: I , J , K , L , M 35 36 ! Variable Initializations 37 MODNAM = 'RESINI' ! 2 38 39 ! Initialize the Results Arrays 40 DO M = 1 , NUMTYP 41 HRVAL(M) = 0.0 ! 2 42 DO L = 1 , NUMAVE 43 NUMHRS(L) = 0 ! 4 44 NUMCLM(L) = 0 45 NUMMSG(L) = 0 46 DO K = 1 , NUMGRP 47 DO J = 1 , NUMREC ! 4 48 AVEVAL(J,K,L,M) = 0.0 ! 576 49 DO I = 1 , NHIVAL 50 HIVALU(J,I,K,L,M) = 0.0 ! 1152 51 NHIDAT(J,I,K,L,M) = 0 52 HCLMSG(J,I,K,L,M) = ' ' 53 HMAX(I,K,L,M) = 0.0 54 HMDATE(I,K,L,M) = 0 55 HMLOC(I,K,L,M) = 0 56 HMCLM(I,K,L,M) = ' ' 57 ENDDO 58 ENDDO 59 DO J = 1 , NMXVAL ! 4 60 RMXVAL(J,K,L,M) = 0.0 ! 200 61 MXDATE(J,K,L,M) = 0 62 MXLOCA(J,K,L,M) = 0 63 MCLMSG(J,K,L,M) = ' ' 64 ENDDO 65 ENDDO 66 ENDDO 67 ENDDO 68 IANHRS = 0 ! 2 69 IANCLM = 0 70 IANMSG = 0 71 72 ! The following were added as part of implementing the SCIM option 73 NSKIPTOT = 0 74 NSKIPWET = 0 75 NSKIPDRY = 0 76 NSWETCLM = 0 77 NSDRYCLM = 0 78 IANWET = 0 79 IWETCLM = 0 80 IWETMSG = 0 81 NWETHR = 0 82 83 DO K = 1 , NUMTYP 84 DO J = 1 , NUMGRP ! 2 85 DO I = 1 , NUMREC ! 2 86 ANNVAL(I,J,K) = 0.0 ! 288 87 SUMANN(I,J,K) = 0.0 88 ENDDO 89 DO I = 1 , NHIANN ! 2 90 AMXVAL(I,J,K) = 0.0 ! 20 91 IMXLOC(I,J,K) = 0 92 ENDDO 93 ENDDO 94 ENDDO 95 96 ! Initialize results array for post-1997 PM10 processing 97 DO J = 1 , NUMGRP ! 2 98 DO I = 1 , NUMREC ! 2 99 SUMH4H(I,J) = 0.0 ! 288 100 ENDDO 101 DO I = 1 , NMXPM ! 2 102 MXPMVAL(I,J) = 0.0 ! 20 103 MXPMLOC(I,J) = 0 104 ENDDO 105 ENDDO 106 107 ! Initialize results arrays for SEASONHR option 108 DO M = 1 , NUMTYP ! 2 109 DO L = 1 , 24 ! 2 110 DO K = 1 , 4 ! 48 111 DO J = 1 , NUMGRP ! 192 112 DO I = 1 , NUMREC ! 192 113 114 SHVALS(I,J,K,L,M) = 0.0 ! 27648 115 116 ENDDO 117 ENDDO 118 ENDDO 119 ENDDO 120 ENDDO 121 122 DO J = 1 , 24 ! 2 123 DO I = 1 , 4 ! 48 124 125 NSEAHR(I,J) = 0 ! 192 126 NSEACM(I,J) = 0 127 128 ENDDO 129 ENDDO 130 131 CONTINUE ! 2 132 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