ACPARM.f90#31 AQS(ISDX) = TEMP(1) #48 IF ( AQS(ISDX).EQ.0.0 ) CALL ERRHDL(PATH,MODNAM,'W','320',' QS ') ! 0 ALLSETUP.f90#43 ALLOCATE (AXS(NSRC),AYS(NSRC),AZS(NSRC),AQS(NSRC),AHS(NSRC), & APARM.f90#40 AQS(ISDX) = TEMP(1) #67 IF ( AQS(ISDX).EQ.0.0 ) CALL ERRHDL(PATH,MODNAM,'W','320',' QS ') ! 9 APPARM.f90#33 AQS(ISDX) = TEMP(1) #45 IF ( AQS(ISDX).EQ.0.0 ) CALL ERRHDL(PATH,MODNAM,'W','320',' QS ') ! 0 EV_HRQEXT.f90#36 AQS(IS) = EV_HRQS(IS,IHOUR) HRQEXT.f90#121 AQS(IS) = HRQS ! 0 MAIN1.f90#282 REAL , ALLOCATABLE :: AXS(:) , AYS(:) , AZS(:) , AQS(:) , AHS(:) ,& OPARM.f90#36 AQS(ISDX) = TEMP(1) #47 IF ( AQS(ISDX).EQ.0.0 ) CALL ERRHDL(PATH,MODNAM,'W','320',' QS ') PPARM.f90#31 AQS(ISDX) = TEMP(1) #40 IF ( AQS(ISDX).EQ.0.0 ) CALL ERRHDL(PATH,MODNAM,'W','320',' QS ') PRTSRC.f90#109 WRITE (IOUNIT,9047) SRCID(I) , CNPD , AQS(I) , AXS(I) , & #140 WRITE (IOUNIT,9075) SRCID(I) , INPD(I) , AQS(I) , AXS(I) , & #172 WRITE (IOUNIT,9077) SRCID(I) , INPD(I) , AQS(I) , AXS(I) , & #204 WRITE (IOUNIT,9079) SRCID(I) , INPD(I) , AQS(I) , AXS(I) , & #235 WRITE (IOUNIT,9081) SRCID(I) , INPD(I) , AQS(I) , AXS(I) , & #268 WRITE (IOUNIT,9083) SRCID(I) , INPD(I) , AQS(I) , AXS(I) , & PVMRM_CALC.f90#206 DOMNOXMOLES = AQS(IDOM)*XINIT*YINIT*DISTDOM/(UDOM*46.) #210 DOMNOXMOLES = AQS(IDOM)*PI*RADIUS(IDOM)*RADIUS(IDOM) & #213 DOMNOXMOLES = AQS(IDOM)*DISTDOM/(UDOM*46.) ! 0 #251 QAREA = AQS(ISRC)*XINIT*YINIT ! 0 #255 QAREA = AQS(ISRC)*PI*RADIUS(ISRC)*RADIUS(ISRC) ! 0 #259 QSUM = QSUM + AQS(ISRC) ! 0 #261 & *AQS(ISRC) SETSRC.f90#46 QS = AQS(ISRC) #57 QS = AQS(ISRC) #67 QS = AQS(ISRC) #90 QS = AQS(ISRC) #114 QS = AQS(ISRC) #137 QS = AQS(ISRC) SRCQA.f90#227 IF ( AQS(I).LT.0.0 ) & VARINI.f90#162 AQS(I) = 0.0 VPARM.f90#31 AQS(ISDX) = TEMP(1) #39 IF ( AQS(ISDX).EQ.0.0 ) CALL ERRHDL(PATH,MODNAM,'W','320',' QS ')
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