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	guez	68	PROGRAM ce0l
2	guez	3
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	guez	57	use jumble, only: new_unit
8	guez	3	use limit_mod, only: limit
9	guez	57	use unit_nml_m, only: unit_nml
10	guez	3
11			implicit none
12
13			!-------------------------------------
14
15	guez	57	call new_unit(unit_nml)
16			open(unit_nml, file="used_namelists", status="replace", action="write")
17	guez	3	CALL conf_gcm
18			CALL etat0
19			CALL limit
20	guez	57	close(unit_nml)
21	guez	3
22	guez	68	END PROGRAM ce0l