You can find it in snow ice city find steven in all the houses there
On the way to Route 224, it's not a HM, but I captured a wild Dewgong Level 50 that knew Dive.
Try this cheats at gameshark code F12F5BBE2045DEBD