diff --git a/process/utilities/errorlist.json b/process/utilities/errorlist.json
index d39f74ed14..fb94ef05a7 100644
--- a/process/utilities/errorlist.json
+++ b/process/utilities/errorlist.json
@@ -248,7 +248,7 @@
     {
       "no": 48,
       "level": 3,
-      "message": "LOADXC: Do not use thkcas as an iteration variable if tfc_model=0 or istell=1"
+      "message": "LOADXC: Do not use thkcas as an iteration variable if istell=1"
     },
     {
       "no": 49,
@@ -527,8 +527,8 @@
     },
     {
       "no": 104,
-      "level": 3,
-      "message": "STRESSCL: Illegal value for tfc_model"
+      "level": 0,
+      "message": "OBSOLETE"
     },
     {
       "no": 105,
diff --git a/source/fortran/input.f90 b/source/fortran/input.f90
index a2409addce..1c247b721b 100644
--- a/source/fortran/input.f90
+++ b/source/fortran/input.f90
@@ -1731,9 +1731,6 @@ subroutine parse_input_file(in_file,out_file,show_changes)
        case ('tdmptf')
           call parse_real_variable('tdmptf', tdmptf, 0.1D0, 100.0D0, &
                'Dump time for TF coil (s)')
-      !  case ('tfc_model')
-      !     call parse_int_variable('tfc_model', tfc_model, 0, 1, &
-      !          'Switch for TF coil model')
        case ('tfinsgap')
           call parse_real_variable('tfinsgap', tfinsgap, 1.0D-10, 1.0D-1, &
                'TF coil WP insertion gap (m)')
diff --git a/source/fortran/tfcoil_variables.f90 b/source/fortran/tfcoil_variables.f90
index f227d0fcf5..c0b07933a9 100644
--- a/source/fortran/tfcoil_variables.f90
+++ b/source/fortran/tfcoil_variables.f90
@@ -504,12 +504,6 @@ module tfcoil_variables
   real(dp) :: tfckw
   !! available DC power for charging the TF coils (kW)
 
-  !#TODO: issue #781
-  ! integer :: tfc_model
-  ! !! tfc_model /1/ : switch for TF coil magnet stress model:<UL>
-  ! !!                 <LI> = 0 simple model (solid copper coil)
-  ! !!                 <LI> = 1 CCFE two-layer stress model; superconductor</UL>
-
   real(dp) :: tfcmw
   !! Peak power per TF power supply (MW)