diff --git a/src/DOUAR.f90 b/src/DOUAR.f90
index 486c2e23f4ad50aed8e148df90fc76a4744b93ff..d18909656dd7fe29d2fbaf006d023aa16ca06ec1 100644
--- a/src/DOUAR.f90
+++ b/src/DOUAR.f90
@@ -196,7 +196,7 @@ call define_surface(params,surface,threadinfo,total,step,inc,current_time)
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
 call show_time (total,step,inc,1,'define cloud$')
-call  define_cloud(cl,params,zi)
+call define_cloud(cl,params,zi)
 
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|