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

Annotation of /trunk/dyn3d/ce0l.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 79 - (hide annotations)
Fri Feb 28 17:52:47 2014 UTC (10 years, 3 months ago) by guez
Original Path: trunk/dyn3d/ce0l.f90
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 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 guez 79 open(unit_nml, file="used_namelists.txt", 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
  ViewVC Help
Powered by ViewVC 1.1.21