PCALC

SUBROUTINE 0 args, 270 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/PCALC.f90,0000002,0000588
PCALC CALLed by CALC EVCALC
CALLs to ABS AERCALC AMAX1 AMIN1 CBLPR3 CBLPRD COS DISTF EMFACT EVALCK EVALFL EVLINI EV_SUMVAL FLUXES GAMCALC GINTRP HSPRIM INT LOCATE MAX MEANDR METINI MIN PDF PENFCT PRMCALC PSRDEB SBLRIS SCAVRAT SETSRC SIGZ SIN SQRT SUMVAL VDP WAKE_INI WAKFLG XYDIST
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE AERVAL AERVALD AFV BVF BVPRIM CENTER CHI DHCRIT DHFAER FOPTS FSTREC GAMFACT GRIDPT GRIDSV GRIDSW GRIDTG HE HECNTR HECNTR3 HED1 HRVAL HRVALD HSP IFVSEC IREC ITYP METHDR OBULEN PPFACT PRMVAL PRMVALD PRM_FSTREC RURAL SURFAC TGP UEFF3S UEFFS UP URBSTAB USTAR WDCOS WDIR WDSIN XDIST XFINAL XMIXED ZI ZMIDMX ZSUBP
Uses MODULE AERVAL AFV BVF CENTER DBGUNT DEBUG DHCRIT DHFAER DHP DHP1 DISTR EVAL EVONLY FOPT GAMFACT GRDPTR GRDPTU GRDSVR GRDSVU GRDSWR GRDSWU GRDTGR GRDTGU GRIDWD HE HE3 HED1 HRVAL HS HSP IFVSEC IOUNIT IREC ISRC ITYP KURDAT LDGAS LDPART LWGAS LWPART NOSTD NUMREC NUMTYP O3MISS OLM PPF PRMVAL PTS PVMRM QTK RUROBULEN RURUSTR STABLE SWAVG SZA3 SZAD1 SZAD2 SZAS TGP TGS UAVG UEFF UEFF3 UEFFD UNSTAB UP URBAN URBOBULEN URBSRC URBUSTR US WAKE WDIR X XADJ XFINAL XMAX XMIXED Y YADJ ZI ZIMECH ZIRUR ZIURB ZMIDMX ZSUBP
Uses Argument **NOTHING**
Chng Argument **NOTHING**
Uses PARAMETER DTORAD G MXGLVL SVMIN SZCOEF
Local Var AERPAN AERPLM DHFOLD FRAN FRAN3 KITER LDBHR L_PLUME MODNAM NDXBH NDXZMID NDXZPL PTP PTPM SVPM TGPM UBLDG UPM USTACK VALABV VBELOW XBREC YBREC ZMID ZPLM

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