trunk/dyn3d/ce0l.f

PROGRAM ce0l

  ! This program sets the initial and boundary values.

  use conf_gcm_m, only: conf_gcm
  use dimens_m, only: iim, jjm
  use etat0_mod, only: etat0
  use grilles_gcm_netcdf_sub_m, only: grilles_gcm_netcdf_sub
  use jumble, only: new_unit
  use limit_mod, only: limit
  use serre, only: read_serre
  use unit_nml_m, only: unit_nml

  implicit none

  REAL phis(iim + 1, jjm + 1) ! surface geopotential, in m2 s-2

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

  call new_unit(unit_nml)
  open(unit_nml, file="used_namelists.txt", status="replace", action="write")
  CALL conf_gcm
  call read_serre
  CALL etat0(phis)
  CALL limit
  CALL grilles_gcm_netcdf_sub(phis)
  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	guez	107	use dimens_m, only: iim, jjm
7	guez	3	use etat0_mod, only: etat0
8	guez	107	use grilles_gcm_netcdf_sub_m, only: grilles_gcm_netcdf_sub
9	guez	57	use jumble, only: new_unit
10	guez	3	use limit_mod, only: limit
11	guez	113	use serre, only: read_serre
12	guez	57	use unit_nml_m, only: unit_nml
13	guez	3
14			implicit none
15
16	guez	107	REAL phis(iim + 1, jjm + 1) ! surface geopotential, in m2 s-2
17
18	guez	3	!-------------------------------------
19
20	guez	57	call new_unit(unit_nml)
21	guez	79	open(unit_nml, file="used_namelists.txt", status="replace", action="write")
22	guez	3	CALL conf_gcm
23	guez	113	call read_serre
24	guez	107	CALL etat0(phis)
25	guez	3	CALL limit
26	guez	107	CALL grilles_gcm_netcdf_sub(phis)
27	guez	57	close(unit_nml)
28	guez	3
29	guez	68	END PROGRAM ce0l