Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Add PIO switch #1324

Merged
merged 4 commits into from
Dec 5, 2024
Merged

Add PIO switch #1324

Changes from 1 commit
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
40fa6b4
add PIO switch
JessicaMeixner-NOAA Nov 20, 2024
9517df7
update cmake source list for future day of pio being used by
JessicaMeixner-NOAA Nov 20, 2024
f528003
change location of PIO ifdefs to skip larger block
JessicaMeixner-NOAA Nov 21, 2024
615236b
update w3init to expand section in PIO switches
JessicaMeixner-NOAA Nov 22, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
change location of PIO ifdefs to skip larger block
  • Loading branch information
@JessicaMeixner-NOAA
JessicaMeixner-NOAA committed Nov 21, 2024
commit f5280035d1ece97b1a0318de15210f6d85e339e0
9 changes: 5 additions & 4 deletions model/src/w3wavemd.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2356,29 +2356,30 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
! Delay if data assimilation time.
!
!
#ifdef W3_PIO
if (dsec21(time,tend) == 0.0) then ! req'd in case waves are running in slow loop

if (use_historync) then
floutg = .false.
floutg2 = .false.
if (histwr) then
call w3cprt (imod)
call w3outg (va, flpfld, .true., .false. )
#ifdef W3_PIO
call write_history(tend)
#endif
end if
end if

if (use_restartnc) then
if (rstwr) then
call set_user_timestring(tend,user_timestring)
fname = trim(user_restfname)//trim(user_timestring)//'.nc'
#ifdef W3_PIO
call write_restart(trim(fname), va, mapsta+8*mapst2)
#endif
end if
end if

end if
#endif


IF ( TOFRST(1) .EQ. -1 ) THEN
DTTST = 1.
Expand Down
Loading