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

Diff of /trunk/Sources/dyn3d/ce0l.f

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

trunk/libf/dyn3d/etat0_lim.f90 revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC trunk/dyn3d/ce0l.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC
# Line 1  Line 1 
1  PROGRAM etat0_lim  PROGRAM ce0l
2    
3    ! This program sets the initial and boundary values.    ! This program sets the initial and boundary values.
4    
# Line 13  PROGRAM etat0_lim Line 13  PROGRAM etat0_lim
13    !-------------------------------------    !-------------------------------------
14    
15    call new_unit(unit_nml)    call new_unit(unit_nml)
16    open(unit_nml, file="used_namelists", status="replace", action="write")    open(unit_nml, file="used_namelists.txt", 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)    close(unit_nml)
21    
22  END PROGRAM etat0_lim  END PROGRAM ce0l
Legend:
Removed from v.57  
changed lines
  Added in v.82
  ViewVC Help
Powered by ViewVC 1.1.21