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

Diff of /trunk/dyn3d/ce0l.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC
# Line 4  PROGRAM etat0_lim Line 4  PROGRAM etat0_lim
4    
5    use conf_gcm_m, only: conf_gcm    use conf_gcm_m, only: conf_gcm
6    use etat0_mod, only: etat0    use etat0_mod, only: etat0
7      use jumble, only: new_unit
8    use limit_mod, only: limit    use limit_mod, only: limit
9      use unit_nml_m, only: unit_nml
10    
11    implicit none    implicit none
12    
13    !-------------------------------------    !-------------------------------------
14    
15      call new_unit(unit_nml)
16      open(unit_nml, file="used_namelists", status="replace", action="write")
17    CALL conf_gcm    CALL conf_gcm
18    CALL etat0    CALL etat0
19    CALL limit    CALL limit
20      close(unit_nml)
21    
22  END PROGRAM etat0_lim  END PROGRAM etat0_lim
Legend:
Removed from v.39  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.21