source: LMDZ.3.3/trunk/libf/dyn3d/comdissipn.h @ 507

Last change on this file since 507 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: 465 bytes
Line 
1c-----------------------------------------------------------------------
2c INCLUDE comdissipn.h
3
4      REAL  tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
5c
6      COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm)   ,
7     1                        cdivu,      crot,         cdivh
8
9c
10c    Les parametres de ce common proviennent des calculs effectues dans
11c             Inidissip  .
12c
13c-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.