! Replaces comdissip.h
MODULE comdissip_mod_h
  IMPLICIT NONE; PRIVATE
  PUBLIC coefdis, tetavel, tetatemp, gamdissip, niterdis

  INTEGER niterdis
  REAL tetavel, tetatemp, coefdis, gamdissip
END MODULE comdissip_mod_h