simplify level querying

MetOffice · Aug 19, 2024 · b4efa39 · b4efa39
1 parent dfae86a
commit b4efa39
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src/opsinputs/opsinputs_fill_mod.F90 b/src/opsinputs/opsinputs_fill_mod.F90
@@ -1362,7 +1362,6 @@ subroutine opsinputs_fill_fillrealfromgeoval( &
 ! Local declarations:
 type(ufo_geoval), pointer                       :: GeoVal
 real(kind_real)                                 :: MissingReal
-integer(integer64), dimension(2)                :: GeoValShape
 integer(integer64)                              :: LvlIdx
 
 character(len=*), parameter                     :: &
@@ -1399,8 +1398,7 @@ subroutine opsinputs_fill_fillrealfromgeoval( &
       ! Ops_BGEandCXCreate.inc line 166 and Ops_CxComplete.inc line 299. This
       ! field is only used for surface visibility calculations so no further
       ! specific handling is required.
-      GeoValShape = shape(GeoVaL % vals)
-      LvlIdx = GeoValShape(1)  ! Usually 70
+      LvlIdx = shape(GeoVaL % vals, dim=1)  ! Usually 70
     else
       LvlIdx = 1
     end if