fix: comply with simply contiguous rule

Author: wpbonelli

src/Utilities/Export/NCExportCreate.f90

@@ -154,6 +154,7 @@ subroutine create_export_pkglist(pkglist, loaders, iout)
     class(AsciiDynamicPkgLoadBaseType), pointer :: rp_loader
     type(ExportPackageType), pointer :: export_pkg
     integer(I4B), pointer :: export_arrays
+    integer(I4B), dimension(:), pointer, contiguous :: mshape
     class(*), pointer :: obj
     logical(LGP) :: found, readasarrays
     integer(I4B) :: n
@@ -187,17 +188,19 @@ subroutine create_export_pkglist(pkglist, loaders, iout)
           type is (LayerArrayLoadType)
             ! create the export object
             allocate (export_pkg)
+            mshape => rp_loader%ctx%mshape
             call export_pkg%init(rp_loader%mf6_input, &
-                                 rp_loader%ctx%mshape, &
+                                 mshape, &
                                  rp_loader%ctx%naux, &
                                  rp_loader%param_names, rp_loader%nparam)
             obj => export_pkg
             call pkglist%add(obj)
           type is (GridArrayLoadType)
             ! create the export object
             allocate (export_pkg)
+            mshape => rp_loader%ctx%mshape
             call export_pkg%init(rp_loader%mf6_input, &
-                                 rp_loader%ctx%mshape, &
+                                 mshape, &
                                  rp_loader%ctx%naux, &
                                  rp_loader%param_names, rp_loader%nparam)
             obj => export_pkg