--- trunk/dyn3d/fxhyp.f 2015/02/10 17:58:56 127 +++ trunk/dyn3d/fxhyp.f 2015/02/12 16:23:33 128 @@ -205,6 +205,7 @@ print *, "Minimum longitude step:", MINval(d_rlonv) * 180. / pi, "degrees" print *, "Maximum longitude step:", MAXval(d_rlonv) * 180. / pi, "degrees" + ! Check that rlonm025 <= rlonv <= rlonp025 <= rlonu: DO i = 1, iim + 1 IF (rlonp025(i) < rlonv(i)) THEN print *, 'rlonp025(', i, ') = ', rlonp025(i)