Index: LMDZ6/trunk/libf/phylmd/cdrag_mod.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cdrag_mod.f90	(revision 5946)
+++ LMDZ6/trunk/libf/phylmd/cdrag_mod.f90	(revision 5947)
@@ -22,5 +22,4 @@
      cdm,  cdh,  zri,   pref, prain, tsol , pat1)
 
-  USE dimphy, ONLY : 
   USE coare_cp_mod, ONLY: coare_cp
   USE coare30_flux_cnrm_mod, ONLY: coare30_flux_cnrm
@@ -166,4 +165,6 @@
   LOGICAL               :: LPRECIP
   LOGICAL               :: LPWG
+  real, dimension(1) :: z0m_1d, z_0h_1d, sqrt_zdu2_1d, zgeop1_rg_1d  ! Pour COARE CNRM
+                                                                     ! convert scalar to 1D for call
 
 
@@ -339,6 +340,5 @@
          LPWG    = .false.
          call ini_csts
-         block
-           real, dimension(1) :: z0m_1d, z_0h_1d, sqrt_zdu2_1d, zgeop1_rg_1d  ! convert scalar to 1D for call
+
            z0m_1d = z0m
            z_0h_1d = z0h
@@ -350,5 +350,4 @@
                PRESA,prain,pat1(i),z_0h_1d, LPRECIP, LPWG, coeffs)
 
-         end block
          cdmm(i) = coeffs(1)
          cdhh(i) = coeffs(2)