In[]:=
data=
;
​​(*-----------------------------------------------------------*)​​dection[x_]:=Module{results={},sample,candidate,disk,lower,upper},​​Do​​{{sample},candidate}=TakeDrop[x,{i}];​​disk=RegionMember@Polygon[#[[All,1]]]&@TableGeoDestinationGeoPosition@sample[[2,4]],GeoDisplacement
3
km
,Quantity[a,"Degrees"],{a,0,359};​​candidate=Select[disk@#[[2,4]]&]@candidate;​​If[Length@candidate>=3,​​{lower,upper}={If[#<0,0,#]&@(#[[1]]-#[[3]]),#[[2]]+#[[3]]}&@{#[[1]],#[[2]],1.5Subtract[#[[2]],#[[1]]]}&@Quantile[#[[All,2,2]],{0.25,0.75}]&@candidate;​​AppendTo[sample[[2]],Which[Between[#,{lower,upper}],{"
S
N
",None},#>upper,{"
S
H
",upper},#<lower,{"
S
L
",lower}]]&@sample[[2,2]],​​AppendTo[sample[[2]],{"
S
U
",None}];​​];​​AppendTosample[[2]],If#>Max10,
#
3
,"
T
O
","
T
N
"&@sample[[2,2]];​​AppendTo[results,sample];​​,{i,1,Length@x};​​Return[results];​​;
​​job=RemoteBatchMapSubmit[env,dection@#&,data];