Convert _ASSERT to _FAIL for typekind check

GEOS-ESM · Jan 7, 2025 · 2833972 · 2833972
1 parent b79460d
commit 2833972
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/generic3g/actions/AccumulatorActionInterface.F90 b/generic3g/actions/AccumulatorActionInterface.F90
@@ -52,7 +52,9 @@ subroutine get_accumulator_action(accumulation_type, typekind, action, rc)
 
       integer :: status
 
-      _ASSERT(typekind == ESMF_TYPEKIND_R4, 'Unsupported typekind')
+      if(typekind /= ESMF_TYPEKIND_R4) then
+         _FAIL('Unsupported typekind')
+      end if
 
       select case(accumulation_type)
       case (SIMPLE_ACCUMULATION)