Index: /LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/cdrag_mod.f90
===================================================================
--- /LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/cdrag_mod.f90	(revision 5928)
+++ /LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/cdrag_mod.f90	(revision 5929)
@@ -206,6 +206,7 @@
   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
-
+  INTEGER :: fake ! for gpum                                                                  ! convert scalar to 1D for call
+
+  fake=lunout
 
 
@@ -216,5 +217,5 @@
 
 ! Minimum du carre du vent
-
+ 
  CEPDU2 = (0.1)**2