test code

NCAR · Jul 31, 2024 · 0a6f990 · 0a6f990
1 parent 559f3c5
commit 0a6f990
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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