Removed unused variables

src/main/dens.F90

@@ -1698,7 +1698,6 @@ subroutine calc_lambda_cell(cell,listneigh,nneigh,xyzh,xyzcache,vxyzu,iphase,gra
  real         :: uradi,dradi,dradxi,dradyi,dradzi,runix,runiy,runiz
  real         :: dT4,R_rad
  integer      :: ngradh_err
- real         :: uradself
 
  ngradh_err = 0
  over_parts: do icell = 1,cell%npcell

src/main/radiation_utils.f90

@@ -419,7 +419,7 @@ subroutine get_opacity(opacity_type,density,temperature,kappa,u)
  real, intent(in), optional :: u
  real, intent(out) :: kappa
  integer, intent(in) :: opacity_type
- real :: kapt,kapr,rho_cgs,Ti,gmwi,gammai,kapBar,kappaPart
+ real :: kapt,kapr,rho_cgs,Ti,gmwi,kapBar,kappaPart
 
  select case(opacity_type)
  case(1)

src/main/readwrite_dumps_fortran.f90

@@ -71,7 +71,7 @@ subroutine write_fulldump_fortran(t,dumpfile,ntotal,iorder,sphNG)
  use timestep,   only:dtmax,idtmax_n,idtmax_frac
  use part,       only:ibin,krome_nmols,T_gas_cool
  use metric_tools, only:imetric, imet_et
- use eos_stamatellos, only:gradP_cool,doFLD,urad_FLD,ttherm_store,teqi_store,opac_store
+ use eos_stamatellos, only:ttherm_store,teqi_store,opac_store
  real,             intent(in) :: t
  character(len=*), intent(in) :: dumpfile
  integer,          intent(in), optional :: iorder(:)
@@ -249,8 +249,7 @@ subroutine write_fulldump_fortran(t,dumpfile,ntotal,iorder,sphNG)
           endif
        endif
        ! write stamatellos cooling values
-       if (icooling == 9) then ! .and. doFLD) then
-!         call write_array(1,urad_FLD,'urad',npart,k,ipass,idump,nums,ierrs(13))
+       if (icooling == 9) then 
           call write_array(1,teqi_store,'teqi',npart,k,ipass,idump,nums,nerr)
           call write_array(1,ttherm_store,'ttherm',npart,k,ipass,idump,nums,nerr)
           call write_array(1,opac_store,'opacity',npart,k,ipass,idump,nums,nerr)