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	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