LOGICAL FUNCTION UA_MHID ( field ) C************************************************************************ C* UA_MHID * C* * C* This function determines whether the input field (i.e. group) * C* contains a maximum wind by height data indicator. * C* * C* UA_MHID ( FIELD ) * C* * C* Input parameters: * C* FIELD CHAR* Field * C* * C** * C* Log: * C* J. Ator/NCEP 10/99 * C************************************************************************ INCLUDE 'GEMPRM.PRM' INCLUDE 'uacmn.cmn' C* CHARACTER*(*) field C------------------------------------------------------------------------ IF ( ( field (1:1) .eq. '7' ) .or. + ( field (1:1) .eq. '6' ) ) THEN UA_MHID = .true. ELSE UA_MHID = .false. END IF C* RETURN END