A numerical code for underwater noise propagation