! ! Coefficients for composition, set by block data in cmpdat.F: ! These are in global shared memory. ! real,dimension(zkmxp) :: war,wch4,wco,wco2,wh2,wh2o,whe, | whox,wn4s,wnat,wnoz common/cmpdat_com/ war,wch4,wco,wco2,wh2,wh2o,whe, | whox,wn4s,wnat,wnoz