link ../../libf_gcm/phymars/writeg1d.F