← Back to branch summary

~fluidity-core/fluidity/exorcised

« back to all changes in this revision

Viewing changes to legacy_reservoir_prototype/tests/Sodds_shock_tube_1phase_1d/input_eos_coef_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:
legacy_reservoir_prototype/tests/Sodds_shock_tube_1phase_1d/input_eos_coef_BL1_func.f90
 
1
 
 
2
program input_eos_coef_funct
 
3
  implicit none
 
4
  ! Allocating EOS_COEFS( NPHASE, NCOEF )
 
5
  integer, parameter :: nphase = 2, ncoef = 10
 
6
  real, dimension( nphase, ncoef ) :: eos_coefs
 
7
  ! Local
 
8
  integer :: i, j
 
9
 
 
10
 ! print*, nphase, ncoef
 
11
  eos_coefs = 0.
 
12
  eos_coefs( 1 : nphase, 1 ) = 1.
 
13
  eos_coefs( 1, 2 ) = 0.01
 
14
 
 
15
  do i = 1, nphase
 
16
     do j = 1, ncoef
 
17
        print*, eos_coefs( i, j )
 
18
     end do
 
19
  end do
 
20
 
 
21
  return
 
22
end program input_eos_coef_funct