Remove Warnings

src/TRPOST/Mad_He.f90

@@ -40,8 +40,8 @@ contains
       real(8) :: D0a2rd, D0al2, D0am2, D0as2, D0z, D0za2, Da2now, Da2now_h
       real(8) :: Da2now_l, Da2now_m, Da2then, Da2then_h, Da2then_l, Da2then_m
       real(8) :: Dal2now, Dal2then, Dam2now, Dam2then, Das2now, Das2then
-      real(8) :: dr, dt, dt0, Dza2now, Dza2then, Ea, Eard, Eaz, Et, eUh
-      real(8) :: eUl, eUm, fact, fstep, He_h, He_l, He_m, P_h, P_l, P_m, pi
+      real(8) :: dr, dt, dt0, Dza2now, Dza2then, Ea, Eard, Eaz, Et
+      real(8) :: fact, fstep, He_h, He_l, He_m, P_h, P_l, P_m, pi
       real(8) :: psi, R, S, temp, tempf, temps, Thh, Thhc, Thl, Thlc, Thm
       real(8) :: Thmc, Uh, Uhc, Ul, Ulc, Um, Umc
 

src/TRPOST/post_tracking.f90

@@ -81,7 +81,6 @@ real(8) :: age_Rutile_U_Pb
 real(8) :: age_Titanite_U_Pb
 real(8) :: age_Zircon_U_Pb    
 
-integer :: Mad_AFT_param, Mad_ZFT_param
 integer, DIMENSION(21) :: Mad_He_inputs
 
 !other variables

src/refine_surface.f90

@@ -304,8 +304,8 @@ if (params%remove_surf_pts) then
     !give warning and adjust remove_list to the correct length
     if (irem/=nrem) then
         if (iproc==0) then
-            write (*,'(a,i,a,i,a)') 'WARNING: ',nrem-irem, 'convex hull nodes would have been removed'
-            write (8,'(a,i,a,i,a)') 'WARNING: ',nrem-irem, 'convex hull nodes would have been removed'
+            write (*,'(a,i3,a)') 'WARNING: ',nrem-irem, 'convex hull nodes would have been removed'
+            write (8,'(a,i3,a)') 'WARNING: ',nrem-irem, 'convex hull nodes would have been removed'
         end if
 
         if (irem > 0) then