numMateTr = numHeff
numMateTr = numArea
I diagCode, diagUnits, diagTitle, numMateTr, myThid )
INTEGER iTr, ilnb, numMateTr, numMateTrPreTh