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