Remove debug output for control file check progream

geodynamics · Aug 10, 2023 · d7a1efb · d7a1efb
1 parent a2ffb44
commit d7a1efb
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/Fortran_libraries/VIZ_src/surfacing/ctl_file_isosurfaces_IO.f90 b/src/Fortran_libraries/VIZ_src/surfacing/ctl_file_isosurfaces_IO.f90
@@ -187,7 +187,8 @@ subroutine write_files_4_iso_ctl                                  &
 !
       level = write_array_flag_for_ctl(id_control, level, hd_block)
       do i = 1, iso_ctls%num_iso_ctl
-        write(*,'(2a,i4)', ADVANCE='NO') trim(hd_block), ' No. ', i
+        write(*,'(3a,i4)', ADVANCE='NO') '! ', trim(hd_block),          &
+     &                                   ' No. ', i
         call sel_write_control_4_iso_file                               &
      &     (id_control, hd_block, iso_ctls%fname_iso_ctl(i),            &
      &      iso_ctls%iso_ctl_struct(i), level)
@@ -218,12 +219,12 @@ subroutine sel_write_control_4_iso_file(id_control, hd_block,     &
         call write_iso_control_data(id_control, hd_block,               &
      &                              iso_ctl_struct, level)
       else if(id_control .eq. id_monitor) then
-        write(*,'(2a)', ADVANCE='NO')                                   &
+        write(*,'(2a)')                                                 &
      &            ' should be written to file ... ', trim(file_name)
         call write_iso_control_data(id_control, hd_block,               &
      &                              iso_ctl_struct, level)
       else
-        write(*,'(3a)', ADVANCE='NO')  trim(hd_block),                  &
+        write(*,'(3a)')  trim(hd_block),                                &
      &            ' is written to file ... ', trim(file_name)
         call write_file_name_for_ctl_line(id_control, level,            &
      &                                    hd_block, file_name)

diff --git a/src/Fortran_libraries/VIZ_src/surfacing/t_control_data_4_fld_on_psf.f90 b/src/Fortran_libraries/VIZ_src/surfacing/t_control_data_4_fld_on_psf.f90
@@ -114,7 +114,6 @@ subroutine init_fld_on_psf_control(hd_block, fld_on_psf_c)
       fld_on_psf_c%block_name = hd_block
         call init_chara2_ctl_array_label                                &
      &     (hd_iso_result_field, fld_on_psf_c%field_output_ctl)
-      write(*,*) 'fld_on_psf_c%field_output_ctl', fld_on_psf_c%field_output_ctl%array_name
 !
         call init_chara_ctl_item_label(hd_result_type,                  &
      &      fld_on_psf_c%output_type_ctl)