Index: LMDZ6/trunk/libf/phylmd/wake.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/wake.F90	(revision 3647)
+++ LMDZ6/trunk/libf/phylmd/wake.F90	(revision 3648)
@@ -360,4 +360,8 @@
   crep_sol = 1.0
 
+  ! Get wapecut from parameter file
+  wapecut = 1.
+  CALL getin_p('wapecut', wapecut)
+
   ! cc nrlmd Lecture du fichier wake_param.data
   stark=0.33
@@ -387,7 +391,5 @@
                                             ! 1: act(:)=1.
                                             ! 2: act(:)=f(Wape)
-  wapecut = 1.
-  CALL getin_p('wapecut', wapecut)
-!
+
   rzero = 5000.
   CALL getin_p('rzero_wk', rzero)