numMateTr = numArea
I diagName, diagCode, diagUnits, diagTitle, numArea, myThid )
INTEGER numArea,numAreaPreTh,numHeff,numHeffPreTh
numArea = diagNum