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 !-----------------------------------------------------------------------
11 REAL tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
13 COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm) , &
17 ! Les parametres de ce common proviennent des calculs effectues dans
20 !-----------------------------------------------------------------------
!$Header!integer nvarmx s s s fichier