1 

2 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
3 
% 
4 
% Copyright (c) 20032009 by University of Queensland 
5 
% Earth Systems Science Computational Center (ESSCC) 
6 
% http://www.uq.edu.au/esscc 
7 
% 
8 
% Primary Business: Queensland, Australia 
9 
% Licensed under the Open Software License version 3.0 
10 
% http://www.opensource.org/licenses/osl3.0.php 
11 
% 
12 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
13 

14 
\section{One Dimensional Heat Diffusion accross an Interface} 
15 
%\label{Sec:1DHDv1} 
16 
It is quite simple to now expand upon the 1D heat diffusion problem we just tackled. Suppose we have two blocks of isotropic material which are very large in all directions to the point that the interface between the two blocks appears infinite in length compared to the distance we are modelling perpendicular to the interface and accross the two blocks. If \textit{Block 1} is of a temperature \verb 0 and \textit{Block 2} is at a temperature \verb T what would happen to the temperature distribution in each block if we placed them next to each other. This problem is very similar to our Iron Rod but instead of a constant heat source we instead have a heat disparity with a fixed amount of energy. In such a situation it is common knowledge that the heat energy in the warmer block will gradually conduct into the cooler block until the temperature between the blocks is balanced. 
17 

18 
\begin{figure}[h!] 
19 
\centerline{\includegraphics[width=4.in]{figures/onedheatdiff002}} 
20 
\caption{Temperature differential along a single interface between two granite blocks.} 
21 
\label{fig:onedgbmodel} 
22 
\end{figure} 
23 

24 
By modifying our previous code it is possible to solve this new problem. In doing so we will also try to tackle a real world example and as a result, introduce and discuss some new variables. The linear model of the two blocks is very similar to the effect a large magmatic intrusion would have on a cold country rock. It is however, simpler at this stage to have both materials the same and for this example we will use granite \reffig{fig:onedgbmodel}. The intrusion will have an initial temperature defined by \verb Tref and the granite properties required are: 
25 
\begin{verbatim} 
26 
#PDE related 
27 
mx = 500*m #meters  model length 
28 
my = 100*m #meters  model width 
29 
ndx = 500 # mesh steps in x direction 
30 
ndy = 1 # mesh steps in y direction 
31 
boundloc = mx/2 # location of boundary between two blocks 
32 
q=0.*Celsius #our heat source temperature is now zero 
33 
Tref=2273.*Celsius # Kelvin the starting temperature of our RHS Block 
34 
rho = 2750*kg/m**3 #kg/m^{3} density of granite 
35 
cp = 790.*J/(kg*K) #j/Kg.K thermal capacity 
36 
rhocp = rho*cp #DENSITY * SPECIFIC HEAT 
37 
eta=0. # RADIATION CONDITION 
38 
kappa=2.2*W/m/K #watts/m.K thermal conductivity 
39 
\end{verbatim} 
40 

41 
Since the scale and values involved in our problem have changed, the length and step size of the iteration must be considered. Instead of seconds which our units are in, it may be more prudent to decide the number of days or years we would like to run the simulation over. 
42 
\begin{verbatim} 
43 
#Script/Iteration Related 
44 
t=0. #our start time, usually zero 
45 
tend=10*yr #the time we want to end the simulation in years 
46 
outputs = 400 # number of time steps required. 
47 
h=(tendt)/outputs #size of time step 
48 
\end{verbatim} 
49 

50 
If we assume that the dimensions of the blocks are continuous and extremely large compared with the model size then we need only model a small proportion of the boundary. It is practical to locate the boundary between the two blocks at the center of our model. As there is no heat source our \verb q variable can be set to zero. The new initial conditions are defined using the following: 
51 
\begin{verbatim} 
52 
#establish location of boundary between two blocks 
53 
bound = x[0]boundloc 
54 
#set initial temperature 
55 
T= 0*Tref*whereNegative(bound)+Tref*wherePositive(bound) 
56 
\end{verbatim} 
57 
The \verb bound statement sets the boundary to the location along the \textit{xaxis} defined by \verb boundloc . 
58 
The PDE can then be solved as before. 
59 

60 
FOR THE READER: 
61 
\begin{enumerate} 
62 
\item Move the boundary line between the two blocks to another part of the domain. 
63 
\item Try splitting the domain in to multiple blocks with varying temperatures. 
64 
\end{enumerate} 
65 
