init Subroutine

    subroutine init(self)
        class(memory_type), intent(inout) :: self

        self%region = pif_obj%numbers(4)*14*rk/1000000
        ! self%nnps = storage_size(nnps_grid%grids)/8*size(nnps_grid%grids)/mb
        ! self%total = self%region + self%nnps

    end subroutine init