Always check lower-boundaries of lon and lat

J-Lentz · May 8, 2024 · ac1a63f · ac1a63f
1 parent 742a8db
commit ac1a63f
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/data_override/include/get_grid_version.inc b/data_override/include/get_grid_version.inc
@@ -47,15 +47,13 @@ subroutine GET_GRID_VERSION_1_(grid_file, mod_name, domain, lon, lat, min_lon, m
   call mpp_get_global_domain(domain, isg, ieg, jsg, jeg)
   call mpp_get_compute_domain(domain, isc, iec, jsc, jec)
 
-#ifdef _DEBUG
   if (lbound(lon,1).ne.isc .or. lbound(lon,2).ne.jsc) then
     call mpp_error(FATAL, "get_grid_version_1: Incorrect lower-bound dimensions of lon(isc:,jsc:)")
   endif
 
   if (lbound(lat,1).ne.isc .or. lbound(lat,2).ne.jsc) then
     call mpp_error(FATAL, "get_grid_version_1: Incorrect lower-bound dimensions of lat(isc:,jsc:)")
   endif
-#endif
 
   select case(mod_name)
   case('ocn', 'ice')
@@ -178,15 +176,13 @@ subroutine GET_GRID_VERSION_2_(fileobj, mod_name, domain, lon, lat, min_lon, max
 
   call mpp_get_compute_domain(domain, isc, iec, jsc, jec)
 
-#ifdef _DEBUG
   if (lbound(lon,1).ne.isc .or. lbound(lon,2).ne.jsc) then
     call mpp_error(FATAL, "get_grid_version_2: Incorrect lower-bound dimensions of lon(isc:,jsc:)")
   endif
 
   if (lbound(lat,1).ne.isc .or. lbound(lat,2).ne.jsc) then
     call mpp_error(FATAL, "get_grid_version_2: Incorrect lower-bound dimensions of lat(isc:,jsc:)")
   endif
-#endif
 
   ! get the grid file to read