integer iflag_thermals,nsplit_thermals
      real r_aspect_thermals,l_mix_thermals,tho_thermals
      integer w2di_thermals,isplit

      common/ctherm/iflag_thermals,nsplit_thermals
     s              ,r_aspect_thermals,l_mix_thermals,tho_thermals
     s              ,w2di_thermals