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