From 3808548ba440fd2f8f4399c1921b1202c07b28cd Mon Sep 17 00:00:00 2001 From: "Andrew C. Ross" Date: Wed, 20 Mar 2024 15:51:39 -0400 Subject: [PATCH] Explicitly return False when a diag is not used --- generic_tracers/generic_tracer_utils.F90 | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/generic_tracers/generic_tracer_utils.F90 b/generic_tracers/generic_tracer_utils.F90 index 5d8c461..64469cd 100644 --- a/generic_tracers/generic_tracer_utils.F90 +++ b/generic_tracers/generic_tracer_utils.F90 @@ -3983,6 +3983,8 @@ LOGICAL FUNCTION g_send_data_0d(diag_field_id, field, time, err_msg, diag_CS) endif call post_data_MOM(diag_field_id, field, diag_CS_ptr) g_send_data_0d = .TRUE. + else + g_send_data_0d = .FALSE. endif #else g_send_data_0d = send_data_FMS(diag_field_id, field, time, err_msg) @@ -4011,6 +4013,8 @@ LOGICAL FUNCTION g_send_data_1d(diag_field_id, field, time, is_in, mask, rmask, endif call post_data_MOM(diag_field_id, field, diag_CS_ptr) g_send_data_1d = .TRUE. + else + g_send_data_1d = .FALSE. endif #else g_send_data_1d = send_data_FMS(diag_field_id, field, time, is_in, mask, rmask, ie_in, weight, err_msg) @@ -4040,6 +4044,8 @@ LOGICAL FUNCTION g_send_data_2d(diag_field_id, field, time, is_in, js_in, & endif call post_data_MOM(diag_field_id, field, diag_CS_ptr)!, mask=rmask) g_send_data_2d = .TRUE. + else + g_send_data_2d = .FALSE. endif #else g_send_data_2d = send_data_FMS(diag_field_id, field, time, is_in, js_in, & @@ -4070,6 +4076,8 @@ LOGICAL FUNCTION g_send_data_3d(diag_field_id, field, time, is_in, js_in, ks_in, endif call post_data_MOM(diag_field_id, field, diag_CS_ptr)!, mask=rmask) g_send_data_3d = .TRUE. + else + g_send_data_3d = .FALSE. endif #else g_send_data_3d = send_data_FMS(diag_field_id, field, time, is_in, js_in, ks_in, &