Skip to content

Commit

Permalink
Added # of staggering stacks for extracting forecast results
Browse files Browse the repository at this point in the history
  • Loading branch information
josephzhang8 committed Dec 3, 2024
1 parent 2830160 commit e063c0e
Showing 1 changed file with 5 additions and 3 deletions.
8 changes: 5 additions & 3 deletions src/Utility/Post-Processing-Fortran/read_output10_xyz.f90
Original file line number Diff line number Diff line change
Expand Up @@ -26,7 +26,7 @@
! (1) screen;
! (2) station.bp or station.sta
! (3) vgrid.in: in this dir or ../
! (4) out2d*.nc (for forecast, assume hotstart occurs at end of 1st stack of each forecast)
! (4) out2d*.nc
! (5) nc outputs for that variable(tri-quad)

! Outputs: fort.1[89]; fort.21 (magnitude), fort.22 (dir in deg in math convention); fort.20 - local depth for each pt.
Expand Down Expand Up @@ -90,7 +90,9 @@ program read_out
print*, 'Input start and end record # within each forecast:'
read(*,*)ifct_rec1,ifct_rec2
if(ifct_rec1>ifct_rec2) stop 'ifct_rec1>ifct_rec2'
print*, 'Input time offset (days) to be added to output start time:'
print*, 'Input # of offset stacks between starts of consecutive forecasts:'
read(*,*)istagger
print*, 'Input time origin offset (days) to be added to output start time:'
read(*,*)t_offset
endif

Expand Down Expand Up @@ -206,7 +208,7 @@ program read_out
!... Time iteration
!...
!Start time at the start of stack for forecast mode
start_time0=dtout*nrec*(iday1-1)
start_time0=dtout*istagger*nrec*(iday1-1)
do iday=iday1,iday2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
write(it_char,'(i12)')iday
Expand Down

0 comments on commit e063c0e

Please sign in to comment.