@@ -57,9 +57,13 @@ isantarctic(P, oceans) = P.lat ≤ -40
57
57
isatlantic2 (P, oceans) = isatlantic (P, oceans) && ! isantarctic (P, oceans)
58
58
ispacific2 (P, oceans) = ispacific (P, oceans) && ! isantarctic (P, oceans)
59
59
isindian2 (P, oceans) = isindian (P, oceans) && ! isantarctic (P, oceans)
60
+ convert_65S_to_90S (P:: Point2D{T} ) where T = Point2D (P. lat < - 65 ? T (- 65 ) : P. lat, P. lon)
61
+ isSOatlantic (P, oceans) = isatlantic (convert_65S_to_90S (P), oceans) && isantarctic (P, oceans)
62
+ isSOpacific (P, oceans) = ispacific (convert_65S_to_90S (P), oceans) && isantarctic (P, oceans)
63
+ isSOindian (P, oceans) = isindian (convert_65S_to_90S (P), oceans) && isantarctic (P, oceans)
60
64
isindonesian (P, oceans) = foldl (| , P ∈ oceans[i] for i in 11 : 37 ) # Indo throughflow (TODO fix name?)
61
65
for ocn in (:pacific , :atlantic , :indian , :arctic , :mediterranean , :antarctic ,
62
- :pacific2 , :atlantic2 , :indian2 , :indonesian )
66
+ :pacific2 , :atlantic2 , :indian2 , :indonesian , :SOatlantic , :SOpacific , :SOindian )
63
67
f = Symbol (:is , ocn)
64
68
@eval begin
65
69
"""
0 commit comments