From 6a0d60e0f2b205282d3b71be72ed7c6c5ee81cbf Mon Sep 17 00:00:00 2001 From: Jiwon Gim Date: Mon, 29 Jul 2024 18:34:55 -0600 Subject: [PATCH] minor fix --- src/core.F90 | 11 ++++++----- src/radiative_transfer/radiative_transfer.F90 | 1 - 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/core.F90 b/src/core.F90 index d3adbb5d..e51d5e96 100644 --- a/src/core.F90 +++ b/src/core.F90 @@ -381,9 +381,10 @@ function get_radiator( this, radiator_name ) result( radiator ) character(len=*), intent(in) :: radiator_name class(radiator_t), pointer :: radiator - call assert_msg( 285057977, associated( this%radiative_transfer_%radiator_warehouse_ ), & - "Radiators not available" ) - radiator => this%radiative_transfer_%radiator_warehouse_%get_radiator( radiator_name ) + call assert_msg( 285057977, associated( & + this%radiative_transfer_%radiator_warehouse_ ), "Radiators not available" ) + radiator => this%radiative_transfer_%radiator_warehouse_ & + %get_radiator( radiator_name ) end function get_radiator @@ -398,8 +399,8 @@ function get_radiator_warehouse( this ) result( radiator_warehouse ) class(core_t), intent(in) :: this class(radiator_warehouse_t), pointer :: radiator_warehouse - call assert_msg( 423051914, associated( this%radiative_transfer_%radiator_warehouse_ ), & - "Radiators not available" ) + call assert_msg( 423051914, associated( & + this%radiative_transfer_%radiator_warehouse_ ), "Radiators not available" ) radiator_warehouse => this%radiative_transfer_%radiator_warehouse_ end function get_radiator_warehouse diff --git a/src/radiative_transfer/radiative_transfer.F90 b/src/radiative_transfer/radiative_transfer.F90 index 16c1f6db..13c1b05f 100644 --- a/src/radiative_transfer/radiative_transfer.F90 +++ b/src/radiative_transfer/radiative_transfer.F90 @@ -11,7 +11,6 @@ module tuvx_radiative_transfer use musica_string, only : string_t use tuvx_cross_section_warehouse, only : cross_section_warehouse_t use tuvx_grid_warehouse, only : grid_warehouse_t - use tuvx_grid_warehouse, only : grid_warehouse_t use tuvx_la_sr_bands, only : la_sr_bands_t use tuvx_profile, only : profile_t use tuvx_profile_warehouse, only : profile_warehouse_ptr, profile_warehouse_t