Can any body send me a fortran code dealing with geostrophic current calculation using Levitus data.

Thanking You
Sudev Das