OCALC

SUBROUTINE 0 args, 269 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/OCALC.f90,0000002,0000498
OCALC CALLed by CALC EVCALC
CALLs to ABS ADISY ADJEMI AER_PCHI AMAX1 AMFRAC ARDIST AREAIN CENTROID CRITDS EMFACT ESCAPE EVALFL EVLINI EV_SUMVAL FTERM FYPLM GINTRP HEFF IBLVAL LOCATE LWIND MAX METINI MIN PDEP PDEPG PDEPTH PDF PFRACT PITEFF PITEMI PNPOLY PTFRAC REFL_HT SCAVRAT SETSRC SIGZ SUMVAL VDIS VDP
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE AERVALD CHI DHCRIT DHP DHP1 DHP2 DHP3 DQCOR DQCORG FB FM FOPTS FSUBY FSUBY3 FSUBYD FSUBYN GRIDPT GRIDSV GRIDSW GRIDTG HECNTR HECNTR3 HESETL HRVAL HRVALD HSBL HSP HV IREC ITYP OBULEN PPF PPFACT QTK SVEFF SVEFFD SVEFFN SWEFF SWEFFD SWEFFN SYINIT TGEFF UEFF UEFF3S UEFFD UEFFN UEFFS URBSTAB USTAR VP_FACT WAKE WQCOR WQCORG XFINAL XMIXED XR YR ZI ZMIDMX ZSUBP
Uses MODULE ARDPLETE AXR AXVERT AYR AYVERT CENTER DBGUNT DEBUG DISTR DQCOR DQCORG EFRAC EVAL EVONLY FOPT FSUBY FSUBY3 FSUBYD GRDPTR GRDPTU GRDSVR GRDSVU GRDSWR GRDSWU GRDTGR GRDTGU HE HE3 HED1 HED2 HRVAL HS HV IOUNIT IREC ISRC ITYP KST LDGAS LDPART LWGAS LWPART NPD NUMREC NUMTYP NVERT O3MISS OLM PHI PPF PVMRM QEFF QPART QTK RUROBULEN RURUSTR STABLE SVEFF SVS SWAVG SWEFF SWS SY SZAD1 SZAD2 SZAS TGS TOXICS UAVG UEFF UEFF3 UEFFD UNSTAB URBAN URBOBULEN URBSRC URBSTAB URBUSTR US VGRAV VIRTPNT_RUR VIRTPNT_URB VP_FACT WETSCIM WQCOR WQCORG X XFINAL XINIT XMIXED Y YINIT ZI ZIMECH ZIRUR ZIURB ZSUBP
Uses Argument **NOTHING**
Chng Argument **NOTHING**
Uses PARAMETER MXGLVL SZCOEF
Local Var ADJ AEROUT FYOUT I ICAT II INOUT J LENGTH MODNAM NDXR QPTOT QTKSAV WIDTH XDEP XMAXR XPOINT XVM YVM

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