libf/dyn3d/comdissip.f90

module comdissip

  ! From dyn3d/comdissip.h,v 1.1.1.1 2004/05/19 12:53:07

  implicit none

  LOGICAL lstardis
  INTEGER niterdis

  REAL tetavel,tetatemp,coefdis,gamdissip

end module comdissip
1	guez	3	module comdissip
2
3			! From dyn3d/comdissip.h,v 1.1.1.1 2004/05/19 12:53:07
4
5			implicit none
6
7			LOGICAL lstardis
8			INTEGER niterdis
9
10			REAL tetavel,tetatemp,coefdis,gamdissip
11
12			end module comdissip