← Back to branch summary

~asc/fluidity/iceshelfcavity

« back to all changes in this revision

Viewing changes to legacy_reservoir_prototype/tests/BL_test_gravity/input_eos_coef_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/BL_test_gravity/input_eos_coef_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
 
  do i = 1, nphase
14
 
     do j = 1, ncoef
15
 
        print*, eos_coefs( i, j )
16
 
     end do
17
 
  end do
18
 
 
19
 
  return
20
 
end program input_eos_coef_funct