trunk/dyn3d/ce0l.f

PROGRAM etat0_lim

  ! This program sets the initial and boundary values.

  use comconst, only: initialize
  use conf_gcm_m, only: conf_gcm
  use etat0_mod, only: etat0
  use limit_mod, only: limit

  implicit none

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

  call initialize
  CALL conf_gcm
  CALL etat0
  CALL limit

END PROGRAM etat0_lim
1	PROGRAM etat0_lim
2
3	! This program sets the initial and boundary values.
4
5	use comconst, only: initialize
6	use conf_gcm_m, only: conf_gcm
7	use etat0_mod, only: etat0
8	use limit_mod, only: limit
9
10	implicit none
11
12	!-------------------------------------
13
14	call initialize
15	CALL conf_gcm
16	CALL etat0
17	CALL limit
18
19	END PROGRAM etat0_lim