LOGICAL trUseGMRedi, trUseKPP
I trUseGMRedi, trUseKPP,
IF ( trUseGMRedi ) THEN
& (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. trUseGMRedi) ) THEN
& (.NOT.implicitDiffusion .OR. trUseGMRedi) ) THEN
I trIdentity, trUseGMRedi, trUseKPP,
IF (trUseGMRedi) THEN