write stringt

NCAR · Jul 31, 2024 · 32a37f5 · 32a37f5
1 parent 8fdd93c
commit 32a37f5
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/radiative_transfer/radiator_warehouse.F90 b/src/radiative_transfer/radiator_warehouse.F90
@@ -175,9 +175,11 @@ function get_radiator_char( this, name ) result( radiator )
 
     type(radiator_warehouse_ptr) :: ptr
 
+    write(*,*) "   [tuvx] before get_radiator_char( this, name )"
     ptr = this%get_ptr_char( name )
+    write(*,*) "   [tuvx] mid get_radiator_char( this, name )"
     radiator => this%radiators_( ptr%index_ )%val_
-
+    write(*,*) "   [tuvx] after get_radiator_char( this, name )"
   end function get_radiator_char
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -251,7 +253,6 @@ function get_ptr_char( this, name ) result( ptr )
     ! debug
     ! 
     write(*,*) "  [jiwon] get_ptr_char / name: ", name
-    ! write(*,*) "  [jiwon] name", this%radiators_( ndx )%val_%handle_
     do ndx = 1, size( this%radiators_ )
       write(*,*) this%radiators_( ndx )%val_%handle_%val_
       if( name .eq. this%radiators_( ndx )%val_%handle_ ) then