link ../../libf_gcm/phymars/physdem1.F