source: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/ener_mod.F90 @ 5185

Last change on this file since 5185 was 5159, checked in by abarral, 5 months ago

Put dimensions.h and paramet.h into modules

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 242 bytes
Line 
1
2! $Id: ener_mod.F90 5159 2024-08-02 19:58:25Z abarral $
3
4MODULE ener_mod
5
6USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
7  USE lmdz_paramet
8IMPLICIT NONE
9
10
11
12
13      REAL ang0,etot0,ptot0,ztot0,stot0,            &
14        ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot(llmm1)
15
16
17END MODULE ener_mod
Note: See TracBrowser for help on using the repository browser.