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