source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3d_common/ener.h @ 222

Last change on this file since 222 was 222, checked in by ymipsl, 10 years ago

Creating temporary dynamico/lmdz/saturn branche

YM
  • Property svn:eol-style set to native
File size: 747 bytes
Line 
1!
2! $Id: ener.h 1447 2010-10-22 16:18:27Z jghattas $
3!
4!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
5!                 veillez à n'utiliser que des ! pour les commentaires
6!                 et à bien positionner les & des lignes de continuation
7!                 (les placer en colonne 6 et en colonne 73)
8!
9! INCLUDE 'ener.h'
10
11      COMMON/ener/ang0,etot0,ptot0,ztot0,stot0,                         &
12     &            ang,etot,ptot,ztot,stot,rmsdpdt ,                     &
13     &            rmsv,gtot(llmm1)
14
15      REAL ang0,etot0,ptot0,ztot0,stot0,                                &
16     &     ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot
17
18!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.