CRITDS

SUBROUTINE 1 args, 60 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/CRITDS.f90,0000002,0000179

CRITDS	CALLed by	ACALC AERCALC F2INT OCALC PLUMEF VOLCALC
	CALLs to	GINTRP LOCATE MIN SQRT
	Chng COMMON	**NOTHING**
	Uses COMMON	**NOTHING**
	Chng MODULE	HCRIT
	Uses MODULE	ELEV GRIDHT GRIDPT GRIDTG GRIDWS STABLE ZELEV ZHILL ZS
	Uses Argument	HEARG
	Chng Argument	**NOTHING**
	Uses PARAMETER	G MXGLVL
	Local Var	A AC4 B B2 C DETER DWS DWS2 HBOT HHILL HTOP IB IT LS MODNAM N2 NDX4HC NL NLEV PTATHH PTHC RS TGATHH TGHC TOPHT UATHH WSTOP XN2 ZMID

---

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