AERMOD.f90#717 WRITE (IOUNIT,9111) ! 1 #725 WRITE (IOUNIT,9112) #730 WRITE (IOUNIT,9113) ! 2 #824 WRITE (IOUNIT,9114) #832 WRITE (IOUNIT,9115) ! 1 #837 WRITE (IOUNIT,9116) ! 2 CHKREC.f90#83 WRITE (IOUNIT,9002) #85 WRITE (IOUNIT,9003) SRCID(ISRC) , AXR(IREC) , AYR(IREC) ,& #126 WRITE (IOUNIT,9002) #128 WRITE (IOUNIT,9004) SRCID(ISRC) , AXR(IREC) , & DEPVAR.f90#36 INTEGER :: IGRAV , KST , IOUNIT , KURDAT EV_SETUP.f90#92 WRITE (IOUNIT,9200) RUNST1(1:11) ! 0 #95 WRITE (IOUNIT,9210) RUNST1(1:12) ! 0 #98 WRITE (IOUNIT,9220) RUNST1(1:13) ! 0 #101 WRITE (IOUNIT,9230) RUNST1(1:14) ! 0 #106 WRITE (IOUNIT,ECFRM) RUNST1 ! 0 FILOPN.f90#44 IOUNIT = 6 HEADER.f90#58 WRITE (IOUNIT,9028) VERSN , TITLE1 , RUNDAT ! 52 #62 WRITE (IOUNIT,9029) TITLE2 , RUNTIM #64 WRITE (IOUNIT,9030) IPAGE #66 WRITE (IOUNIT,9040) (MODOPS(I),I=1,18) MAIN1.f90#158 INTEGER :: INUNIT , IOUNIT , MFUNIT , MPUNIT , IERUNT , IERWRT , & #888 DATA INUNIT/7/ , IOUNIT/8/ , MFUNIT/19/ , MPUNIT/21/ , & METDAT.f90#45 WRITE (IOUNIT,9011) #51 WRITE (IOUNIT,9016) METINP , PROINP , METFRM , PROFRM #54 WRITE (IOUNIT,9020) IDSURF , IDUAIR , SFNAME , UANAME , ISYEAR , & #59 WRITE (IOUNIT,9024) #62 WRITE (IOUNIT,99025) ! 0 #69 WRITE (IOUNIT,9025) ! 2 #87 WRITE (IOUNIT,99026) IYEAR , IMONTH , IDAY , IHOUR , & #94 WRITE (IOUNIT,9026) IYEAR , IMONTH , IDAY , JDAY , & #104 WRITE (IOUNIT,99026) IYEAR , IMONTH , IDAY , IHOUR , & #111 WRITE (IOUNIT,9026) IYEAR , IMONTH , IDAY , IJDAY , & #175 WRITE (IOUNIT,9034) #177 WRITE (IOUNIT,9035) #181 WRITE (IOUNIT,9036) KYEAR , KMONTH , KDAY , KHOUR , PFLHT(I) , & #187 WRITE (IOUNIT,9037) ! 2 METDET.f90#32 WRITE (IOUNIT,9025) #40 WRITE (IOUNIT,9026) IYEAR , IMONTH , IDAY , IHOUR , SFCHF , & OCALC.f90#134 WRITE (IOUNIT,*) ! 0 #135 WRITE (IOUNIT,*) #136 WRITE (IOUNIT,*) 'DETAIL INFORMATION ON THE OPENPIT SOURCE:' #137 WRITE (IOUNIT,*) #138 WRITE (IOUNIT,*) #151 WRITE (IOUNIT,*) 'OPENPIT PARTICLE CHARACTERISTICS:' ! 0 #152 WRITE (IOUNIT,*) '-------------------------------' #153 WRITE (IOUNIT,*) #154 WRITE (IOUNIT,8000) (EFRAC(II),II=1,NPD) #156 WRITE (IOUNIT,8200) (QPART(II),II=1,NPD) #158 WRITE (IOUNIT,8400) (PHI(II),II=1,NPD) #160 WRITE (IOUNIT,*) 'EMISSION RATE OF EFFECTIVE PIT= ' , QEFF #161 WRITE (IOUNIT,*) PCALC.f90#504 WRITE (IOUNIT,*) 'YYMMDDHH: ' , KURDAT , & #507 WRITE (IOUNIT,*) ' GAMFACT = ' , GAMFACT #508 WRITE (IOUNIT,*) ' AERVAL = ' , AERVAL(ITYP) #509 WRITE (IOUNIT,*) ' PRMVAL = ' , PRMVAL(ITYP) #510 WRITE (IOUNIT,*) ' HRVAL = ' , HRVAL(ITYP) #511 WRITE (IOUNIT,*) ' ' PITEFF.f90#51 WRITE (IOUNIT,*) 'ACTUAL PIT COORDINATES:' ! 0 #52 WRITE (IOUNIT,*) '----------------' #53 WRITE (IOUNIT,*) 'SYSTEM X1 Y1 X2 Y2' , & #55 WRITE (IOUNIT,*) '-------- -------- -------- -------- ' , & #58 WRITE (IOUNIT,8000) (XVERT(II),YVERT(II),II=1,NVERT) #59 WRITE (IOUNIT,8100) (XTEMP(II),YTEMP(II),II=1,NVERT) #60 WRITE (IOUNIT,*) #61 WRITE (IOUNIT,*) ' UPWIND VERTEX OF THE PIT= ' , IUPWND #62 WRITE (IOUNIT,*) ' WIND DIRECTION W.R.T. PIT LONG AXIS= ' , & #64 WRITE (IOUNIT,*) ' ALONGWIND LENGTH OF THE PIT= ' , PITL #65 WRITE (IOUNIT,*) ' RELATIVE DEPTH OF THE PIT= ' , PDREL #66 WRITE (IOUNIT,*) #125 WRITE (IOUNIT,*) 'EFFECTIVE PIT COORDINATES:' ! 0 #126 WRITE (IOUNIT,*) '----------------' #127 WRITE (IOUNIT,*) 'SYSTEM X1 Y1 X2 Y2' , & #129 WRITE (IOUNIT,*) '-------- -------- -------- -------- ' , & #132 WRITE (IOUNIT,8000) (XTEMP(II),YTEMP(II),II=1,NVERT) #133 WRITE (IOUNIT,8100) (XVERT(II),YVERT(II),II=1,NVERT) #134 WRITE (IOUNIT,*) #135 WRITE (IOUNIT,*) 'EFFECTIVE PIT LENGTH = ' , EFFLEN #136 WRITE (IOUNIT,*) 'EFFECTIVE PIT WIDTH = ' , EFFWID #137 WRITE (IOUNIT,*) 'EFFECTIVE PIT ORIENTATION RELATIVE' , & #139 WRITE (IOUNIT,*) 'FRACTIONAL SIZE OF THE EFFECTIVE PIT AREA= ' & PRMCALC.f90#120 WRITE (IOUNIT,*) 'PRIME Effective Parameters: ' ! 0 #121 WRITE (IOUNIT,*) 'ZLO, ZHI = ' , ZLO , ZHI #122 WRITE (IOUNIT,*) 'SWEFF, SVEFF = ' , SWEFF , SVEFF #123 WRITE (IOUNIT,*) 'UEFF, TGEFF = ' , UEFF , TGEFF PRMDELH.f90#73 IF ( DEBUG ) CALL WAKE_DBG(IOUNIT,MXNTR,XTR,YTR,ZTR,RTR, & PRTANN.f90#74 WRITE (IOUNIT,9032) PERCHR , IANHRS , & #78 WRITE (IOUNIT,9033) PERCHR , NUMYRS , & #82 WRITE (IOUNIT,9037) NTID(I) , NTTYP(I) ! 2 #86 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #90 WRITE (IOUNIT,9016) ! 0 #91 WRITE (IOUNIT,9017) & #94 WRITE (IOUNIT,9018) ! 2 #95 WRITE (IOUNIT,9019) & #100 WRITE (IOUNIT,9016) ! 0 #101 WRITE (IOUNIT,9017) & #104 WRITE (IOUNIT,9018) ! 0 #105 WRITE (IOUNIT,9019) & #109 WRITE (IOUNIT,9010) ! 2 #121 WRITE (IOUNIT,9013) YCOVAL , & #125 WRITE (IOUNIT,9013) YCOVAL , & #140 WRITE (IOUNIT,9013) YCOVAL , & #144 WRITE (IOUNIT,9013) YCOVAL , & #164 WRITE (IOUNIT,9032) PERCHR , IANHRS , & #168 WRITE (IOUNIT,9033) PERCHR , NUMYRS , & #172 WRITE (IOUNIT,9043) ! 0 #176 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #178 WRITE (IOUNIT,9048) CHIDEP(3,ITYP) , CHIDEP(3,ITYP) #189 WRITE (IOUNIT,9090) BUF132 #195 WRITE (IOUNIT,9090) BUF132 ! 0 #214 WRITE (IOUNIT,9032) PERCHR , IANHRS , & #218 WRITE (IOUNIT,9033) PERCHR , NUMYRS , & #222 WRITE (IOUNIT,9044) ! 0 #225 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #227 WRITE (IOUNIT,9049) CHIDEP(3,ITYP) , CHIDEP(3,ITYP) #240 WRITE (IOUNIT,9090) BUF132 #246 WRITE (IOUNIT,9090) BUF132 ! 0 #262 WRITE (IOUNIT,9032) PERCHR , IANHRS , & #266 WRITE (IOUNIT,9033) PERCHR , NUMYRS , & #270 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #273 WRITE (IOUNIT,9082) SRCID(ISRF) , SRCTYP(ISRF) , & PRTDAY.f90#67 WRITE (IOUNIT,9032) CHRAVE(IAVE) , & #71 WRITE (IOUNIT,9037) NTID(I) , NTTYP(I) #75 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #79 WRITE (IOUNIT,9016) ! 0 #80 WRITE (IOUNIT,9017) & #83 WRITE (IOUNIT,9018) ! 0 #84 WRITE (IOUNIT,9019) & #89 WRITE (IOUNIT,9016) ! 0 #90 WRITE (IOUNIT,9017) & #93 WRITE (IOUNIT,9018) ! 0 #94 WRITE (IOUNIT,9019) & #98 WRITE (IOUNIT,9010) ! 0 #110 WRITE (IOUNIT,9013) YCOVAL , & #114 WRITE (IOUNIT,9013) YCOVAL , & #129 WRITE (IOUNIT,9013) YCOVAL , & #133 WRITE (IOUNIT,9013) YCOVAL , & #153 WRITE (IOUNIT,9032) CHRAVE(IAVE) , & #156 WRITE (IOUNIT,9043) #160 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #162 WRITE (IOUNIT,9048) CHIDEP(3,ITYP) , CHIDEP(3,ITYP) #173 WRITE (IOUNIT,9090) BUF132 #179 WRITE (IOUNIT,9090) BUF132 ! 0 #197 WRITE (IOUNIT,9032) CHRAVE(IAVE) , & #200 WRITE (IOUNIT,9044) #203 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #205 WRITE (IOUNIT,9049) CHIDEP(3,ITYP) , CHIDEP(3,ITYP) #218 WRITE (IOUNIT,9090) BUF132 #224 WRITE (IOUNIT,9090) BUF132 ! 0 #239 WRITE (IOUNIT,9032) CHRAVE(IAVE) , & #242 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #245 WRITE (IOUNIT,9082) SRCID(ISRF) , SRCTYP(ISRF) , & PRTDET.f90#52 WRITE (IOUNIT,9058) EVNAME(IEVENT) , EVAPER(IEVENT) , & #63 WRITE (IOUNIT,9068) EVGRP(IEVENT) , & #65 WRITE (IOUNIT,9066) #69 WRITE (IOUNIT,9062) I , GRPVAL(I) , & #72 WRITE (IOUNIT,9064) GRPAVE , (WAVEV(I),I=1+NSPP*(N-1),INGRP)! 0 #75 WRITE (IOUNIT,9068) EVGRP(IEVENT) , & #77 WRITE (IOUNIT,9066) #81 WRITE (IOUNIT,9062) I , GRPVAL(I) , & #84 WRITE (IOUNIT,9064) GRPAVE , & PRTMAX.f90#71 WRITE (IOUNIT,9032) IMXVAL(IAVE) , CHRAVE(IAVE) , & #75 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #77 WRITE (IOUNIT,1) CHIDEP(3,ITYP) , CHIDEP(3,ITYP) #104 WRITE (IOUNIT,2) J , RMXVAL(J,IGRP,IAVE,ITYP) , & #131 WRITE (IOUNIT,3) J , RMXVAL(J,IGRP,IAVE,ITYP) , & #149 WRITE (IOUNIT,9032) IMXVAL(IAVE) , CHRAVE(IAVE) , & #152 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #154 WRITE (IOUNIT,1) CHIDEP(3,ITYP) , CHIDEP(3,ITYP) #155 WRITE (IOUNIT,3) J , RMXVAL(J,IGRP,IAVE,ITYP) , & #162 WRITE (IOUNIT,9050) ! 4 PRTMET.f90#38 WRITE (IOUNIT,9037) (IPROC(I),I=1,366) #44 WRITE (IOUNIT,9038) ISYR , ISMN , ISDY , ISHR , IEYR , IEMN , & #51 WRITE (IOUNIT,9039) ! 3 #56 WRITE (IOUNIT,9001) (UCAT(I),I=1,5) PRTOPT.f90#51 WRITE (IOUNIT,9041) #55 IF ( CONC ) WRITE (IOUNIT,*) & #58 IF ( DEPOS ) WRITE (IOUNIT,*) & #61 IF ( DDEP ) WRITE (IOUNIT,*) & #64 IF ( WDEP ) WRITE (IOUNIT,*) & #68 WRITE (IOUNIT,9099) #69 WRITE (IOUNIT,*) ' -- DEPOSITION LOGIC --' #71 WRITE (IOUNIT,*) '**Model Uses DRY DEPLETION. DDPLETE = ' , & #74 WRITE (IOUNIT,*) '**Model Uses NO DRY DEPLETION. DDPLETE = ' ,& #78 WRITE (IOUNIT,*) '**Model Uses WET DEPLETION. WDPLETE = ' , & #81 WRITE (IOUNIT,*) '**Model Uses NO WET DEPLETION. WDPLETE = ' ,& #85 WRITE (IOUNIT,*) & #89 WRITE (IOUNIT,*) & #93 WRITE (IOUNIT,*) '**NO GAS DRY DEPOSITION Data Provided. ' ! 3 #96 WRITE (IOUNIT,9099) ! 3 #98 WRITE (IOUNIT,*) '**Model Uses RURAL Dispersion Only.' ! 3 #100 WRITE (IOUNIT,9039) NUMURB ! 0 #103 WRITE (IOUNIT,9040) URBPOP , URBZ0 #108 WRITE (IOUNIT,9099) ! 3 #110 WRITE (IOUNIT,*) '**Model Uses Regulatory DEFAULT Options:' ! 0 #111 WRITE (IOUNIT,*) ' 1. Stack-tip Downwash.' #112 WRITE (IOUNIT,*) ' 2. Model Accounts for ELEVated ' ,& #114 WRITE (IOUNIT,*) ' 3. Use Calms Processing ' , & #116 WRITE (IOUNIT,*) ' 4. Use Missing Data ' , & #118 WRITE (IOUNIT,*) ' 5. "Upper Bound" Values ' , & #121 WRITE (IOUNIT,*) ' 6. Half-life of 4 hrs for' , & #124 WRITE (IOUNIT,*) ' 6. No Exponential Decay for' , & #127 WRITE (IOUNIT,*) ' 6. No Exponential Decay' ! 0 #130 WRITE (IOUNIT,*) '**Model Uses User-Specified Options:' ! 3 #132 WRITE (IOUNIT,*) ' 1. Not Use Stack-tip ' , & #135 WRITE (IOUNIT,*) ' 1. Stack-tip Downwash.' ! 3 #138 WRITE (IOUNIT,*) ' 2. Model Assumes Receptors on ' , & #141 WRITE (IOUNIT,*) ' 2. Model Accounts for ELEVated ' ,& #145 WRITE (IOUNIT,*) ' 3. Plume Volume Molar Ratio ' , & #147 WRITE (IOUNIT,*) ' with an Equilibrium NO2/NOx ' ,& #150 WRITE (IOUNIT,*) ' 3. Ozone Limiting Method (OLM) ' ,& #153 WRITE (IOUNIT,*) ' 3. Full Conversion Assumed for ' ,& #159 WRITE (IOUNIT,9099) ! 0 #160 WRITE (IOUNIT,*) '**Other Options Specified:' #162 IF ( NOCHKD ) WRITE (IOUNIT,*) & #166 IF ( NOWARN ) WRITE (IOUNIT,*) & #170 IF ( TOXICS ) WRITE (IOUNIT,*) & #173 IF ( SCIM ) WRITE (IOUNIT,*) ' SCIM - Uses Sampled' , & #175 IF ( SCREEN ) WRITE (IOUNIT,*) & #180 WRITE (IOUNIT,9099) #182 WRITE (IOUNIT,*) '**Model Accepts FLAGPOLE Receptor Heights.' ! 0 #184 WRITE (IOUNIT,*) & #189 WRITE (IOUNIT,9099) ! 3 #192 WRITE (IOUNIT,9042) NUMAVE , (CHRAVE(I),I=1,NUMAVE) ! 3 #193 WRITE (IOUNIT,9043) #196 WRITE (IOUNIT,9045) ! 0 #201 WRITE (IOUNIT,9042) NUMAVE , (CHRAVE(I),I=1,NUMAVE) ! 0 #202 WRITE (IOUNIT,9143) #205 WRITE (IOUNIT,9145) ! 0 #209 WRITE (IOUNIT,9042) NUMAVE , (CHRAVE(I),I=1,NUMAVE) ! 0 #213 WRITE (IOUNIT,9099) ! 3 #215 WRITE (IOUNIT,9046) NUMSRC , NUMGRP , NUMEVE ! 0 #219 WRITE (IOUNIT,9044) NUMSRC , NUMGRP , NUMREC ! 3 #225 WRITE (IOUNIT,9099) ! 3 #226 WRITE (IOUNIT,9048) POLLUT #230 WRITE (IOUNIT,9099) #232 WRITE (IOUNIT,*) '**Model Set To Continue RUNning After the ' ,& #235 WRITE (IOUNIT,*) '**Model Will NOT Run After the ' , & #240 WRITE (IOUNIT,9099) ! 3 #241 WRITE (IOUNIT,9070) #245 WRITE (IOUNIT,9071) ! 3 #250 WRITE (IOUNIT,9171) ! 0 #256 WRITE (IOUNIT,9072) ! 3 #263 WRITE (IOUNIT,9073) ! 3 #270 WRITE (IOUNIT,9074) ! 0 #278 WRITE (IOUNIT,9075) ! 0 #284 WRITE (IOUNIT,9076) ! 0 #291 WRITE (IOUNIT,9077) ! 0 #297 WRITE (IOUNIT,9078) ! 0 #304 WRITE (IOUNIT,99071) ! 0 #311 WRITE (IOUNIT,99072) ! 0 #317 WRITE (IOUNIT,99073) ! 0 #325 WRITE (IOUNIT,9099) ! 3 #326 WRITE (IOUNIT,9079) CHIDEP(3,1) #334 WRITE (IOUNIT,9099) ! 3 #335 WRITE (IOUNIT,9050) ZBASE , DECOEF , ROTANG #339 WRITE (IOUNIT,9055) EMILBL(1) , EMIFAC(1) , OUTLBL(1) #343 WRITE (IOUNIT,9056) USERVD ! 0 #359 WRITE (IOUNIT,9099) #360 WRITE (IOUNIT,9057) STORE #366 WRITE (IOUNIT,9099) ! 3 #369 WRITE (IOUNIT,9080) INPFIL(1:ILMAX) , OUTFIL(1:ILMAX) ! 0 #373 IF ( ERRLST ) WRITE (IOUNIT,9081) MSGFIL(1:ILMAX) ! 3 #375 IF ( EVENTS ) WRITE (IOUNIT,9082) EVFILE(1:ILMAX) #377 IF ( RSTSAV ) WRITE (IOUNIT,9083) SAVFIL(1:ILMAX) #379 IF ( RSTINP ) WRITE (IOUNIT,9084) INIFIL(1:ILMAX) #383 WRITE (IOUNIT,*) '**This Run is Part of a Multi-year Run.' ! 0 #384 WRITE (IOUNIT,*) ' NOTE: PERIOD Results Are for Current ' , & #386 WRITE (IOUNIT,*) ' Short Term Results Are Cumulative' ,& PRTPM10.f90#72 WRITE (IOUNIT,9032) (CHIDEP(II,ITYP),II=1,6) , & #75 WRITE (IOUNIT,9037) NTID(I) , NTTYP(I) #79 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #83 WRITE (IOUNIT,9016) ! 0 #84 WRITE (IOUNIT,9017) & #87 WRITE (IOUNIT,9018) ! 0 #88 WRITE (IOUNIT,9019) & #93 WRITE (IOUNIT,9016) ! 0 #94 WRITE (IOUNIT,9017) & #97 WRITE (IOUNIT,9018) ! 0 #98 WRITE (IOUNIT,9019) & #102 WRITE (IOUNIT,9010) ! 0 #114 WRITE (IOUNIT,9013) YCOVAL , & #118 WRITE (IOUNIT,9013) YCOVAL , & #133 WRITE (IOUNIT,9013) YCOVAL , & #137 WRITE (IOUNIT,9013) YCOVAL , & #156 WRITE (IOUNIT,9032) (CHIDEP(II,ITYP),II=1,6) , & #159 WRITE (IOUNIT,9043) #163 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #165 WRITE (IOUNIT,9048) CHIDEP(3,ITYP) , CHIDEP(3,ITYP) #176 WRITE (IOUNIT,9090) BUF132 #182 WRITE (IOUNIT,9090) BUF132 ! 0 #200 WRITE (IOUNIT,9032) (CHIDEP(II,ITYP),II=1,6) , & #203 WRITE (IOUNIT,9044) #206 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #208 WRITE (IOUNIT,9049) CHIDEP(3,ITYP) , CHIDEP(3,ITYP) #221 WRITE (IOUNIT,9090) BUF132 #227 WRITE (IOUNIT,9090) BUF132 ! 0 #242 WRITE (IOUNIT,9032) (CHIDEP(II,ITYP),II=1,6) , & #245 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #248 WRITE (IOUNIT,9082) SRCID(ISRF) , SRCTYP(ISRF) , & PRTPM10SUM.f90#47 WRITE (IOUNIT,9021) PERCHR , IANHRS ! 0 #51 WRITE (IOUNIT,9023) PERCHR , NUMYRS ! 0 #55 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #57 WRITE (IOUNIT,9022) CHIDEP(1,ITYP) , CHIDEP(2,ITYP) , & #63 WRITE (IOUNIT,1012) GRPID(IGRP) , RANK(IVAL) , & #75 WRITE (IOUNIT,1014) GRPID(IGRP) , RANK(IVAL) , & #84 WRITE (IOUNIT,1015) RANK(IVAL) , & #88 WRITE (IOUNIT,1013) RANK(IVAL) , & #98 WRITE (IOUNIT,9050) ! 0 #107 WRITE (IOUNIT,9091) NUMYRS #111 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #113 WRITE (IOUNIT,9022) CHIDEP(1,ITYP) , CHIDEP(2,ITYP) , & #119 WRITE (IOUNIT,1012) GRPID(IGRP) , RANK(IVAL) , & #129 WRITE (IOUNIT,1014) GRPID(IGRP) , RANK(IVAL) , & #137 WRITE (IOUNIT,1015) RANK(IVAL) , MXPMVAL(IVAL,IGRP) , & #141 WRITE (IOUNIT,1013) RANK(IVAL) , MXPMVAL(IVAL,IGRP) , & #150 WRITE (IOUNIT,9050) ! 0 PRTREC.f90#43 WRITE (IOUNIT,9034) #45 WRITE (IOUNIT,9037) NTID(I) , NTTYP(I) #47 WRITE (IOUNIT,9038) ! 0 #51 WRITE (IOUNIT,9036) XORIG(I) , YORIG(I) ! 3 #55 WRITE (IOUNIT,9039) #59 WRITE (IOUNIT,9040) (XCOORD(J,I),J=1,NUMXPT(I)) ! 3 #61 WRITE (IOUNIT,9041) ! 0 #65 WRITE (IOUNIT,9042) ! 3 #69 WRITE (IOUNIT,9040) (YCOORD(J,I),J=1,NUMYPT(I)) ! 3 #83 WRITE (IOUNIT,9037) NTID(I) , NTTYP(I) #84 WRITE (IOUNIT,9011) #89 WRITE (IOUNIT,9016) ! 0 #90 WRITE (IOUNIT,9017) & #93 WRITE (IOUNIT,9018) ! 0 #94 WRITE (IOUNIT,9019) & #99 WRITE (IOUNIT,9016) ! 0 #100 WRITE (IOUNIT,9017) & #103 WRITE (IOUNIT,9018) ! 0 #104 WRITE (IOUNIT,9019) & #108 WRITE (IOUNIT,9010) ! 0 #119 WRITE (IOUNIT,9013) YCOVAL , & #123 WRITE (IOUNIT,9013) YCOVAL , & #138 WRITE (IOUNIT,9013) YCOVAL , & #142 WRITE (IOUNIT,9013) YCOVAL , & #162 WRITE (IOUNIT,9037) NTID(I) , NTTYP(I) #163 WRITE (IOUNIT,9012) #167 WRITE (IOUNIT,9016) ! 0 #168 WRITE (IOUNIT,9017) & #171 WRITE (IOUNIT,9018) ! 0 #172 WRITE (IOUNIT,9019) & #177 WRITE (IOUNIT,9016) ! 0 #178 WRITE (IOUNIT,9017) & #181 WRITE (IOUNIT,9018) ! 0 #182 WRITE (IOUNIT,9019) & #186 WRITE (IOUNIT,9010) ! 0 #197 WRITE (IOUNIT,9013) YCOVAL , & #201 WRITE (IOUNIT,9013) YCOVAL , & #216 WRITE (IOUNIT,9013) YCOVAL , & #220 WRITE (IOUNIT,9013) YCOVAL , & #242 WRITE (IOUNIT,9037) NTID(I) , NTTYP(I) #243 WRITE (IOUNIT,9035) #248 WRITE (IOUNIT,9016) ! 0 #249 WRITE (IOUNIT,9017) & #252 WRITE (IOUNIT,9018) ! 0 #253 WRITE (IOUNIT,9019) & #258 WRITE (IOUNIT,9016) ! 0 #259 WRITE (IOUNIT,9017) & #262 WRITE (IOUNIT,9018) ! 0 #263 WRITE (IOUNIT,9019) & #267 WRITE (IOUNIT,9010) ! 0 #278 WRITE (IOUNIT,9013) YCOVAL , & #282 WRITE (IOUNIT,9013) YCOVAL , & #297 WRITE (IOUNIT,9013) YCOVAL , & #301 WRITE (IOUNIT,9013) YCOVAL , & #323 WRITE (IOUNIT,9043) #334 WRITE (IOUNIT,9090) BUF132 #340 WRITE (IOUNIT,9090) BUF132 ! 0 #358 WRITE (IOUNIT,9044) #371 WRITE (IOUNIT,9090) BUF132 #377 WRITE (IOUNIT,9090) BUF132 ! 0 PRTSOC.f90#66 WRITE (IOUNIT,9058) EVNAME(IEVENT) , EVAPER(IEVENT) , & #75 WRITE (IOUNIT,9068) EVGRP(IEVENT) , (HEADID(I),I=1,IOGRP) #78 WRITE (IOUNIT,9070) GRPAVE #80 WRITE (IOUNIT,9062) #86 WRITE (IOUNIT,9066) (WORKID(I),WAVEV(I),I=1+120*(N-1),INGRP)! 0 #88 WRITE (IOUNIT,9066) (WORKID(I),WAVEV(I),I=1+120*(N-1),120*N)! 0 PRTSRC.f90#92 WRITE (IOUNIT,9046) IQUN #109 WRITE (IOUNIT,9047) SRCID(I) , CNPD , AQS(I) , AXS(I) , & #130 WRITE (IOUNIT,9074) IQUN #140 WRITE (IOUNIT,9075) SRCID(I) , INPD(I) , AQS(I) , AXS(I) , & #160 WRITE (IOUNIT,9076) IQUN #172 WRITE (IOUNIT,9077) SRCID(I) , INPD(I) , AQS(I) , AXS(I) , & #194 WRITE (IOUNIT,9078) IQUN #204 WRITE (IOUNIT,9079) SRCID(I) , INPD(I) , AQS(I) , AXS(I) , & #224 WRITE (IOUNIT,9080) IQUN #235 WRITE (IOUNIT,9081) SRCID(I) , INPD(I) , AQS(I) , AXS(I) , & #255 WRITE (IOUNIT,9082) IQUN #268 WRITE (IOUNIT,9083) SRCID(I) , INPD(I) , AQS(I) , AXS(I) , & #293 WRITE (IOUNIT,9058) #298 WRITE (IOUNIT,9068) GRPID(J) , (WORKID(I),I=1,INGRP) ! 3 #300 WRITE (IOUNIT,9068) GRPID(J) , (WORKID(I),I=1,12*K) ! 0 #302 WRITE (IOUNIT,9067) (WORKID(I),I=1+12*(K-1),INGRP) ! 0 #304 WRITE (IOUNIT,9067) (WORKID(I),I=1+12*(K-1),12*K) ! 0 #325 WRITE (IOUNIT,9059) #333 WRITE (IOUNIT,9068) OLMID(J) , (WORKID(I),I=1,INGRP) ! 0 #335 WRITE (IOUNIT,9068) OLMID(J) , (WORKID(I),I=1,12*K) ! 0 #337 WRITE (IOUNIT,9067) (WORKID(I),I=1+12*(K-1),INGRP) ! 0 #339 WRITE (IOUNIT,9067) (WORKID(I),I=1+12*(K-1),12*K) ! 0 #351 WRITE (IOUNIT,9060) #357 WRITE (IOUNIT,9061) SRCID(I) , ANO2_RATIO(I) , SRCID(I+1)& #362 WRITE (IOUNIT,9061) SRCID(I) , ANO2_RATIO(I) , SRCID(I+1)& #366 WRITE (IOUNIT,9061) SRCID(I) , ANO2_RATIO(I) , SRCID(I+1)& #369 WRITE (IOUNIT,9061) SRCID(I) , ANO2_RATIO(I) ! 0 #382 WRITE (IOUNIT,9049) #384 WRITE (IOUNIT,9050) SRCID(I) , SRCTYP(I) ! 0 #385 WRITE (IOUNIT,9051) (APHI(J,I),J=1,NPD) #387 WRITE (IOUNIT,9052) (APDIAM(J,I),J=1,NPD) #388 WRITE (IOUNIT,9053) (APDENS(J,I),J=1,NPD) #394 WRITE (IOUNIT,9049) #396 WRITE (IOUNIT,9050) SRCID(I) , SRCTYP(I) ! 0 #397 WRITE (IOUNIT,99051) (FINEMASS(I),J=1,NPD) #401 WRITE (IOUNIT,9052) (APDIAM(J,I),J=1,NPD) #402 WRITE (IOUNIT,9053) (APDENS(J,I),J=1,NPD) #409 WRITE (IOUNIT,9049) #411 WRITE (IOUNIT,9050) SRCID(I) , SRCTYP(I) ! 0 #413 WRITE (IOUNIT,99090) PDIFF(I) ! 0 #415 WRITE (IOUNIT,99091) PDIFFW(I) #417 WRITE (IOUNIT,99093) RCLI(I) #419 WRITE (IOUNIT,9094) HENRY(I) #445 WRITE (IOUNIT,9064) #457 WRITE (IOUNIT,9062) SRCID(I) , & #476 WRITE (IOUNIT,9002) #481 WRITE (IOUNIT,9004) (SEASON(I1),I1=1,4) #484 WRITE (IOUNIT,9005) SRCID(I) , SRCTYP(I) ! 0 #487 WRITE (IOUNIT,9006) (QFACT(I1,I),I1=1,4) #498 WRITE (IOUNIT,9007) #502 WRITE (IOUNIT,9008) #508 WRITE (IOUNIT,9013) #510 WRITE (IOUNIT,9009) SRCID(I) , SRCTYP(I) ! 0 #511 WRITE (IOUNIT,9010) (QFACT(I1,I),I1=1,12) #522 WRITE (IOUNIT,9011) #526 WRITE (IOUNIT,9012) #527 WRITE (IOUNIT,9013) #529 WRITE (IOUNIT,9009) SRCID(I) , SRCTYP(I) ! 0 #530 WRITE (IOUNIT,9014) (I1,QFACT(I1,I),I1=1,24) #540 WRITE (IOUNIT,9015) #544 WRITE (IOUNIT,9013) #546 WRITE (IOUNIT,9009) SRCID(I) , SRCTYP(I) ! 0 #547 WRITE (IOUNIT,9025) (J,J=1,6) #549 WRITE (IOUNIT,9024) (QFACT(I2,I),I2=1,6) #559 WRITE (IOUNIT,9018) #562 WRITE (IOUNIT,9012) #563 WRITE (IOUNIT,9013) #564 WRITE (IOUNIT,9009) SRCID(I) , SRCTYP(I) #567 WRITE (IOUNIT,9019) SEASON(I1) #569 WRITE (IOUNIT,9014) (I2,QFACT(I2+IFR,I),I2=1,24) #579 WRITE (IOUNIT,99018) #583 WRITE (IOUNIT,99009) SRCID(I) , SRCTYP(I) #584 WRITE (IOUNIT,99012) #585 WRITE (IOUNIT,99013) #590 WRITE (IOUNIT,99019) SEASON(I2) , DAYOFWEEK(I1) #591 WRITE (IOUNIT,99014) (I3,QFACT(I3+IFR+IDW,I),I3=1,24) #602 WRITE (IOUNIT,79018) #606 WRITE (IOUNIT,99009) SRCID(I) , SRCTYP(I) #607 WRITE (IOUNIT,99012) #608 WRITE (IOUNIT,99013) #613 WRITE (IOUNIT,99019) SEASON(I2) , DAYOFWEEK7(I1) #614 WRITE (IOUNIT,99014) (I3,QFACT(I3+IFR+IDW,I),I3=1,24) PRTSUM.f90#56 WRITE (IOUNIT,9021) PERCHR , IANHRS ! 2 #60 WRITE (IOUNIT,9023) PERCHR , NUMYRS ! 0 #64 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #66 WRITE (IOUNIT,9022) CHIDEP(1,ITYP) , CHIDEP(2,ITYP) , & #75 WRITE (IOUNIT,1012) GRPID(IGRP) , RANK(IVAL) , & #90 WRITE (IOUNIT,1014) GRPID(IGRP) , RANK(IVAL) , & #101 WRITE (IOUNIT,1015) RANK(IVAL) , & #107 WRITE (IOUNIT,1013) RANK(IVAL) , & #120 WRITE (IOUNIT,9050) ! 2 #145 WRITE (IOUNIT,9031) CHRAVE(IAVE) #148 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #150 WRITE (IOUNIT,9032) CHIDEP(1,ITYP) , CHIDEP(2,ITYP)& #157 WRITE (IOUNIT,*) ' ' ! 4 #164 WRITE (IOUNIT,1004) GRPID(IGRP) , RANK(IWHP(I)) , & #178 WRITE (IOUNIT,1002) GRPID(IGRP) , RANK(IWHP(I)) , & #193 WRITE (IOUNIT,1005) RANK(IWHP(I)) , & #207 WRITE (IOUNIT,1003) RANK(IWHP(I)) , & #221 WRITE (IOUNIT,9050) ! 4 PVMRM_CALC.f90#270 WRITE (IOUNIT,*) & SCAVRAT.f90#55 WRITE (IOUNIT,*) ! 0 #56 WRITE (IOUNIT,*) 'SUBR. SCAVRAT -- Inputs' #57 WRITE (IOUNIT,*) 'IPCODE = ' , IPCODE #58 WRITE (IOUNIT,*) 'PRATE (mm/hr) = ' , PRATE #59 WRITE (IOUNIT,*) 'TA (deg K) = ' , TA #60 WRITE (IOUNIT,*) 'NPD = ' , NPD #61 WRITE (IOUNIT,*) #191 WRITE (IOUNIT,*) 'SUBR. SCAVRAT -- Results' ! 0 #193 WRITE (IOUNIT,*) 'GSCVRT (1/s)= ' , GSCVRT ! 0 #195 WRITE (IOUNIT,*) 'PSCVRT (1/s)= ' , (PSCVRT(N),N=1,NPD) ! 0 #196 WRITE (IOUNIT,*) 'COLL. EFF. = ' , (ECOLL(N),N=1,NPD) #197 WRITE (IOUNIT,*) 'WASHOUT COEF= ' , (WASHOUT(N),N=1,NPD) #199 WRITE (IOUNIT,*) ! 0 SETUP.f90#98 WRITE (IOUNIT,9200) RUNST1(1:11) ! 3 #101 WRITE (IOUNIT,9210) RUNST1(1:12) ! 0 #104 WRITE (IOUNIT,9220) RUNST1(1:13) ! 0 #107 WRITE (IOUNIT,9230) RUNST1(1:14) ! 0 #112 WRITE (IOUNIT,ECFRM) RUNST1 ! 405 SPRTHT.f90#70 WRITE (IOUNIT,9032) CHRVAL(IHNUM) , CHRAVE(IAVE) , & #74 WRITE (IOUNIT,9037) NTID(I) , NTTYP(I) #78 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #82 WRITE (IOUNIT,9016) ! 0 #83 WRITE (IOUNIT,9017) & #86 WRITE (IOUNIT,9018) ! 8 #87 WRITE (IOUNIT,9019) & #92 WRITE (IOUNIT,9016) ! 0 #93 WRITE (IOUNIT,9017) & #96 WRITE (IOUNIT,9018) ! 0 #97 WRITE (IOUNIT,9019) & #101 WRITE (IOUNIT,9010) ! 8 #113 WRITE (IOUNIT,9013) YCOVAL , & #119 WRITE (IOUNIT,9013) YCOVAL , & #136 WRITE (IOUNIT,9013) YCOVAL , & #142 WRITE (IOUNIT,9013) YCOVAL , & #163 WRITE (IOUNIT,9032) CHRVAL(IHNUM) , CHRAVE(IAVE) , & #166 WRITE (IOUNIT,9043) #170 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #172 WRITE (IOUNIT,9048) CHIDEP(3,ITYP) , CHIDEP(3,ITYP) #188 WRITE (IOUNIT,9090) BUF132 #194 WRITE (IOUNIT,9090) BUF132 ! 0 #212 WRITE (IOUNIT,9032) CHRVAL(IHNUM) , CHRAVE(IAVE) , & #215 WRITE (IOUNIT,9044) #218 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #220 WRITE (IOUNIT,9049) CHIDEP(3,ITYP) , CHIDEP(3,ITYP) #239 WRITE (IOUNIT,9090) BUF132 #245 WRITE (IOUNIT,9090) BUF132 ! 0 #260 WRITE (IOUNIT,9032) CHRVAL(IHNUM) , CHRAVE(IAVE) , & #263 WRITE (IOUNIT,9011) CHIDEP(3,ITYP) , POLLUT , & #266 WRITE (IOUNIT,9082) SRCID(ISRF) , SRCTYP(ISRF) , & SUMTBL.f90#33 WRITE (IOUNIT,*) ' --------- Summary of Total Messages --------' #34 WRITE (IOUNIT,*) ' ' #35 WRITE (IOUNIT,9014) IFTL #37 WRITE (IOUNIT,9015) IWRN #39 WRITE (IOUNIT,9016) INFO #42 WRITE (IOUNIT,9017) ICLM ! 2 #46 WRITE (IOUNIT,9018) IMSG , PERCENT #50 WRITE (IOUNIT,9019) ! 0 #60 WRITE (IOUNIT,9020) IHEZ ! 0 #64 WRITE (IOUNIT,*) ' ' ! 4 #67 WRITE (IOUNIT,*) ' ' #68 WRITE (IOUNIT,*) ' ******** FATAL ERROR MESSAGES ******** ' #77 WRITE (IOUNIT,1117) PATH , ERRTP , ERRCD , IERRLN , & #87 WRITE (IOUNIT,*) ' *** NONE *** ' ! 2 #88 WRITE (IOUNIT,*) ' ' #92 WRITE (IOUNIT,*) ' ' ! 4 #93 WRITE (IOUNIT,*) ' ******** WARNING MESSAGES ******** ' #104 WRITE (IOUNIT,1117) PATH , ERRTP , ERRCD , IERRLN , & #107 WRITE (IOUNIT,*) 'More Than 999 Warning Messages ' , & #121 WRITE (IOUNIT,*) ' *** NONE *** ' ! 4 #122 WRITE (IOUNIT,*) ' ' #124 WRITE (IOUNIT,*) ' ** WARNINGS SUPPRESSED BY NOWARN OPTION **' ! 0 #125 WRITE (IOUNIT,*) ' ' TGQA.f90#94 WRITE (IOUNIT,*) 'Lower Left of Source Range : ' , XSMIN , & #96 WRITE (IOUNIT,*) 'Upper Right of Source Range : ' , XSMAX , & #98 WRITE (IOUNIT,*) 'Lower Left of Receptor Range : ' , XRMIN , & #100 WRITE (IOUNIT,*) 'Upper Right of Receptor Range: ' , XRMAX , & #102 WRITE (IOUNIT,*) 'Lower Left of Terrain Grid : ' , GRDXLL , & #104 WRITE (IOUNIT,*) 'Upper Right of Terrain Grid : ' , GRDXUR , & VDP.f90#413 WRITE (IOUNIT,*) ! 0 #414 WRITE (IOUNIT,*) 'RA (s/m) = ' , RA #415 WRITE (IOUNIT,*) 'RD (s/m) = ' , (RD(N),N=1,NPD) #416 WRITE (IOUNIT,*) 'VDEP (m/s) = ' , (VDEP(N),N=1,NPD) VDP1.f90#57 IO6 = IOUNIT ! 0 WAKE_XA.f90#84 WRITE (IOUNIT,*) 'WAKE_XA Calculations:' ! 0 #85 WRITE (IOUNIT,*) 'ambiz, ambiy = ' , AMBIZ , AMBIY #86 WRITE (IOUNIT,*) 'farizt, fariyt = ' , FARIZT , FARIYT #87 WRITE (IOUNIT,*) 'xaz, xay = ' , XAZ , XAY
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