polishing the comments

thanks @f-aportela !

src/initgrid.f90

@@ -10,8 +10,6 @@ subroutine initgrid(lo,hi,gt,gr,lmin,lmax,drc_g,drf_g,rc_g,rf_g)
  !
  ! initializes a non-uniform grid
  !
- ! NEEDS TO BE PROBABLY SLIGHTLY ADAPTED IN CASE IT IS IN THE MIDDLE OF A BLOCK
- !
  implicit none
  integer, parameter :: CLUSTER_TWO_END = 0, &
  CLUSTER_ONE_END = 1, &
@@ -175,7 +173,7 @@ subroutine gridpoint_cluster_one_end(alpha,r0,r)
  end subroutine gridpoint_cluster_one_end
  subroutine gridpoint_cluster_one_end_r(alpha,r0,r)
  !
- ! clustered at the lower side
+ ! clustered at the upper side
  !
  implicit none
  real(rp), intent(in ) :: alpha,r0
@@ -249,7 +247,7 @@ subroutine gridpoint_cluster_geometric_two_ends(alpha,r0,r)
  end subroutine gridpoint_cluster_geometric_two_ends
  subroutine gridpoint_cluster_geometric_middle(alpha,r0,r)
  !
- ! geometric progression towards each end
+ ! geometric progression towards the middle
  !
  implicit none
  real(rp), intent(in ) :: alpha,r0