From a2e36b8579dfc01a8be29c91cdca3b0711612b4d Mon Sep 17 00:00:00 2001 From: "Katherine (Katy) Barnhart" Date: Wed, 17 Sep 2025 16:50:53 -0700 Subject: [PATCH] make index dynamic --- src/2d/shallow/fgout_module.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/2d/shallow/fgout_module.f90 b/src/2d/shallow/fgout_module.f90 index b583df59e..a7ef7ecd3 100644 --- a/src/2d/shallow/fgout_module.f90 +++ b/src/2d/shallow/fgout_module.f90 @@ -225,12 +225,12 @@ subroutine set_fgout(rest,num_eqn,fname) write(6,*) '+++ nqout = ',fg%nqout ! Allocate new fixed grid data arrays at early, late time: - ! dimension (10,:,:) to work for either GeoClaw or D-Claw + ! dimension (fg%time_index,:,:) to work for either GeoClaw or D-Claw - allocate(fg%early(10, fg%mx,fg%my)) + allocate(fg%early(fg%time_index, fg%mx,fg%my)) fg%early = nan() - allocate(fg%late(10, fg%mx,fg%my)) + allocate(fg%late(fg%time_index, fg%mx,fg%my)) fg%late = nan() enddo @@ -445,7 +445,7 @@ subroutine fgout_write(fgrid,out_time,out_index) ! Other locals integer :: i,j,m,iq,k,jq,num_eqn - real(kind=8) :: t0,tf,tau, qaug(10) + real(kind=8) :: t0,tf,tau, qaug(fgrid%time_index) real(kind=8), allocatable :: qeta(:,:,:) real(kind=4), allocatable :: qeta4(:,:,:) real(kind=8) :: h_early,h_late,topo_early,topo_late