← Back to branch summary

~fluidity-core/fluidity/exorcised

« back to all changes in this revision

Viewing changes to radiation/Radiation_Materials_Interpolation.F90

Latest trunk changes, and modifications to the backward_facing_step_2d example, which are experimental and work is ongoing. It's better than the current trunk example in that at least the k_epsilon code is correct.

Show diffs side-by-side

added added

removed removed

Lines of Context:
radiation/Radiation_Materials_Interpolation.F90
1
 
!    Copyright (C) 2006 Imperial College London and others.
2
 
!    
3
 
!    Please see the AUTHORS file in the main source directory for a full list
4
 
!    of copyright holders.
5
 
!
6
 
!    Prof. C Pain
7
 
!    Applied Modelling and Computation Group
8
 
!    Department of Earth Science and Engineering
9
 
!    Imperial College London
10
 
!
11
 
!    amcgsoftware@imperial.ac.uk
12
 
!    
13
 
!    This library is free software; you can redistribute it and/or
14
 
!    modify it under the terms of the GNU Lesser General Public
15
 
!    License as published by the Free Software Foundation,
16
 
!    version 2.1 of the License.
17
 
!
18
 
!    This library is distributed in the hope that it will be useful,
19
 
!    but WITHOUT ANY WARRANTY; without even the implied arranty of
20
 
!    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
21
 
!    Lesser General Public License for more details.
22
 
!
23
 
!    You should have received a copy of the GNU Lesser General Public
24
 
!    License along with this library; if not, write to the Free Software
25
 
!    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307
26
 
!    USA
27
 
 
28
 
#include "fdebug.h"
29
 
 
30
 
module radiation_materials_interpolation
31
 
   
32
 
   use radiation_materials_interpolation_data_types
33
 
   use radiation_materials_interpolation_create
34
 
   use radiation_materials_interpolation_destroy
35
 
   use radiation_materials_interpolation_form_ii
36
 
   use radiation_materials_interpolation_form_radmat
37
 
 
38
 
   implicit none
39
 
   
40
 
   private 
41
 
 
42
 
   public :: particle_radmat_ii_type, &
43
 
             create, &
44
 
             destroy, &
45
 
             form
46
 
 
47
 
end module radiation_materials_interpolation