--- trunk/libf/phylmd/Mobidic/regr_pr_comb_coefoz.f90	2008/08/05 13:31:32	17
+++ trunk/phylmd/Mobidic/regr_pr_comb_coefoz.f90	2013/11/15 18:45:49	76
@@ -1,7 +1,5 @@
 module regr_pr_comb_coefoz_m
 
-  ! This module is clean: no C preprocessor directive, no include line.
-
   use dimens_m, only: llm
   use dimphy, only: klon
 
@@ -48,10 +46,7 @@
     ! -- packs the coefficients to the "physics" horizontal grid ;
     ! -- combines the eight coefficients to define the five module variables.
 
-    ! We assume that, in "coefoz_LMDZ.nc", the pressure levels are in hPa
-    ! and strictly increasing.
-
-    use netcdf95, only: nf95_open, nf95_close, nf95_get_coord
+    use netcdf95, only: nf95_open, nf95_close
     use netcdf, only: nf90_nowrite
     use regr_pr_coefoz, only: regr_pr_av_coefoz, regr_pr_int_coefoz
     use phyetat0_m, only: rlat
@@ -59,6 +54,7 @@
     integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
 
     ! Variables local to the procedure:
+
     integer ncid ! for NetCDF
 
     real coefoz(klon, llm)