🐛 zero windspeed on zero meridian

SanderHulst · Aug 12, 2020 · 9d5f8f5 · 9d5f8f5
1 parent ca35173
commit 9d5f8f5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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