source: LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3dpar/ener.h @ 3257

Last change on this file since 3257 was 1447, checked in by jghattas, 14 years ago
  • Added variables written to file phystokenc.nc by option offline.
  • initphysto and phystokenc rewritten in F90
  • ener.h modified to be compatible with F77 and F90 syntax
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 703 bytes
RevLine 
[630]1!
[1447]2! $Id: ener.h 1447 2010-10-22 16:18:27Z fairhead $
[630]3!
[1447]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'
[630]10
[1447]11      COMMON/ener/ang0,etot0,ptot0,ztot0,stot0,                         &
12     &            ang,etot,ptot,ztot,stot,rmsdpdt ,                     &
13     &            rmsv,gtot(llmm1)
[630]14
[1447]15      REAL ang0,etot0,ptot0,ztot0,stot0,                                &
16     &     ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot
[630]17
[1447]18!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.