Increase digits in station output time stamp.

schism-dev · Dec 19, 2023 · a542f23 · a542f23
1 parent c36e949
commit a542f23
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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...'