ELSEIF ( trIdentity.GE.GAD_TR1
& .AND. trIdentity.LT.GAD_TR1+PTRACERS_numInUse) THEN
iTr = trIdentity - GAD_TR1 + 1
tracerId = iTrc + GAD_TR1 - 1
GAD_TR = GAD_TR1 + iTracer - 1
I GAD_TR1,
ELSEIF (tracerIdentity .GE. GAD_TR1) THEN
I tracerIdentity-GAD_TR1+1,
ELSEIF( tracerId.GE.GAD_TR1
WRITE(GAD_DIAG_SUFX,'(A,I2.2)') 'Tr',tracerId + 1-GAD_TR1
INTEGER GAD_TR1
PARAMETER(GAD_TR1=3)