devel: rename x. to this.

src/Fvcom.fs

@@ -21,14 +21,14 @@ type FvcomGrid = {
     Siglev: single[,]
 } with
     interface IGrid with
-        member x.getVertex n = x.Nodes[n]
-        member x.getCell n = x.Elem[n]
-        member x.getCellVertices n =
-            let a, b, c = x.Elem[n]
-            x.Nodes[a], x.Nodes[b], x.Nodes[c]
-        member x.getVertices() = x.Nodes
-        member x.getCells() = x.Elem
-        member x.getBoundingBox() = x.BBox
+        member this.getVertex n = this.Nodes[n]
+        member this.getCell n = this.Elem[n]
+        member this.getCellVertices n =
+            let a, b, c = this.Elem[n]
+            this.Nodes[a], this.Nodes[b], this.Nodes[c]
+        member this.getVertices() = this.Nodes
+        member this.getCells() = this.Elem
+        member this.getBoundingBox() = this.BBox
     static member empty = {
         Elem = Array.empty
         Nodes = Array.empty

src/ROMS.fs

@@ -179,13 +179,13 @@ let genRomsToFvcomAdjoints (proj: IProj) (fvcom: Grid) (roms: RomsGrid) =
         let vM = getNearestCell proj fvcom (roms.pos.v, roms.wetMask.v)
         uM, vM
     { new IRomsToFvcom with
-        member x.uv = true
-        member x.rhoToFvcom m = adjoinMatrix rhoM m
-        member x.uToFvcom m = adjoinMatrix (fst uvMappings) m
-        member x.vToFvcom m = adjoinMatrix (snd uvMappings) m
-        member x.rhoAdjoint = rhoM
-        member x.uAdjoint = fst uvMappings
-        member x.vAdjoint = snd uvMappings
+        member this.uv = true
+        member this.rhoToFvcom m = adjoinMatrix rhoM m
+        member this.uToFvcom m = adjoinMatrix (fst uvMappings) m
+        member this.vToFvcom m = adjoinMatrix (snd uvMappings) m
+        member this.rhoAdjoint = rhoM
+        member this.uAdjoint = fst uvMappings
+        member this.vAdjoint = snd uvMappings
     }
 
 let adjoinRomsToFvcom (proj: IProj) (fvcom: Grid) (roms: RomsGrid) (props: RomsProps) =