trunk/dyn3d/ce0l.f

PROGRAM ce0l

  ! This program sets the initial and boundary values.

  use conf_gcm_m, only: conf_gcm
  use etat0_mod, only: etat0
  use jumble, only: new_unit
  use limit_mod, only: limit
  use unit_nml_m, only: unit_nml

  implicit none

  !-------------------------------------

  call new_unit(unit_nml)
  open(unit_nml, file="used_namelists", status="replace", action="write")
  CALL conf_gcm
  CALL etat0
  CALL limit
  close(unit_nml)

END PROGRAM ce0l
1	PROGRAM ce0l
2
3	! This program sets the initial and boundary values.
4
5	use conf_gcm_m, only: conf_gcm
6	use etat0_mod, only: etat0
7	use jumble, only: new_unit
8	use limit_mod, only: limit
9	use unit_nml_m, only: unit_nml
10
11	implicit none
12
13	!-------------------------------------
14
15	call new_unit(unit_nml)
16	open(unit_nml, file="used_namelists", status="replace", action="write")
17	CALL conf_gcm
18	CALL etat0
19	CALL limit
20	close(unit_nml)
21
22	END PROGRAM ce0l