From a542f233a8a83245c4aa29a6f4144393ae4b8604 Mon Sep 17 00:00:00 2001 From: Joseph Zhang Date: Tue, 19 Dec 2023 15:11:58 -0500 Subject: [PATCH] Increase digits in station output time stamp. --- src/Hydro/schism_step.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Hydro/schism_step.F90 b/src/Hydro/schism_step.F90 index 4bdc98893..d842b5664 100644 --- a/src/Hydro/schism_step.F90 +++ b/src/Hydro/schism_step.F90 @@ -10275,7 +10275,7 @@ subroutine schism_step(it) endif endif enddo !j - write(250+i,'(e14.6,6000(1x,e14.6e3))')time,sta_out_gb(:,i) + write(250+i,'(e24.16,6000(1x,e14.6e3))')time,sta_out_gb(:,i) ! if(i>4) write(250+i,'(e14.6,100000(1x,e14.6))')time,sta_out3d_gb(:,:,i),zta_out3d_gb(:,:,i) enddo !i write(16,*)'done station outputs...'