! $Id: ener_mod.F90 5159 2024-08-02 19:58:25Z dcugnet $ MODULE ener_mod USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm USE lmdz_paramet IMPLICIT NONE REAL ang0,etot0,ptot0,ztot0,stot0, & ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot(llmm1) END MODULE ener_mod