uncomment conv+rad bc

Magnetometer/Jacobian_Lib.pro

@@ -42,6 +42,10 @@ Jacobian {
            { Region All ; Jacobian Vol ; }
     }
   }
+  { Name Sur ;
+    Case { { Region All ; Jacobian Sur ; }
+    }
+  }
 }
 
 

Magnetometer/Thermal.pro

@@ -10,6 +10,14 @@ FunctionSpace {
   }
 }
 
+Group {
+  DefineGroup [ SurfaceConv_The, SurfaceRad_The ];
+}
+
+Function {
+  DefineFunction [ h, T0, rad ];
+}
+
 Formulation {
   { Name Thermal_T ; Type FemEquation ;
     Quantity {
@@ -26,18 +34,16 @@ Formulation {
 
       Galerkin { [ - /* 0.5 * */ 1/sigma[] * SquNorm[sigma[]*{d v}] , {T} ] ;
                  In Domain_The ; Integration GradGrad ; Jacobian Vol ; }
-      /*
+
       Galerkin { [ h[] * Dof{T} , {T} ] ; // Convection boundary condition
                  In SurfaceConv_The ; Integration GradGrad ; Jacobian Sur ; }
-      Galerkin { [ -h[] * TemperatureConv[] , {T} ] ;
-                 In SurfaceConv_The ; Integration GradGrad ; Jacobian Sur ; }
-      */
-      /*
-      Galerkin { [ rad[] * {T}^4 , {T} ] ; // Convection boundary condition
+      Galerkin { [ -h[] * T0[] , {T} ] ;
                  In SurfaceConv_The ; Integration GradGrad ; Jacobian Sur ; }
-      Galerkin { [ -rad[] * TemperatureConv[]^4 , {T} ] ;
-                 In SurfaceConv_The ; Integration GradGrad ; Jacobian Sur ; }
-      */
+
+      Galerkin { [ rad[] * {T}^4 , {T} ] ; // Radiation boundary condition
+                 In SurfaceRad_The ; Integration GradGrad ; Jacobian Sur ; }
+      Galerkin { [ -rad[] * T0[]^4 , {T} ] ;
+                 In SurfaceRad_The ; Integration GradGrad ; Jacobian Sur ; }
     }
   }
 }