Remove testing code from InflowWind_Driver

This code was unintentionally left in from developing the new
pack/unpack functionality for the registry.

modules/inflowwind/src/InflowWind_Driver.f90

@@ -862,8 +862,6 @@ PROGRAM InflowWind_Driver
 !FFT calculations occur here.  Output to file.
 
 
-   call PackAndSave()
-
    !--------------------------------------------------------------------------------------------------------------------------------
    !-=-=- We are done, so close everything down -=-=-
    !--------------------------------------------------------------------------------------------------------------------------------
@@ -943,26 +941,6 @@ SUBROUTINE DriverCleanup()
 
    END SUBROUTINE DriverCleanup
 
-   subroutine PackAndSave()
-      type(PackBuffer) :: BufOut, BufIn
-      integer(IntKi) :: unit
-      TYPE(InflowWind_ParameterType) :: IfW_p  
-
-      call InitPackBuffer(BufOut, ErrStat, ErrMsg)
-      call InflowWind_PackParam(BufOut, InflowWind_p)
-      call GetNewUnit(unit, ErrStat, ErrMsg)
-      call OpenBOutFile(unit, 'pack.bin', ErrStat, ErrMsg)
-      call WritePackBuffer(BufOut, unit, ErrStat, ErrMsg)
-      close(unit)
-
-      call OpenBInpFile(unit, 'pack.bin', ErrStat, ErrMsg)
-      call ReadPackBuffer(BufIn, unit, ErrStat, ErrMsg)
-      call InflowWind_UnPackParam(BufIn, IfW_p)
-      close(unit)
-
-   end subroutine
-
-
 END PROGRAM InflowWind_Driver