← Back to branch summary

~fluidity-core/fluidity/exorcised

« back to all changes in this revision

Viewing changes to multiphase/tests/Sodds_shock_tube_1phase_1d/input_perm_BL1_func.f90

  • Committer: saunde01
  • Date: 2011-03-23 13:15:31 UTC
  • Revision ID: svn-v4:5bf5533e-7014-46e3-b1bb-cce4b9d03719:trunk:3310
As discussed in the Dev meeting and in emails, this commit renames the multiphase directory to legacy_reservoir_prototype, and adds an obvious warning to the top of the README file to warn unsuspecting users of the experimental nature of the code. Iterations on the exact wording very welcome

Show diffs side-by-side

added added

removed removed

Lines of Context:
multiphase/tests/Sodds_shock_tube_1phase_1d/input_perm_BL1_func.f90
1
 
 
2
 
program input_perm_funct
3
 
  implicit none
4
 
  ! Allocating  PERM( TOTELE, NDIM, NDIM )
5
 
  integer, parameter :: totele = 10, ndim = 1
6
 
  real, dimension( totele, ndim, ndim ) :: perm
7
 
  ! Local
8
 
  integer :: i, j, k
9
 
  real, parameter :: perm_value = 1.
10
 
 
11
 
 
12
 
  perm = 0.
13
 
  perm( 1 : totele, 1, 1 ) = perm_value
14
 
 
15
 
  do i = 1, totele
16
 
     do j = 1, ndim
17
 
        do k = 1, ndim
18
 
           print*, perm( i, j, k )
19
 
        end do
20
 
     end do
21
 
  end do
22
 
 
23
 
  return
24
 
end program input_perm_funct