Add more format specs for station outputs to avoid precision issue for

very small numbers (Kijin's suggestion).
schism-dev · Sep 30, 2022 · aaa98b3 · aaa98b3
1 parent 0bd04c1
commit aaa98b3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Hydro/schism_step.F90 b/src/Hydro/schism_step.F90
@@ -10067,7 +10067,7 @@ subroutine schism_step(it)
                 endif
               endif
             enddo !j
-            write(250+i,'(e14.6,6000(1x,e14.6))')time,sta_out_gb(:,i)
+            write(250+i,'(e14.6,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...'