← Back to branch summary

~asc/fluidity/iceshelfcavity

« back to all changes in this revision

Viewing changes to legacy_reservoir_prototype/tests/BL_test_gravity_unstable/input_wic_u_bc_BL1_fcn.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_unstable/input_wic_u_bc_BL1_fcn.f90
1
 
 
2
 
program input_wic_u_bc
3
 
  implicit none
4
 
  integer, parameter :: stotel = 2, nphase = 2
5
 
  integer, dimension( stotel * nphase ) :: field
6
 
  integer :: i
7
 
  real :: value
8
 
 
9
 
  field = 0
10
 
  field( 1 ) = 1
11
 
  field( 3 ) = 1
12
 
 
13
 
  do i = 1, stotel * nphase
14
 
    print*, field( i )
15
 
  end do
16
 
 
17
 
end program input_wic_u_bc