diff --git a/model/src/wminitmd.F90 b/model/src/wminitmd.F90 index 7d39b94d94..4dad61f4ac 100644 --- a/model/src/wminitmd.F90 +++ b/model/src/wminitmd.F90 @@ -774,6 +774,7 @@ SUBROUTINE WMINIT ( IDSI, IDSO, IDSS, IDST, IDSE, IFNAME, & FLGR2(NOGRP,NGRPP,NRGRD),FLG2D(NOGRP,NGRPP), FLG1D(NOGRP), & FLG2(NOGRP,NRGRD),OUTFF(8,0:NRGRD)) ! + ODAT(:,:) = 0 MDS = -1 MDSF = -1 FLGR2 = .FALSE. @@ -4155,8 +4156,9 @@ SUBROUTINE WMINITNML ( IDSI, IDSO, IDSS, IDST, IDSE, IFNAME, & FLGRD(NOGRP,NGRPP,NRGRD), OT2(0:NRGRD), FLGD(NOGRP,NRGRD), & MDSF(-NRINP:NRGRD,JFIRST:9), IPRT(6,NRGRD), LPRT(NRGRD), & FLGR2(NOGRP,NGRPP,NRGRD),FLG2D(NOGRP,NGRPP), FLG1D(NOGRP), & - FLG2(NOGRP,NRGRD),OUTFF(7,0:NRGRD)) + FLG2(NOGRP,NRGRD),OUTFF(8,0:NRGRD)) ! + ODAT(:,:) = 0 MDS = -1 MDSF = -1 FLGR2 = .FALSE. diff --git a/model/src/wmwavemd.F90 b/model/src/wmwavemd.F90 index eefc411efb..e788d846af 100644 --- a/model/src/wmwavemd.F90 +++ b/model/src/wmwavemd.F90 @@ -401,6 +401,7 @@ SUBROUTINE WMWAVE ( TEND ) ! ! 0.d Output ! + TPRNT(:) = 0 IF ( MDSS.NE.MDSO .AND. NMPSCR.EQ.IMPROC ) THEN CALL WMPRNT ( MDSO, NRGRD, TSYNC(:,0), GRSTAT ) CALL STME21 ( TSYNC(:,0), MTIME )