Merge branch 'marshallward-hiprec' into dev/gfdl

nikizadehgfdl · Jul 25, 2019 · 547c0cd · 547c0cd
2 parents d9bf834 + ba2ea2d
commit 547c0cd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/SIS_sum_output.F90 b/src/SIS_sum_output.F90
@@ -573,7 +573,7 @@ subroutine write_ice_statistics(IST, day, n, G, IG, CS, message, check_column, t
   if (is_root_pe()) then
     Heat_anom_norm = 0.0 ; if (Heat /= 0.0) Heat_anom_norm = Heat_anom/Heat
     Salt_anom_norm = 0.0 ; if (Salt /= 0.0) Salt_anom_norm = Salt_anom/Salt
-    write(CS%statsfile_ascii,'(A,", Area", 2(ES19.12), ", Ext", 2(es11.4), ", CFL", F6.3, &
+    write(CS%statsfile_ascii,'(A,", Area", 2(ES23.16), ", Ext", 2(es11.4), ", CFL", F6.3, &
                 &", M",2(ES12.5),", Enth",2(ES13.5),", S ",2(f8.4),", Me ",ES9.2,&
                 &", Te ",ES9.2,", Se ",ES9.2)') &
           trim(msg_start), Area_NS(1:2), Extent_NS(1:2), max_CFL, mass_NS(1:2), &