link ../../../LMDZ.GENERIC/libf/phystd/sugas_corrk.F90