source: trunk/LMDZ.GENERIC/libf/dyn3d/comdiss.h @ 1153

Last change on this file since 1153 was 135, checked in by aslmd, 14 years ago

CHANGEMENT ARBORESCENCE ETAPE 2 -- NON COMPLET

File size: 374 bytes
Line 
1c-----------------------------------------------------------------------
2c INCLUDE 'comdiss.h'
3
4      INTEGER niter
5      REAL tetau(llm),tetah(llm),cdivu,cdivh,crot
6      LOGICAL dissipst
7
8      COMMON/comdissi/niter
9      COMMON/comdissr/tetau,tetah,cdivu,cdivh,crot
10      COMMON/comdissl/dissipst
11
12c-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.