source: LMDZ5/trunk/libf/dyn3d_common/ener_mod.F90 @ 3667

Last change on this file since 3667 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
RevLine 
[524]1!
[1454]2! $Id: ener_mod.F90 2622 2016-09-04 06:12:02Z oboucher $
[524]3!
[2622]4MODULE ener_mod
[524]5
[2622]6IMPLICIT NONE 
[524]7
[2622]8include "dimensions.h"
9include "paramet.h"
[524]10
[2622]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.