2 double precision deltaT,GridT0,sumW(0:MaxGridT,maxprot),
3 & sumE(0:MaxGridT,maxprot),sumEsq(0:MaxGridT,maxprot),
4 & sumEbis(0:MaxGridT,maxprot),
5 & sumQ(0:MaxGridT,maxprot),sumQsq(0:MaxGridT,maxprot),
6 & sumRMS(0:MaxGridT,maxprot),sumRGY(0:MaxGridT,maxprot),
7 & sumEQ(0:MaxGridT,maxprot),sumEEQ(0:MaxGridT,maxprot),
8 & sumEEE(0:MaxGridT,maxprot),Rgas
9 common /thermal_var/ deltaT,GridT0,sumW,sumE,sumEbis,sumEsq,
10 & sumQ,sumRMS,sumRGY,sumQsq,sumEQ,sumEEE,sumEEQ,Rgas,nGridT