Addition temperature gradient at bottom

5th temperature option added:
Radial Gradient from (0,y0,0) to indenter edge
Updated input template

src/define_bc_rot_subduction.f90

@@ -609,7 +609,7 @@ do i=1,osolve%nnode
             select case(tempcase)
                 case (1)
                     osolve%temp(i) = temp2+osolve%x(i)*(1.0d0-temp2)
-                case (2,3,4)
+                case (2,3,4,5)
                     osolve%temp(i)=1.d0
                 case default
                     osolve%temp(i)=1.d0
@@ -631,6 +631,8 @@ do i=1,osolve%nnode
                     osolve%temp(i) = 1.d0+osolve%x(i)/rx*(temp2-1.0d0)
                 case (4)
                     osolve%temp(i) = 1.d0+osolve%x(i)/yfix_xedge*(temp2-1.0d0)
+                case (5)
+                    osolve%temp(i) = 1.d0+distz0plane/rx*(temp2-1.0d0)
                 case default
                     osolve%temp(i)=1.d0                            
             end select
@@ -663,6 +665,11 @@ do i=1,osolve%nnode
                     tempstart = 1.d0+xminedge/yfix_xedge*(temp2-1.0d0)
                     tempend = 1.d0
                     osolve%temp(i)=tempstart+distzonerad*(tempend-tempstart)
+                case (5)
+                    distz0plane = sqrt(xedge**2+((yedge-y0)*rx/(0.5d0*wy))**2)
+                    tempstart = 1.d0+distz0plane/rx*(temp2-1.0d0)
+                    tempend = 1.d0
+                    osolve%temp(i)=tempstart+distzonerad*(tempend-tempstart)
                 case default
                     osolve%temp(i)=1.d0                            
             end select 

test/input_schmiddu.txt

@@ -428,34 +428,36 @@ Types requiring additional input values are listed below.
                       subtract 1.0 from all u component velocities along all
                       faces.
 
-- rot_subduction   -> upper section of a downwards rotating squashed sphere or cylinder
-                          (rotation around the -y-axis)
-                   -> [dp]bc_param1 is y0 the center of the rotating element
-                   -> [dp]bc_param2 is h, the maximum height of the rotating element
-                          influx within element will be mass-balanced by bottom outflux
-                   -> [dp]bc_param3 is rx, the x-width of the rotating element
-                   -> [dp]bc_param4 is wy, the y-width of the rotating element. wy>0 will 
-                          produce a squashed sphere, wy<0 a cylinder 
-                   -> [dp]bc_param5 is vin, velocity of the rotating element at (0,y0,h)
-                   -> [dp]bc_param6 is vtop, the velocity of influx above the rotating element
-                          (ususally vin)
-                   -> [dp]bc_param7 is vback, the velocity at the rights side and along 
-                          the other parts of bottom and left side
-                          NOTE: measured in -y direction
-                   -> [dp]bc_param8 is nelemx the number of elements across
-                          which to spread the velocity BCs in x- or y-direction 
-                   -> [dp]bc_param9 is nelemz the number of elements across
-                          which to spread the velocity BCs on the z-direction
-                   -> [dp]bc_param10 is tempcase, the selection for temperature boundary
-                          conditions at the base
-                          0: uniform temperature
-                          1: uniform temp2 for indenter footprint, tempscale elsewhere
-                          2: overall gradient from temp2 at x=0 to tepmscale at x=1
-                          3: gradient from tempscale at x=0 to temp2 at x=rx within the 
-                             indenter footprint, tempscale elsewhere
-                          4: gradient from tempscale at x=0 to temp2 at the edge of the 
-                             rotating element, tempscale elsewhere
-                   -> [dp]bc_param11 is temp2 in Celsius and should be less than tempscale                  
+- rot_subduction   
+    -> upper section of a downwards rotating squashed sphere or cylinder 
+        (rotation around the -y-axis) 
+    -> [dp]bc_param1 is y0 the center of the rotating element 
+    -> [dp]bc_param2 is h, the maximum height of the rotating element influx 
+        within element will be mass-balanced by bottom outflux 
+    -> [dp]bc_param3 is rx, the x-width of the rotating element 
+    -> [dp]bc_param4 is wy, the y-width of the rotating element.  wy>0 will 
+        produce a squashed sphere, wy<0 a cylinder 
+    -> [dp]bc_param5 is vin, velocity of the rotating element at (0,y0,h) 
+    -> [dp]bc_param6 is vtop, the velocity of influx above the rotating 
+        element (ususally vin) -> [dp]bc_param7 is vback, the velocity at the 
+        rights side and along the other parts of bottom and left side
+        NOTE: measured in -y direction 
+    -> [dp]bc_param8 is nelemx the number of elements across which to spread 
+        the velocity BCs in x- or y-direction 
+    -> [dp]bc_param9 is nelemz the number of elements across which to spread 
+        the velocity BCs on the z-direction 
+    -> [dp]bc_param10 is tempcase, the selection for temperature boundary 
+        conditions at the base 
+            0: uniform temperature 
+            1: uniform temp2 for indenter footprint, tempscale elsewhere
+            2: overall gradient from temp2 at x=0 to tepmscale at x=1
+            3: gradient from tempscale at x=0 to temp2 at x=rx within the 
+               indenter footprint, tempscale elsewhere
+            4: gradient from tempscale at x=0 to temp2 at the edge of the 
+               rotating element, tempscale elsewhere
+            5: radial gradient from tempscale at (x=0,y=y0) to temp 2 at the 
+               edge of the indenter, tempscale elsewhere
+    -> [dp]bc_param11 is temp2 in Celsius and should be less than tempscale                  
                       
 - iso_only         -> Applies zero displacement boundary conditions to all faces
                       and dynamically calculates an initial optimal time step