WorkVar2 => HydroSolver % Mesh % Variables
IF (ParEnv % myPE == 0) THEN
  DO WHILE (ASSOCIATED(WorkVar2))
    PRINT *, 'VarName: ',WorkVar2 % Name
    IF (TRIM(WorkVar2 % Name) == 'normalstress') PRINT *, 'VarVal: ',WorkVar2 % Values
    WorkVar2 => WorkVar2 % Next
  END DO
END IF