source: LMDZ5/branches/testing/libf/dyn3d_common/ener_mod.F90 @ 5425

Last change on this file since 5425 was 2641, checked in by Laurent Fairhead, 8 years ago

Merged trunk changes r2593:2640 into testing branch

  • 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 2641 2016-09-29 21:26:46Z jyg $
[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.