Bugfix in ww3_ounf.ftn: NBIPART check against NOSWLL was not accoutin…

…g for zeroth wind partition. See Issue #2.
ukmo-waves · Mar 28, 2019 · 14ba7e0 · 14ba7e0
1 parent 913dc83
commit 14ba7e0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/model/ftn/ww3_ounf.ftn b/model/ftn/ww3_ounf.ftn
@@ -381,7 +381,7 @@
 
       ! Alternative processing of TABIPART to capture requests 
       ! greater than NOSWLL (C.Bunney):
-      ALLOCATE(TABIPART(NOSWLL))
+      ALLOCATE(TABIPART(NOSWLL + 1))
       NBIPART=0
       DO I=1,30
         IF(STRINGIPART(I:I) .EQ. ' ') CYCLE
@@ -391,7 +391,7 @@
            CYCLE
         ENDIF
         NBIPART = NBIPART + 1
-        IF(NBIPART .GT. NOSWLL) THEN
+        IF(NBIPART .GT. NOSWLL + 1) THEN
            GOTO 803
         ENDIF
         TABIPART(NBIPART) = IPART