Fix redundant setting for radial level of mean square output

geodynamics · Aug 3, 2020 · ebcb4fc · ebcb4fc
1 parent fee6644
commit ebcb4fc
Showing 1 changed file with 0 additions and 13 deletions.
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
@@ -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