vertSetCount = 0
vertSetCount = vertSetCount + 1
IF ( viscAr.NE.viscArDefault .AND. vertSetCount.GT.0 ) THEN
ELSEIF ( vertSetCount.GT.0 .AND. vertSetCount.LT.Nr ) THEN
& vertSetCount, ' /', Nr, ') of viscArNr is not allowed'
IF ( diffKrT.NE.diffKrTDefault .AND. vertSetCount.GT.0 ) THEN
& vertSetCount, ' /', Nr, ') of diffKrNrT is not allowed'
IF ( diffKrS.NE.diffKrSDefault .AND. vertSetCount.GT.0 ) THEN
& vertSetCount, ' /', Nr, ') of diffKrNrS is not allowed'
INTEGER vertSetCount