






























































































































 


































































































































































 
































































































































































































 



















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                





































module dissipation_coeff

  type coefficients
    REAL*8, dimension(:,:), pointer :: coeff
  end type coefficients

  type(coefficients), dimension(:), pointer :: xcoeff, ycoeff, zcoeff

  logical :: first = .true.
  logical, dimension(:), allocatable :: savedx, savedy, savedz

end module dissipation_coeff
