Index: LMDZ6/trunk/libf/phylmd/wx_pbl_mod.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/wx_pbl_mod.f90	(revision 5959)
+++ LMDZ6/trunk/libf/phylmd/wx_pbl_mod.f90	(revision 5960)
@@ -577,4 +577,5 @@
                        )
 !
+!$gpum horizontal knon
 
     USE yomcst_mod_h
@@ -733,4 +734,5 @@
                                )
 !
+!$gpum horizontal knon
 
 USE yoethf_mod_h
@@ -788,4 +790,5 @@
     REAL                       :: Kech_Q_sw1, Kech_Q_sx1
     REAL                       :: evap_pot
+    REAL                       :: fake_var !ym : to supress in future version of gpumorphosis
 
 !----------------------------------------------------------------------------
@@ -829,4 +832,10 @@
 !!   L_v(1:knon) = RLvtt
     IF (prt_level >=10 ) THEN
+      IF (1==0) THEN  !ym fake test for gpumorphosis : to supress in future...
+        DO j=1,knon 
+         fake_var = qsat0(j)
+         fake_var = Ts0(j)
+        ENDDO
+      ENDIF
       print *,' AAAA wx_pbl_check, C_p(j), qsat0(j), Ts0(j) : ', C_p(:), qsat0(:), Ts0(:)
     ENDIF ! (prt_level >=10 )
@@ -892,4 +901,5 @@
 !------------------------------------------------------------------------------------------------------
    print *, 'wx_pbl_check: j, qsat01(j), qsat0(j) ', j, qsat01(j), qsat0(j)
+   IF (1==0) fake_var=dqsatdT0(j)
    print *, 'wx_pbl_check: j, dqsatdT01(j), dqsatdT0(j) ', j, dqsatdT01(j), dqsatdT0(j)
 !
@@ -978,5 +988,5 @@
                                )
 !
-
+!$gpum horizontal knon
 USE yoethf_mod_h
         USE yomcst_mod_h
@@ -1042,4 +1052,5 @@
     REAL                       :: dRN_m_dRn0
     REAL                       :: phiTb_m_phiT0b
+    REAl                       :: fake_var
 
 !----------------------------------------------------------------------------
@@ -1114,4 +1125,5 @@
                     + dd_HTRn(j)/HTphiT_b(j)*(phiT_b9(j)-phiT0_b9(j))
 !
+    if (1==0) fake_var=L_v(j)
           print *,'wx_pbl_dts_check, dphiT, L_v*dphiQ, dRn, dTs ', &
               phiT_w9(j)-phiT_x9(j), L_v(j)*(phiQ_w9(j)-phiQ_x9(j)), dRn(j), dTs9(j)
@@ -1219,5 +1231,5 @@
 
 SUBROUTINE wx_evappot(knon, q1, Ts, evap_pot)
-
+!$gpum horizontal knon
     USE wx_pbl_var_mod