From 3ffe3a813a4ac9a81557557182f99106bee608ef Mon Sep 17 00:00:00 2001
From: Guido Leenders <guido.leenders@invantive.com>
Date: Sun, 15 Nov 2020 12:01:54 +0100
Subject: [PATCH] Fix bug when negative coordinates would be used.

Has no impact on current outcome of model when applied to the Netherlands, but is looming bug when applying OPS on other areas.
---
 ops_get_dim.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ops_get_dim.f90 b/ops_get_dim.f90
index f08b227..77864fa 100644
--- a/ops_get_dim.f90
+++ b/ops_get_dim.f90
@@ -187,9 +187,9 @@ SUBROUTINE ops_get_dim(spgrid, igrens, xc, yc, grid, nrcol, nrrow, nrrcp, xorg,
 !
 ! Initialise maximum and minimum of x and y coordinates of receptor points
 !
-  xmax = tiny(xmax)
+  xmax = -huge(xmax)
   xmin = huge(xmin)
-  ymax = tiny(ymax)
+  ymax = -huge(ymax)
   ymin = huge(xmin)
 !
 ! --- Skip header if present ---