make_ungridded_dims Function

public function make_ungridded_dims(names) result(dims)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: names(:)

Return Value type(UngriddedDims)


Called by

proc~~make_ungridded_dims~~CalledByGraph proc~make_ungridded_dims make_ungridded_dims proc~test_cat_ungridded_dim_names test_cat_ungridded_dim_names proc~test_cat_ungridded_dim_names->proc~make_ungridded_dims

Source Code

    function make_ungridded_dims(names) result(dims)
       type(UngriddedDims) :: dims
       character(len=*), intent(in) :: names(:)
       type(UngriddedDim), allocatable :: dims_array(:)
       integer :: i
       character(len=:), allocatable :: name

       allocate(dims_array(size(names)))
       do i = 1, size(names)
         name = trim(names(i))
         dims_array(i) = UngriddedDim(len(name), name=name)
       end do

       dims = UngriddedDims(dims_array)

    end function make_ungridded_dims