use parameter for error code

NCAR · Mar 6, 2025 · 10e5b15 · 10e5b15
1 parent 095f398
commit 10e5b15
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/models/mpas_atm/model_mod.f90 b/models/mpas_atm/model_mod.f90
@@ -3267,7 +3267,7 @@ subroutine compute_u_with_rbf(state_handle, ens_size, loc, zonal, uval, ier)
 
 call find_surrounding_edges(lat, lon, nedges, edgelist, cellid, vertexid)
 if (nedges <= 0) then ! we are on a boundary, no interpolation
-    ier = 18
+    ier = RBF_U_COMPUTATION_ERROR
     return
  endif