source: LMDZ6/branches/DYNAMICO-conv-GC/libf/dyn3d_common/ener_mod.F90 @ 5006

Last change on this file since 5006 was 2622, checked in by Ehouarn Millour, 8 years ago

Some code tidying: turn ener.h into ener_mod.F90
EM

  • 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: 207 bytes
Line 
1!
2! $Id: ener_mod.F90 2622 2016-09-04 06:12:02Z abarral $
3!
4MODULE ener_mod
5
6IMPLICIT NONE 
7
8include "dimensions.h"
9include "paramet.h"
10
11      REAL ang0,etot0,ptot0,ztot0,stot0,                        &
12                ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot(llmm1)
13
14
15END MODULE ener_mod
Note: See TracBrowser for help on using the repository browser.