Skip to content

Commit

Permalink
Update local unit number arrays (NDS, MDS) to be same size of array d…
Browse files Browse the repository at this point in the history
…efined in w3odatmd (size=15). Also, defined unit numbers for NDS(14) and NDS(15). (#1098)
  • Loading branch information
ukmo-ccbunney authored Oct 16, 2023
1 parent eff6686 commit d148d09
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 2 deletions.
2 changes: 1 addition & 1 deletion model/src/w3initmd.F90
Original file line number Diff line number Diff line change
Expand Up @@ -456,7 +456,7 @@ SUBROUTINE W3INIT ( IMOD, IsMulti, FEXT, MDS, MTRACE, ODAT, FLGRD, FLGR2, FLGD,
!/ ------------------------------------------------------------------- /
!/ Parameter list
!/
INTEGER, INTENT(IN) :: IMOD, MDS(13), MTRACE(2), &
INTEGER, INTENT(IN) :: IMOD, MDS(15), MTRACE(2), &
ODAT(40),NPT, IPRT(6),&
MPI_COMM
LOGICAL, INTENT(IN) :: IsMulti
Expand Down
5 changes: 4 additions & 1 deletion model/src/ww3_shel.F90
Original file line number Diff line number Diff line change
Expand Up @@ -329,7 +329,7 @@ PROGRAM W3SHEL
NDSEN, IERR, J, I, ILOOP, IPTS, NPTS, &
NDTNEW, MPI_COMM = -99, &
FLAGTIDE, COUPL_COMM, IH, N_TOT
INTEGER :: NDSF(-7:9), NDS(13), NTRACE(2), NDT(7:9), &
INTEGER :: NDSF(-7:9), NDS(15), NTRACE(2), NDT(7:9), &
TIME0(2), TIMEN(2), TTIME(2), TTT(2), &
NH(-7:10), THO(2,-7:10,NHMAX), RCLD(7:9), &
NODATA(7:9), ODAT(40), IPRT(6) = 0, &
Expand Down Expand Up @@ -600,6 +600,9 @@ PROGRAM W3SHEL
NDS(11) = 22
NDS(12) = 23
NDS(13) = 34
NDS(14) = 36
NDS(15) = 37

!
NTRACE(1) = NDS(3)
NTRACE(2) = 10
Expand Down

0 comments on commit d148d09

Please sign in to comment.