/[lmdze]/trunk/dyn3d/ce0l.f90
ViewVC logotype

Contents of /trunk/dyn3d/ce0l.f90

Parent Directory Parent Directory | Revision Log Revision Log

Revision 79 - (show annotations)
Fri Feb 28 17:52:47 2014 UTC (10 years, 3 months ago) by guez
File size: 465 byte(s) 
Moved procedure iniconst inside module comconst. Removed useless
variables of module comconst: im, jm, lllm, imp1, jmp1, lllmm1,
lllmp1, lcl, cotot, unsim. Move definition of dtvr that was in
dynetat0 and etat0 to iniconst. Moved comparison of dtvr from day_step
and start.nc that was in gcm to dynetat0. Moved call to disvert out of
iniconst. Moved call to iniconst in gcm before call to dynetat0.

Removed unused argument pvteta of physiq (not used either in LMDZ).
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.txt", status="replace", action="write")
17 CALL conf_gcm
18 CALL etat0
19 CALL limit
20 close(unit_nml)
21
22 END PROGRAM ce0l
  ViewVC Help
Powered by ViewVC 1.1.21