Removed unused formatting statement
changed floating point comparison CAK in getmet.f90