Explicitly return False when a diag is not used

NOAA-CEFI-Regional-Ocean-Modeling · Mar 20, 2024 · 3808548 · 3808548
1 parent a6e177f
commit 3808548
Showing 1 changed file with 8 additions and 0 deletions.
diff --git 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, &