If[microthermoQ,deltaTLaplacePressureTerm=Map[<|"deltaTLaplacePressure"->#|>&,Map[Quantity[deltaTLaplacePressure[Delete[Thread[QuantityMagnitude[{#["ObservedHomogenizationTemperature"],0.005(*thinkthisfurther*),#["Concentration"][Entity["Chemical","SodiumChloride"]],#["Concentration"][Entity["Chemical","PotassiumChloride"]],#["Concentration"][Entity["Chemical","MagnesiumChloride"]],#["Concentration"][Entity["Chemical","CalciumChloride"]],#["Concentration"][Entity["Chemical","SodiumSulfate"]],#["Concentration"][Entity["Chemical","SodiumHydrogencarbonate"]],0,(QuantityMagnitude@(#["Length"]*#["Width"]))^(3/2)}]],0]],"DegreesCelsiusDifference"]&,inputAssociation2,{2}],{2}];outputAssociation=Map[Append[#,With[{pos1=Position[inputAssociation2,#][[1,1]][[1]],pos2=Position[inputAssociation2,#][[1,2]][[1]]},<|FISize[pos1,pos2],FIArea[pos1,pos2],FIVolume[pos1,pos2],deltaTLaplacePressureTerm[pos1,pos2]|>](*#isthesecondlevelofinputAssociation2,[[1,1]]picksthelevel1key,[[1,2]]picksthelevel2keyand[[1]]spitsthekeystring*)]&,inputAssociation2,{2}];Thinf=Map[<|"InfiniteHomogenizationTemperature"->#|>&,Map[UnitConvert[(#["ObservedHomogenizationTemperature"]+#["deltaTLaplacePressure"]),"DegreesCelsius"]&,outputAssociation,{2}],{2}],outputAssociation=Map[Append[#,With[{pos1=Position[inputAssociation2,#][[1,1]][[1]],pos2=Position[inputAssociation2,#][[1,2]][[1]]},<|FISize[pos1,pos2],FIArea[pos1,pos2],FIVolume[pos1,pos2]|>](*#isthesecondlevelofinputAssociation2,[[1,1]]picksthelevel1key,[[1,2]]picksthelevel2keyand[[1]]spitsthekeystring*)]&,inputAssociation2,{2}];Thinf=Map[<|"InfiniteHomogenizationTemperature"->#|>&,Map[UnitConvert[Around[#["BrillouinIntersectionTemperature"],Quantity[10^-3,"DegreesCelsius"]],"DegreesCelsius"]&,outputAssociation,{2}],{2}];];outputAssociation=Map[Append[#,With[{pos1=Position[outputAssociation,#][[1,1]][[1]],pos2=Position[outputAssociation,#][[1,2]][[1]]},Thinf[pos1,pos2]](*#isthesecondlevelofoutputAssociation,[[1,1]]picksthelevel1key,[[1,2]]picksthelevel2keyand[[1]]spitsthekeystring*)]&,outputAssociation,{2}];Short[outputAssociation,20]