Index: LMDZ6/trunk/libf/phylmd/cv_routines.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv_routines.f90	(revision 5699)
+++ LMDZ6/trunk/libf/phylmd/cv_routines.f90	(revision 5700)
@@ -753,7 +753,13 @@
 
   ! initialization:
-  DO i = 1, ncum*nlp
-    hp(i, 1) = h(i, 1)
-  END DO
+!ym very bad  
+!ym  DO i = 1, ncum*nlp
+!ym    hp(i, 1) = h(i, 1)
+!ym  END DO
+  DO k=1,nlp
+    DO i=1,ncum
+      hp(i, k) = h(i, k)
+    ENDDO
+  ENDDO
 
   DO k = minorig + 1, nl