integer iflag_thermals,nsplit_thermals
      real r_aspect_thermals,l_mix_thermals,tau_thermals
      integer w2di_thermals,isplit
      integer iflag_coupl,iflag_clos,iflag_wake
      integer iflag_thermals_ed,iflag_thermals_optflux

      common/ctherm1/iflag_thermals,nsplit_thermals
      common/ctherm2/r_aspect_thermals,l_mix_thermals,tau_thermals
      common/ctherm3/w2di_thermals
      common/ctherm4/iflag_coupl,iflag_clos,iflag_wake
      common/ctherm5/iflag_thermals_ed,iflag_thermals_optflux

!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm3/,/ctherm4/)