source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3d_common/comdissipn.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: 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.