From 8c78bec2a6ebacee637aa02b22ae64c814e29a78 Mon Sep 17 00:00:00 2001 From: edoapra Date: Tue, 20 Jun 2023 15:55:24 -0700 Subject: [PATCH] fix util_print for qmd module --- src/qmd/task_qmd.F | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/qmd/task_qmd.F b/src/qmd/task_qmd.F index 0434387190..cd4b201c75 100644 --- a/src/qmd/task_qmd.F +++ b/src/qmd/task_qmd.F @@ -34,7 +34,10 @@ c start clock c c invoke the qmd driver c if (ga_nodeid().eq.0) write(luout,*) "calling qmd_driver" + call util_print_push() + call util_print_rtdb_load(rtdb,'qmd') status = qmd_driver(rtdb) + call util_print_pop() c c stop clock cpu = util_cpusec() - cpu