libf/dyn3d/etat0_lim.f90

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