numMateTrPreTh = numHeffPreTh
numMateTrPreTh = numAreaPreTh
I diagCode, diagUnits, diagTitle, numMateTrPreTh, myThid )
INTEGER iTr, ilnb, numMateTr, numMateTrPreTh