/[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 139 by guez, Tue May 26 17:46:03 2015 UTC revision 191 by guez, Mon May 9 19:56:28 2016 UTC
# Line 2  PROGRAM ce0l Line 2  PROGRAM ce0l
2    
3    ! This program sets the initial and boundary values.    ! This program sets the initial and boundary values.
4    
5      use comdissnew, only: read_comdissnew
6    use conf_gcm_m, only: conf_gcm    use conf_gcm_m, only: conf_gcm
7    use dimens_m, only: iim, jjm    use dimens_m, only: iim, jjm
8    use etat0_mod, only: etat0    use etat0_mod, only: etat0
# Line 20  PROGRAM ce0l Line 21  PROGRAM ce0l
21    call new_unit(unit_nml)    call new_unit(unit_nml)
22    open(unit_nml, file="used_namelists.txt", status="replace", action="write")    open(unit_nml, file="used_namelists.txt", status="replace", action="write")
23    CALL conf_gcm    CALL conf_gcm
24      call read_comdissnew
25    call read_serre    call read_serre
26    CALL etat0(phis)    CALL etat0(phis)
27    CALL limit    CALL limit
Legend:
Removed from v.139  
changed lines
  Added in v.191
  ViewVC Help
Powered by ViewVC 1.1.21