integer iflag_thermals,nsplit_thermals real r_aspect_thermals,l_mix_thermals,tho_thermals integer w2di_thermals,isplit integer iflag_coupl,iflag_clos,iflag_wake common/ctherm1/iflag_thermals,nsplit_thermals common/ctherm2/r_aspect_thermals,l_mix_thermals,tho_thermals common/ctherm3/w2di_thermals common/ctherm4/iflag_coupl,iflag_clos,iflag_wake