fix typo

ESCOMP · Jan 23, 2025 · f2f86fb · f2f86fb
1 parent 2a6ab9d
commit f2f86fb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/nuopc_shr_methods.F90 b/src/nuopc_shr_methods.F90
@@ -461,7 +461,7 @@ subroutine field_getfldptr(field, fldptr1, fldptr2, rank, abort, rc)
                ESMF_LOGMSG_INFO)
        elseif (lrank == 1) then
           if (.not.present(fldptr1)) then
-             call shr_abort_mod(trim(subname)//": ERROR missing rank=1 array ", &
+             call shr_sys_abort(trim(subname)//": ERROR missing rank=1 array ", &
                   line=__LINE__, file=u_FILE_u)
           endif
           call ESMF_FieldGet(field, farrayPtr=fldptr1, rc=rc)