source: LMDZ.3.3/trunk/libf/dyn3d/ener.h @ 413

Last change on this file since 413 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 397 bytes
RevLine 
[2]1c-----------------------------------------------------------------------
2c INCLUDE 'ener.h'
3
4      COMMON/ener/ang0,etot0,ptot0,ztot0,stot0,
5     *            ang,etot,ptot,ztot,stot,rmsdpdt ,
6     *            rmsv,gtot(llmm1)
7
8      REAL ang0,etot0,ptot0,ztot0,stot0,
9     s     ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot
10
11c-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.