PVMRM_CALC

SUBROUTINE 0 args, 178 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/PVMRM_CALC.f90,0000002,0000342
PVMRM_CALC CALLed by HRLOOP
CALLs to ARDIST EVALCK EV_SUMVAL EXP GINTRP LOCATE MAX MAXLOC MAXVAL MIN PLUME_VOL SETSRC SQRT SUMVAL
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE AERVAL AERVALD HRVAL HRVALD IREC ISRC ITYP ZRT
Uses MODULE ANO2_RATIO AQS AXR AXS AYR AYS AZELEV AZFLAG AZS CHI DEBUG EVAL EVONLY FOPTS GRIDPT HECNTR HECNTR3 IOUNIT IREC ISRC ITYP KURDAT NO2EQUIL NUMREC NUMSRC NUMTYP O3CONC PPFACT RADIUS SRCID SRCTYP UEFFS UNSTAB WDCOS WDSIN X XINIT Y YINIT ZRT
Uses Argument **NOTHING**
Chng Argument **NOTHING**
Uses PARAMETER EPS G GOVRCP MXGLVL PI RGAS
Local Var AVE_NO2RATIO BHORIZ BVERT BVERT3 CWDELT CWDIST CWMAX CWMIN DISTDOM DOMCONVERTED DOMIDX DOMNOXMOLES DOMO3MOLES DWDELT DWDIST DWMAX DWMIN FDOM HMNH HMNH3 HMNT HMNT3 HMXH HMXH3 HMXT HMXT3 IDOM LENGTH MAXCHI MAXCONC MODNAM NDXBLZ NUMCONT PCORR PERCENTNO2 PTZ QAREA QSUM SUMCONVERTED SUMNOXMOLES SUMO3MOLES SUM_NO2RAT TAP TCORR UDOM VOLDOM VOLSUM WIDTH XDEP XDOM XMAXR YDOM ZCORR

GXCHK Version 7.50ME executed at 21:26 on 17 Mar 2021