Extend loop to include ghost points for VA (#975)

NOAA-EMC · Apr 17, 2023 · 6e34c68 · 6e34c68
1 parent 31e580b
commit 6e34c68
Show file tree

Hide file tree

Showing 3 changed files with 215 additions and 216 deletions.
diff --git a/model/src/w3iorsmd.F90 b/model/src/w3iorsmd.F90
@@ -827,7 +827,6 @@ SUBROUTINE W3IORS ( INXOUT, NDSR, DUMFPI, IMOD, FLRSTRT )
               !              Include remainder values (switch to record format) ---- *
               JSEA = NSEAL_MIN + 1
               IF ( JSEA.EQ.NSEAL ) THEN
-                !ISEA = IAPROC + (JSEA - 1) * NAPROC
                 CALL INIT_GET_ISEA(ISEA, JSEA)
                 NREC = ISEA + 2
                 RPOS = 1_8 + LRECL*(NREC-1_8)