diff --git a/src/radiative_transfer/radiator_warehouse.F90 b/src/radiative_transfer/radiator_warehouse.F90
index 61eb0142..1ec163e8 100644
--- a/src/radiative_transfer/radiator_warehouse.F90
+++ b/src/radiative_transfer/radiator_warehouse.F90
@@ -254,7 +254,7 @@ function get_ptr_char( this, name ) result( ptr )
     ! write(*,*) "  [jiwon] name", this%radiators_( ndx )%val_%handle_
     do ndx = 1, size( this%radiators_ )
       if( name .eq. this%radiators_( ndx )%val_%handle_ ) then
-        write(*,*) "  [jiwon] name", this%radiators_( ndx )%val_%handle_
+        ! write(*,*) "  [jiwon] name", this%radiators_( ndx )%val_%handle_
         found = .true.
         exit
       endif