From 9d5f8f5cf733fa6024cbe338d79817e131dd6ab5 Mon Sep 17 00:00:00 2001 From: sanderh Date: Wed, 12 Aug 2020 10:31:09 +0200 Subject: [PATCH] :bug: zero windspeed on zero meridian --- model/ftn/wmupdtmd.ftn | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/model/ftn/wmupdtmd.ftn b/model/ftn/wmupdtmd.ftn index 84cf4439f..4b2761afe 100644 --- a/model/ftn/wmupdtmd.ftn +++ b/model/ftn/wmupdtmd.ftn @@ -1334,7 +1334,7 @@ DO J=IXS0, IXSN JJ=J IF ( FLAGLL ) THEN - IF ( ICLOSE.NE.ICLOSE_NONE ) JJ = 1 + MOD(J-1,NXI) + IF ( ICLOSE.NE.ICLOSE_NONE ) JJ = 1 + MOD(J-1+NXI,NXI) IF ( JJ.LT.1 .OR. JJ.GT. NXI ) CYCLE IXC = NINT((0.5*(XFL+XFR)-X0I-REAL(JJ-1)*SXI)/360.) IF ( IXC .NE. 0 ) THEN @@ -1874,7 +1874,7 @@ END IF DO J=IXS0, IXSN IF ( FLAGLL ) THEN - IF ( ICLOSE.NE.ICLOSE_NONE ) JJ = 1 + MOD(J-1,NXI) + IF ( ICLOSE.NE.ICLOSE_NONE ) JJ = 1 + MOD(J-1+NXI,NXI) IF ( JJ.LT.1 .OR. JJ.GT. NXI ) CYCLE IXC = NINT((0.5*(XFL+XFR)-X0I-REAL(JJ-1)*SXI)/360.) IF ( IXC .NE. 0 ) THEN