PDAF library: Add fix from later version to PDAFomi_dim_obs_l

Author: jjokella

src/PDAFomi_dim_obs_l.F90

@@ -575,10 +575,7 @@ SUBROUTINE PDAFomi_check_dist2_loop(thisobs_l, thisobs, coordsA, cnt_obs, mode)
                    distflag = .FALSE.
                 ELSE
                    ! full squared distance
-                   distance2 = 0.0
-                   DO k = 1, thisobs%ncoord
-                      distance2 = distance2 + dists(k)*dists(k)
-                   END DO
+                   distance2 = dists(2)*dists(2)
                 END IF
              END IF
           END IF