/[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 112 by guez, Thu Sep 11 15:09:15 2014 UTC revision 113 by guez, Thu Sep 18 19:56:46 2014 UTC
# Line 8  PROGRAM ce0l Line 8  PROGRAM ce0l
8    use grilles_gcm_netcdf_sub_m, only: grilles_gcm_netcdf_sub    use grilles_gcm_netcdf_sub_m, only: grilles_gcm_netcdf_sub
9    use jumble, only: new_unit    use jumble, only: new_unit
10    use limit_mod, only: limit    use limit_mod, only: limit
11      use serre, only: read_serre
12    use unit_nml_m, only: unit_nml    use unit_nml_m, only: unit_nml
13    
14    implicit none    implicit none
# Line 19  PROGRAM ce0l Line 20  PROGRAM ce0l
20    call new_unit(unit_nml)    call new_unit(unit_nml)
21    open(unit_nml, file="used_namelists.txt", status="replace", action="write")    open(unit_nml, file="used_namelists.txt", status="replace", action="write")
22    CALL conf_gcm    CALL conf_gcm
23      call read_serre
24    CALL etat0(phis)    CALL etat0(phis)
25    CALL limit    CALL limit
26    CALL grilles_gcm_netcdf_sub(phis)    CALL grilles_gcm_netcdf_sub(phis)
Legend:
Removed from v.112  
changed lines
  Added in v.113
  ViewVC Help
Powered by ViewVC 1.1.21