Added NetCDF metapackage

Author: krystophny

src/fpm/manifest/meta.f90

@@ -52,6 +52,9 @@ module fpm_manifest_metapackages
         !> HDF5
         type(metapackage_request_t) :: hdf5
 
+        !> NetCDF
+        type(metapackage_request_t) :: netcdf
+
     end type metapackage_config_t
 
 
@@ -203,6 +206,9 @@ subroutine new_meta_config(self, table, meta_allowed, error)
         call new_meta_request(self%hdf5, "hdf5", table, meta_allowed, error)
         if (allocated(error)) return
 
+        call new_meta_request(self%netcdf, "netcdf", table, meta_allowed, error)
+        if (allocated(error)) return
+
     end subroutine new_meta_config
 
     !> Check local schema for allowed entries
@@ -214,7 +220,7 @@ logical function is_meta_package(key)
         select case (key)
 
             !> Supported metapackages
-            case ("openmp","stdlib","mpi","minpack","hdf5")
+            case ("openmp","stdlib","mpi","minpack","hdf5","netcdf")
                 is_meta_package = .true.
 
             case default

src/fpm_meta.f90

@@ -30,6 +30,7 @@ module fpm_meta
     use fpm_meta_minpack, only: init_minpack
     use fpm_meta_mpi, only: init_mpi
     use fpm_meta_hdf5, only: init_hdf5
+    use fpm_meta_netcdf, only: init_netcdf
 
     use shlex_module, only: shlex_split => split
     use regex_module, only: regex
@@ -61,6 +62,7 @@ subroutine init_from_name(this,name,compiler,error)
             case("minpack"); call init_minpack(this,compiler,error)
             case("mpi");     call init_mpi    (this,compiler,error)
             case("hdf5");    call init_hdf5   (this,compiler,error)
+            case("netcdf");  call init_netcdf (this,compiler,error)
             case default
                 call syntax_error(error, "Package "//name//" is not supported in [metapackages]")
                 return
@@ -153,6 +155,12 @@ subroutine resolve_metapackage_model(model,package,settings,error)
             if (allocated(error)) return
         endif
 
+        ! netcdf
+        if (package%meta%netcdf%on) then
+            call add_metapackage_model(model,package,settings,"netcdf",error)
+            if (allocated(error)) return
+        endif
+
     end subroutine resolve_metapackage_model
 
 end module fpm_meta

src/metapackage/fpm_meta_netcdf.f90

@@ -0,0 +1,61 @@
+module fpm_meta_netcdf
+    use fpm_compiler, only: compiler_t, get_include_flag
+    use fpm_meta_base, only: metapackage_t, destroy
+    use fpm_meta_util, only: add_pkg_config_compile_options
+    use fpm_pkg_config, only: assert_pkg_config, pkgcfg_has_package, pkgcfg_list_all
+    use fpm_strings, only: string_t
+    use fpm_error, only: error_t, fatal_error
+
+    implicit none
+
+    private
+
+    public :: init_netcdf
+
+    contains
+
+    !> Initialize NetCDF metapackage for the current system
+    subroutine init_netcdf(this,compiler,error)
+        class(metapackage_t), intent(inout) :: this
+        type(compiler_t), intent(in) :: compiler
+        type(error_t), allocatable, intent(out) :: error
+
+        logical :: s
+        character(len=:), allocatable :: include_flag, libdir
+
+        include_flag = get_include_flag(compiler,"")
+
+        !> Cleanup
+        call destroy(this)
+        allocate(this%link_libs(0),this%incl_dirs(0),this%external_modules(0))
+        this%link_flags = string_t("")
+        this%flags = string_t("")
+
+        !> Assert pkg-config is installed
+        if (.not.assert_pkg_config()) then
+            call fatal_error(error, 'netcdf metapackage requires pkg-config')
+            return
+        end if
+
+        if (.not. pkgcfg_has_package('netcdf')) then
+            call fatal_error(error,'pkg-config could not find a suitable netcdf package.')
+        end if
+        call add_pkg_config_compile_options(this, 'netcdf', include_flag, libdir, error)
+        if (allocated(error)) return
+
+        if (.not. pkgcfg_has_package('netcdf-fortran')) then
+            call fatal_error(error, &
+                'pkg-config could not find a suitable netcdf-fortran package.')
+        end if
+        call add_pkg_config_compile_options(this, 'netcdf-fortran', include_flag, libdir, error)
+        if (allocated(error)) return
+
+
+        !> Add NetCDF modules as external
+        this%has_external_modules = .true.
+        this%external_modules = [string_t('netcdf')]
+
+        print *, 'NetCDF metapackage initialized successfully.'
+
+    end subroutine init_netcdf
+end module fpm_meta_netcdf