A Japanese Second World War submarine wreck has been found partially buried in the seabed of a Papua New Guinea harbour.