clean: remove unused variables

Co-authored-by: Federico Perini <[email protected]>

Author: krystophny

example_packages/metapackage_netcdf/app/main.f90

@@ -3,10 +3,6 @@ program metapackage_netcdf
     implicit none
 
     integer(c_int) :: ncid, retval
-    integer(c_int) :: ncsize = 16
-    character(c_char), allocatable, target :: memfile(:)
-
-    allocate (memfile(ncsize))
 
     retval = nf_create("dummy.nc", NF_INMEMORY, ncid)
     if (retval .ne. nf_noerr) error stop