INTEGER GAD_TR1
PARAMETER(GAD_TR1=3)
ELSEIF (trIdentity .GE. GAD_TR1) THEN
I trIdentity-GAD_TR1+1,
ELSEIF( tracerId.GE.GAD_TR1
& .AND. tracerId.LT.GAD_TR1+PTRACERS_num ) THEN
GAD_DIAG_SUFX = 'Tr'//PTRACERS_ioLabel( tracerId+1-GAD_TR1 )
IF (tracerIdentity .LT. GAD_TR1) THEN
IF ( trIdentity .GE. GAD_TR1 ) THEN
ELSEIF ( trIdentity.GE.GAD_TR1) THEN
iTr = trIdentity - GAD_TR1 + 1
IF ( trIdentity .GE. GAD_TR1) THEN
tracerId = iTrc + GAD_TR1 - 1
GAD_TR = GAD_TR1 + iTracer - 1
IF ( tracerId.GE.GAD_TR1) THEN