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