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