From ca64f487747e3a985dc3e08b74b4e81e814aa8e5 Mon Sep 17 00:00:00 2001 From: Slavko Brdar Date: Tue, 14 Nov 2023 15:57:08 +0000 Subject: [PATCH] add cpu timings to sandbox/atlas_filter.F90 --- src/sandbox/interpolation/atlas-filter.F90 | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/src/sandbox/interpolation/atlas-filter.F90 b/src/sandbox/interpolation/atlas-filter.F90 index 69962d5d4..f1fdd13da 100644 --- a/src/sandbox/interpolation/atlas-filter.F90 +++ b/src/sandbox/interpolation/atlas-filter.F90 @@ -184,6 +184,7 @@ program filtering type(atlas_MeshGenerator) :: meshgen type(atlas_Output) :: gmsh + real :: start_time, end_time real(kind=JPRB), pointer :: sfield_v(:) call atlas_library%initialise() @@ -195,9 +196,10 @@ program filtering gmsh = atlas_output_Gmsh("mesh.msh", "w") call gmsh%write(mesh) - print *, " == setting up atlas_Filter ..." + call cpu_time(start_time) filter = atlas_Filter(grid, mesh) - print *, " == atlas_Filter is set up" + call cpu_time(end_time) + print *, " filter.setup in seconds: ", start_time - end_time fspace = filter%source() sfield = fspace%create_field(name="sfield", kind=atlas_real(JPRB)) @@ -206,7 +208,10 @@ program filtering call gmsh%write(sfield) + call cpu_time(start_time) call filter.execute(sfield) + call cpu_time(end_time) + print *, " filter.exe in seconds: ", start_time - end_time call gmsh%write(sfield)