minor fix

NCAR · Jul 30, 2024 · 6a0d60e · 6a0d60e
1 parent 19fcc7e
commit 6a0d60e
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git 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
@@ -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