trunk/phylmd/oasis_m.f

module oasis_m

  ! From phylmd/oasis.h,v 1.1.1.1 2004/05/19 12:53:08

  !@  Contents : choice for the OASIS version: clim or pipe

  implicit none

  logical ok_oasis
  parameter(ok_oasis = .false.)

  CHARACTER(len=8) cchan
  PARAMETER ( cchan='CLIM' )

end module oasis_m
1	guez	3	module oasis_m
2
3			! From phylmd/oasis.h,v 1.1.1.1 2004/05/19 12:53:08
4
5			!@ Contents : choice for the OASIS version: clim or pipe
6
7			implicit none
8
9			logical ok_oasis
10			parameter(ok_oasis = .false.)
11
12			CHARACTER(len=8) cchan
13			PARAMETER ( cchan='CLIM' )
14
15			end module oasis_m