Update netcdf_err routine to abort for an error.

Prepend 'FATAL ERROR' to the error message as required by NCO. Fixes ufs-community#909.
GeorgeGayno-NOAA · Mar 12, 2024 · 33a8df2 · 33a8df2
1 parent 5e39d0a
commit 33a8df2
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/sorc/orog_mask_tools.fd/orog.fd/netcdf_io.F90 b/sorc/orog_mask_tools.fd/orog.fd/netcdf_io.F90
@@ -223,7 +223,8 @@ subroutine netcdf_err( err, string )
 
       if( err.EQ.NF_NOERR )return
       errmsg = NF_STRERROR(err)
-      print*, trim(string), ': ', trim(errmsg)
+      print*, 'FATAL ERROR: ', trim(string), ': ', trim(errmsg)
+      call abort
 
       return
     end subroutine netcdf_err