link ../../../../../../../LMDZ.MARS/libf/phymars/geticecover.F90