--- trunk/Sources/dyn3d/ce0l.f	2015/04/29 15:47:56	134
+++ trunk/dyn3d/ce0l.f	2018/03/20 09:35:59	265
@@ -2,13 +2,14 @@
 
   ! This program sets the initial and boundary values.
 
+  use comdissnew, only: read_comdissnew
   use conf_gcm_m, only: conf_gcm
-  use dimens_m, only: iim, jjm
+  use dimensions, only: iim, jjm
   use etat0_mod, only: etat0
   use grilles_gcm_netcdf_sub_m, only: grilles_gcm_netcdf_sub
   use jumble, only: new_unit
   use limit_mod, only: limit
-  use serre, only: read_serre
+  use read_serre_m, only: read_serre
   use unit_nml_m, only: unit_nml
 
   implicit none
@@ -20,10 +21,12 @@
   call new_unit(unit_nml)
   open(unit_nml, file="used_namelists.txt", status="replace", action="write")
   CALL conf_gcm
+  call read_comdissnew
   call read_serre
   CALL etat0(phis)
   CALL limit
   CALL grilles_gcm_netcdf_sub(phis)
   close(unit_nml)
+  print *, "ce0l: done"
 
 END PROGRAM ce0l