program create_coordinate use par_oce end