source: LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3d/comdissipn.h @ 4522

Last change on this file since 4522 was 1489, checked in by lguez, 14 years ago

Conversion to free source form for "inidissip". "comdissipn.h" is now
valid and equivalent for either free source form or fixed source form.

Added compilation files for Gfortran.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 768 bytes
Line 
1!
2! $Header$
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 comdissipn.h
10
11      REAL  tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
12!
13      COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm)   ,     &
14     &                        cdivu,      crot,         cdivh
15
16!
17!    Les parametres de ce common proviennent des calculs effectues dans
18!             Inidissip  .
19!
20!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.