METSUM

SUBROUTINE 0 args, 23 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/METSUM.f90,0000002,0000097

METSUM	CALLed by	HRLOOP
	CALLs to	MIN
	Chng COMMON	**NOTHING**
	Uses COMMON	**NOTHING**
	Chng MODULE	**NOTHING**
	Uses MODULE	ALBEDO BOWEN IDAY IDSURF IDUAIR IFIRSTHR IFLAG IHOUR ILINE IMONTH IPUNIT ISUNIT ISYEAR IUYEAR IYEAR JDAY KDAY KHOUR KMONTH KYEAR METFRM METINP NPLVLS OBULEN PFLHT PFLSV PFLSW PFLTA PFLWD PFLWS PROFRM PROINP SFCHF SFCZ0 SFNAME TA TREFHT UANAME UREF UREFHT USTAR VPTGZI WDREF WSTAR ZICONV ZIMECH
	Uses Argument	**NOTHING**
	Chng Argument	**NOTHING**
	Uses PARAMETER	DCTODK ILEN_FLD
	Local Var	I ILMAX MODNAM PFLTEMP

---

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