← Back to branch summary

~asc/fluidity/iceshelfcavity

« back to all changes in this revision

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

  • Committer: Adam Candy
  • Date: 2011-10-12 20:39:04 UTC
  • Revision ID: adam.candy@imperial.ac.uk-20111012203904-9gwqzs4z798zcw0l
Automatic sync to launchpad

Show diffs side-by-side

added added

removed removed

Lines of Context:
legacy_reservoir_prototype/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