cookbook/TEXT/onedheatdiff002.tex


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Copyright (c) 2003-2009 by University of Queensland
% Earth Systems Science Computational Center (ESSCC)
% http://www.uq.edu.au/esscc
%
% Primary Business: Queensland, Australia
% Licensed under the Open Software License version 3.0
% http://www.opensource.org/licenses/osl-3.0.php
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\section{One Dimensional Heat Diffusion accross an Interface}
%\label{Sec:1DHDv1}
 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.

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

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:
\begin{verbatim}
#PDE related
mx = 500*m #meters - model length
my = 100*m #meters - model width
ndx = 500 # mesh steps in x direction 
ndy = 1 # mesh steps in y direction
boundloc = mx/2 # location of boundary between two blocks
q=0.*Celsius #our heat source temperature is now zero
Tref=2273.*Celsius # Kelvin -the starting temperature of our RHS Block
rho = 2750*kg/m**3 #kg/m^{3} density of granite
cp = 790.*J/(kg*K) #j/Kg.K thermal capacity
rhocp = rho*cp  #DENSITY * SPECIFIC HEAT
eta=0.  # RADIATION CONDITION
kappa=2.2*W/m/K #watts/m.K thermal conductivity
\end{verbatim}

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. These can then be converted accordingly to SI units \editor{lutz new schema in here}. 
\begin{verbatim}
#Script/Iteration Related
t=0. #our start time, usually zero
tday=10*365. #the time we want to end the simulation in days
tend=tday*24*60*60
outputs = 400 # number of time steps required.
h=(tend-t)/outputs #size of time step
\end{verbatim}

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:
\begin{verbatim}
#establish location of boundary between two blocks
bound = x[0]-boundloc
#set initial temperature
T= 0*Tref*whereNegative(bound)+Tref*wherePositive(bound)
\end{verbatim}
The \verb bound statement sets the boundary to the location along the \textit{x-axis} defined by \verb boundloc  .
The PDE can then be solved as before.

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

1
2	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3	%
4	% Copyright (c) 2003-2009 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/osl-3.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 = 2750kg/m*3 #kg/m^{3} density of granite
35	cp = 790.J/(kgK) #j/Kg.K thermal capacity
36	rhocp = rhocp #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. These can then be converted accordingly to SI units \editor{lutz new schema in here}.
42	\begin{verbatim}
43	#Script/Iteration Related
44	t=0. #our start time, usually zero
45	tday=10*365. #the time we want to end the simulation in days
46	tend=tday2460*60
47	outputs = 400 # number of time steps required.
48	h=(tend-t)/outputs #size of time step
49	\end{verbatim}
50
51	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:
52	\begin{verbatim}
53	#establish location of boundary between two blocks
54	bound = x[0]-boundloc
55	#set initial temperature
56	T= 0TrefwhereNegative(bound)+Tref*wherePositive(bound)
57	\end{verbatim}
58	The \verb bound statement sets the boundary to the location along the \textit{x-axis} defined by \verb boundloc .
59	The PDE can then be solved as before.
60
61	FOR THE READER:
62	\begin{enumerate}
63	\item Move the boundary line between the two blocks to another part of the domain.
64	\item Try splitting the domain in to multiple blocks with varying temperatures.
65	\end{enumerate}
66