libf/dyn3d/comdissipn.f90

module comdissipn

  ! From dyn3d/comdissipn.h,v 1.1.1.1 2004/05/19 12:53:06
  ! Les parametres de ce common proviennent des calculs effectues dans 
  ! Inidissip.

  use dimens_m, only: llm

  implicit none
  private llm

  real tetaudiv(llm),tetaurot(llm),tetah(llm)   
  real cdivu,      crot,         cdivh

end module comdissipn
1	module comdissipn
2
3	! From dyn3d/comdissipn.h,v 1.1.1.1 2004/05/19 12:53:06
4	! Les parametres de ce common proviennent des calculs effectues dans
5	! Inidissip.
6
7	use dimens_m, only: llm
8
9	implicit none
10	private llm
11
12	real tetaudiv(llm),tetaurot(llm),tetah(llm)
13	real cdivu, crot, cdivh
14
15	end module comdissipn