--- trunk/libf/dyn3d/limit.f90	2009/07/31 15:18:47	22
+++ trunk/libf/dyn3d/limit.f90	2012/04/20 14:58:43	61
@@ -1,7 +1,5 @@
 module limit_mod
 
-  ! This module is clean: no C preprocessor directive, no include line.
-
   IMPLICIT none
 
 contains
@@ -14,25 +12,23 @@
     ! It uses files with climatological data.
     ! Both grids must be regular.
 
+    use comgeom, only: rlonu, rlatv
+    use conf_dat2d_m, only: conf_dat2d
     use dimens_m, only: iim, jjm
-    use comconst, only: daysec, dtvr
-    use indicesol, only: epsfra, nbsrf, is_ter, is_oce, is_lic, is_sic
     use dimphy, only: klon, zmasq
-    use conf_gcm_m, only: day_step
-    use comgeom, only: rlonu, rlatv
     use etat0_mod, only: pctsrf
-    use start_init_orog_m, only: mask
-    use conf_dat2d_m, only: conf_dat2d
-    use inter_barxy_m, only: inter_barxy
-    use numer_rec, only: spline, splint
     use grid_change, only: dyn_phy
-
+    use indicesol, only: epsfra, nbsrf, is_ter, is_oce, is_lic, is_sic
+    use inter_barxy_m, only: inter_barxy
     use netcdf95, only: handle_err, nf95_gw_var, NF95_CLOSE, NF95_DEF_DIM, &
          nf95_enddef, NF95_CREATE, nf95_inq_dimid, nf95_inquire_dimension, &
          nf95_inq_varid, NF95_OPEN
     use netcdf, only: NF90_CLOBBER, nf90_def_var, NF90_FLOAT, NF90_GET_VAR, &
          NF90_GLOBAL, NF90_NOWRITE, NF90_PUT_ATT, NF90_PUT_VAR, &
          NF90_UNLIMITED
+    use numer_rec_95, only: spline, splint
+    use start_init_orog_m, only: mask
+    use unit_nml_m, only: unit_nml
 
     ! Variables local to the procedure:
 
@@ -84,11 +80,7 @@
 
     print *, "Enter namelist 'limit_nml'."
     read (unit=*, nml=limit_nml)
-    write(unit=*, nml=limit_nml)
-
-    ! Initializations:
-    dtvr = daysec / real(day_step)
-    CALL inigeom
+    write(unit_nml, nml=limit_nml)
 
     ! Process rugosity:
 
@@ -160,7 +152,7 @@
     jmdep = size(dlat_ini)
 
     call nf95_inq_dimid(ncid, "time", dimid)
-    call NF95_INQuire_DIMension(ncid, dimid, len=lmdep)
+    call NF95_INQuire_DIMension(ncid, dimid, nclen=lmdep)
     print *, 'lmdep = ', lmdep
     ! PM 28/02/2002 : nouvelle coordonnée temporelle, fichiers AMIP
     ! pas en jours
@@ -259,7 +251,7 @@
     jmdep = size(dlat_ini)
 
     call nf95_inq_dimid(ncid, "time", dimid)
-    call NF95_INQuire_DIMension(ncid, dimid, len=lmdep)
+    call NF95_INQuire_DIMension(ncid, dimid, nclen=lmdep)
     print *, 'lmdep = ', lmdep
     !PM28/02/2002 : nouvelle coord temporelle fichiers AMIP pas en jours
     !        Ici on suppose qu'on a 12 mois (de 30 jours).