diff --git a/CONTRIBUTORS.md b/CONTRIBUTORS.md index 87b192a11..7b90f68a6 100644 --- a/CONTRIBUTORS.md +++ b/CONTRIBUTORS.md @@ -34,3 +34,5 @@ | ukmo-juan-castillo | Juan M. Castillo | Met Office | 2026-03-24 | | mcdalvi | Mohit Dalvi | Met Office | 2026-06-19 | | cjohnson-pi | Christine Johnson | Met Office | 2026-06-29 | +| mo-claudiosanchez | Claudio Sanchez | Met Office | 2026-07-23 | + diff --git a/mesh_tools/source/support/gen_planar_mod.F90 b/mesh_tools/source/support/gen_planar_mod.F90 index b40befc7c..0d4fc2ba5 100644 --- a/mesh_tools/source/support/gen_planar_mod.F90 +++ b/mesh_tools/source/support/gen_planar_mod.F90 @@ -404,8 +404,8 @@ function gen_planar_constructor( reference_element, & write(rchar_y, '(F10.2)') domain_size(2) write(domain_size_str, '(A)') '['//trim(adjustl(rchar_x))// & ','//trim(adjustl(rchar_y))//']' - write(rchar_x, '(F10.2)') domain_centre(1) - write(rchar_y, '(F10.2)') domain_centre(2) + write(rchar_x, '(F10.6)') domain_centre(1) + write(rchar_y, '(F10.6)') domain_centre(2) write(domain_centre_str, '(A)') '['//trim(adjustl(rchar_x))// & ','//trim(adjustl(rchar_y))//']' diff --git a/mesh_tools/unit-test/gen_planar_mod_test_cartesian.pf b/mesh_tools/unit-test/gen_planar_mod_test_cartesian.pf index 1a293ae80..7c34d32e5 100644 --- a/mesh_tools/unit-test/gen_planar_mod_test_cartesian.pf +++ b/mesh_tools/unit-test/gen_planar_mod_test_cartesian.pf @@ -1316,8 +1316,8 @@ contains trim(adjustl(x_str))//','// & trim(adjustl(y_str))//']' - write(x_str, '(F10.2)') context%domain_centre(1) - write(y_str, '(F10.2)') context%domain_centre(2) + write(x_str, '(F10.6)') context%domain_centre(1) + write(y_str, '(F10.6)') context%domain_centre(2) write(domain_centre_str, '(A)') ';domain_centre=['// & trim(adjustl(x_str))//','// & trim(adjustl(y_str))//']' diff --git a/mesh_tools/unit-test/gen_planar_mod_test_spherical.pf b/mesh_tools/unit-test/gen_planar_mod_test_spherical.pf index 8142d04bf..a3d000b5a 100644 --- a/mesh_tools/unit-test/gen_planar_mod_test_spherical.pf +++ b/mesh_tools/unit-test/gen_planar_mod_test_spherical.pf @@ -363,8 +363,8 @@ contains trim(adjustl(x_str))//','// & trim(adjustl(y_str))//']' - write(x_str, '(F10.2)') context%domain_centre(1) - write(y_str, '(F10.2)') context%domain_centre(2) + write(x_str, '(F10.6)') context%domain_centre(1) + write(y_str, '(F10.6)') context%domain_centre(2) write(domain_centre_str, '(A)') ';domain_centre=['// & trim(adjustl(x_str))//','// & trim(adjustl(y_str))//']'