Fix formatting

ExtremeFLOW · Oct 4, 2024 · f511098 · f511098
1 parent bdf47c4
commit f511098
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 12 deletions.
diff --git a/src/fluid/flow_ic.f90 b/src/fluid/flow_ic.f90
@@ -208,12 +208,12 @@ subroutine set_flow_ic_uniform(u, v, w, uinf)
     type(field_t), intent(inout) :: v
     type(field_t), intent(inout) :: w
     real(kind=rp), intent(in) :: uinf(3)
-    integer :: n
+    integer :: n, i
     character(len=LOG_SIZE) :: log_buf
 
     call neko_log%message("Type : uniform")
-    write (log_buf, '(A,"[",2(F10.6,","),F10.6,"]")') "Value: ", uinf(1), &
-         uinf(2), uinf(3)
+    write (log_buf, '(A, 3(ES12.6, A))') "Value: [", (uinf(i), ", ", i=1, 2), &
+         uinf(3), "]"
     call neko_log%message(log_buf)
 
     u = uinf(1)
@@ -242,10 +242,10 @@ subroutine set_flow_ic_blasius(u, v, w, delta, uinf, type)
     character(len=LOG_SIZE) :: log_buf
 
     call neko_log%message("Type         : blasius")
-    write (log_buf, '(A,F10.6)') "delta        : ", delta
+    write (log_buf, '(A,ES12.6)') "delta        : ", delta
     call neko_log%message(log_buf)
     call neko_log%message("Approximation : " // trim(type))
-    write (log_buf, '(A,"[",2(F10.6,","),F10.6,"]")') "Value         : ", &
+    write (log_buf, '(A,"[",2(ES12.6,","),ES12.6,"]")') "Value         : ", &
          uinf(1), uinf(2), uinf(3)
     call neko_log%message(log_buf)
 
@@ -312,10 +312,10 @@ subroutine set_flow_ic_point_zone(u, v, w, base_value, zone_name, zone_value)
     integer :: size
 
     call neko_log%message("Type       : point_zone")
-    write (log_buf, '(A,F10.6)') "Base value : ", base_value
+    write (log_buf, '(A,ES12.6)') "Base value : ", base_value
     call neko_log%message(log_buf)
     call neko_log%message("Zone name : " // trim(zone_name))
-    write (log_buf, '(A,"[",2(F10.6,","),F10.6,"]")') "Value      : ", &
+    write (log_buf, '(A,"[",2(ES12.6,","),ES12.6," ]")') "Value      : ", &
          zone_value(1), zone_value(2), zone_value(3)
     call neko_log%message(log_buf)
 
@@ -409,7 +409,7 @@ subroutine set_flow_ic_fld(u, v, w, p, file_name, &
                call neko_error("Invalid file name for the initial condition. &
 &The file format must be e.g. 'mean0.f00001'")
 
-          write (log_buf, '(A,ES13.6)') "Tolerance     :", tolerance
+          write (log_buf, '(A,ES12.6)') "Tolerance     : ", tolerance
           call neko_log%message(log_buf)
           write (log_buf, '(A,A)')     "Mesh file     : ", &
                trim(mesh_file_name)

diff --git a/src/scalar/scalar_ic.f90 b/src/scalar/scalar_ic.f90
@@ -194,7 +194,7 @@ subroutine set_scalar_ic_uniform(s, ic_value)
     character(len=LOG_SIZE) :: log_buf
 
     call neko_log%message("Type : uniform")
-    write (log_buf, '(A,F10.6)') "Value: ", ic_value
+    write (log_buf, '(A,ES12.6)') "Value: ", ic_value
     call neko_log%message(log_buf)
 
     s = ic_value
@@ -224,10 +224,10 @@ subroutine set_scalar_ic_point_zone(s, base_value, zone_name, zone_value)
     integer :: size
 
     call neko_log%message("Type       : point_zone")
-    write (log_buf, '(A,F10.6)') "Base value: ", base_value
+    write (log_buf, '(A,ES12.6)') "Base value: ", base_value
     call neko_log%message(log_buf)
     call neko_log%message("Zone name : " // trim(zone_name))
-    write (log_buf, '(A,F10.6)') "Zone value: ", zone_value
+    write (log_buf, '(A,ES12.6)') "Zone value: ", zone_value
     call neko_log%message(log_buf)
 
     size = s%dof%size()
@@ -311,7 +311,7 @@ subroutine set_scalar_ic_fld(s, file_name, &
                call neko_error("Invalid file name for the initial condition. &
 &The file format must be e.g. 'mean0.f00001'")
 
-          write (log_buf, '(A,ES13.6)') "Tolerance     :", tolerance
+          write (log_buf, '(A,ES12.6)') "Tolerance     : ", tolerance
           call neko_log%message(log_buf)
           write (log_buf, '(A,A)')     "Mesh file     : ", &
                trim(mesh_file_name)