! $Header$ ! Attention : ce fichier include est compatible format fixe/format libre ! veillez à n'utiliser que des ! pour les commentaires ! et à bien positionner les & des lignes de continuation ! (les placer en colonne 6 et en colonne 73) !----------------------------------------------------------------------- ! INCLUDE comdissipn.h REAL tetaudiv, tetaurot, tetah, cdivu, crot, cdivh COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm) , & & cdivu, crot, cdivh ! Les parametres de ce common proviennent des calculs effectues dans ! Inidissip . !-----------------------------------------------------------------------