diff --git a/src/Fortran_libraries/SERIAL_src/IO/set_control_4_pickup_sph.f90 b/src/Fortran_libraries/SERIAL_src/IO/set_control_4_pickup_sph.f90
index 66dfb4e9..f7975f01 100644
--- a/src/Fortran_libraries/SERIAL_src/IO/set_control_4_pickup_sph.f90
+++ b/src/Fortran_libraries/SERIAL_src/IO/set_control_4_pickup_sph.f90
@@ -58,19 +58,6 @@ subroutine set_ctl_params_pick_sph
      &                                             iflag_spectr_lm = 0
 !
 !   set pickup layer for mean square data
-      nri_rms = 0
-      if(idx_spec_layer_ctl%num .gt. 0) then
-        nri_rms = idx_spec_layer_ctl%num
-        call allocate_num_spec_layer
-!
-        do inum = 1, nri_rms
-          kr_for_rms(inum) = idx_spec_layer_ctl%ivec(inum)
-        end do
-!
-        call deallocate_num_spec_layer_ctl
-      end if
-!
-!
       if(picked_mode_head_ctl%iflag .gt. 0) then
         pickup_sph_head = picked_mode_head_ctl%charavalue
       else