Skip to content

Commit d609a49

Browse files
initialize IOBDP for unstructured grid before writing to mod_def (#983)
1 parent 11d4f67 commit d609a49

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

model/src/w3iogrmd.F90

+2-1
Original file line numberDiff line numberDiff line change
@@ -746,9 +746,10 @@ SUBROUTINE W3IOGR ( INXOUT, NDSM, IMOD, FEXT )
746746
B_JGS_NORM_THR, &
747747
B_JGS_NLEVEL, &
748748
B_JGS_SOURCE_NONLINEAR
749-
!Init COUNTCON to zero, it needs to be set somewhere or
749+
!Init COUNTCON and IOBDP to zero, it needs to be set somewhere or
750750
!removed
751751
COUNTCON=0
752+
IOBDP=0
752753
WRITE (NDSM) &
753754
X0, Y0, SX, SY, DXYMAX, XGRD, YGRD, TRIGP, TRIA, &
754755
LEN, IEN, ANGLE0, ANGLE, SI, MAXX, MAXY, &

0 commit comments

Comments
 (0)