From 32a37f54e113b97614464aacad7654a084d00b9a Mon Sep 17 00:00:00 2001 From: Jiwon Gim Date: Wed, 31 Jul 2024 15:30:10 -0600 Subject: [PATCH] write stringt --- src/radiative_transfer/radiator_warehouse.F90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/radiative_transfer/radiator_warehouse.F90 b/src/radiative_transfer/radiator_warehouse.F90 index 6615d51f..a075f47b 100644 --- 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