Skip to content

Commit

Permalink
Add ice time variables to restart file (#1224)
Browse files Browse the repository at this point in the history
Co-authored-by: Nicholas Szapiro <149816583+NickSzapiro-NOAA@users.noreply.github.com>
  • Loading branch information
JessicaMeixner-NOAA and NickSzapiro-NOAA authored May 9, 2024
1 parent 8b5e91f commit c13d0b1
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions model/src/w3iorsmd.F90
Original file line number Diff line number Diff line change
Expand Up @@ -69,7 +69,7 @@ MODULE W3IORSMD
!/
!/ Private parameter statements (ID strings)
!/
CHARACTER(LEN=10), PARAMETER, PRIVATE :: VERINI = '2021-05-28'
CHARACTER(LEN=10), PARAMETER, PRIVATE :: VERINI = '2024-04-26'
CHARACTER(LEN=26), PARAMETER, PRIVATE :: &
IDSTR = 'WAVEWATCH III RESTART FILE'
!/
Expand Down Expand Up @@ -845,7 +845,7 @@ SUBROUTINE W3IORS ( INXOUT, NDSR, DUMFPI, IMOD, FLRSTRT )
WRITEBUFF(:) = 0.
WRITE (NDSR,POS=RPOS,ERR=803,IOSTAT=IERR) WRITEBUFF
WRITE (NDSR,POS=RPOS,ERR=803,IOSTAT=IERR) &
TLEV, TICE, TRHO
TLEV, TICE, TRHO, TIC1, TIC5
DO IPART=1,NPART
NREC = NREC + 1
RPOS = 1_8 + LRECL*(NREC-1_8)
Expand Down Expand Up @@ -1026,7 +1026,7 @@ SUBROUTINE W3IORS ( INXOUT, NDSR, DUMFPI, IMOD, FLRSTRT )
IF (TYPE.EQ.'FULL') THEN
RPOS = 1_8 + LRECL*(NREC-1_8)
READ (NDSR,POS=RPOS,ERR=802,IOSTAT=IERR) &
TLEV, TICE, TRHO
TLEV, TICE, TRHO, TIC1, TIC5
DO IPART=1,NPART
NREC = NREC + 1
RPOS = 1_8 + LRECL*(NREC-1_8)
Expand Down

0 comments on commit c13d0b1

Please sign in to comment.