Index: LMDZ4/branches/LMDZ4-dev/libf/dyn3d/dump2d.F
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/dyn3d/dump2d.F	(revision 1174)
+++ LMDZ4/branches/LMDZ4-dev/libf/dyn3d/dump2d.F	(revision 1175)
@@ -1,4 +1,4 @@
 !
-! $Header$
+! $Id$
 !
       SUBROUTINE dump2d(im,jm,z,nom_z)
@@ -6,10 +6,10 @@
       INTEGER im,jm
       REAL z(im,jm)
-      CHARACTER*80 nom_z
+      CHARACTER (len=*) :: nom_z
 
       INTEGER i,j,imin,illm,jmin,jllm
       REAL zmin,zllm
 
-      PRINT*,nom_z
+      WRITE(*,*) "dump2d: ",trim(nom_z)
 
       zmin=z(1,1)
@@ -39,7 +39,7 @@
 
       IF(zllm.GT.zmin) THEN
-      DO j=1,jm
-      WRITE(*,'(72i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
-      ENDDO
+       DO j=1,jm
+        WRITE(*,'(600i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
+       ENDDO
       ENDIF
       RETURN
Index: LMDZ4/branches/LMDZ4-dev/libf/dyn3d/ugeostr.F
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/dyn3d/ugeostr.F	(revision 1174)
+++ LMDZ4/branches/LMDZ4-dev/libf/dyn3d/ugeostr.F	(revision 1175)
@@ -1,4 +1,4 @@
 !
-! $Header$
+! $Id$
 !
       subroutine ugeostr(phi,ucov)
@@ -20,4 +20,6 @@
 
       real zlat
+
+      um(:,:)=0 ! initialize um()
 
       DO j=1,jjm
@@ -42,5 +44,5 @@
          ENDDO
       ENDDO
-      call dump2d(jjp1,llm,um,'Vent-u geostrophique')
+      call dump2d(jjm,llm,um,'Vent-u geostrophique')
 
 c
Index: LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dump2d.F
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dump2d.F	(revision 1174)
+++ LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dump2d.F	(revision 1175)
@@ -1,4 +1,4 @@
 !
-! $Header$
+! $Id$
 !
       SUBROUTINE dump2d(im,jm,z,nom_z)
@@ -6,10 +6,10 @@
       INTEGER im,jm
       REAL z(im,jm)
-      CHARACTER*80 nom_z
+      CHARACTER (len=*) :: nom_z
 
       INTEGER i,j,imin,illm,jmin,jllm
       REAL zmin,zllm
 
-      PRINT*,nom_z
+      WRITE(*,*) "dump2d: ",trim(nom_z)
 
       zmin=z(1,1)
@@ -39,7 +39,7 @@
 
       IF(zllm.GT.zmin) THEN
-      DO j=1,jm
-      WRITE(*,'(72i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
-      ENDDO
+       DO j=1,jm
+        WRITE(*,'(600i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
+       ENDDO
       ENDIF
       RETURN
Index: LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/ugeostr.F
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/ugeostr.F	(revision 1174)
+++ LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/ugeostr.F	(revision 1175)
@@ -1,4 +1,4 @@
 !
-! $Header$
+! $Id$
 !
       subroutine ugeostr(phi,ucov)
@@ -20,4 +20,6 @@
 
       real zlat
+
+      um(:,:)=0 ! initialize um()
 
       DO j=1,jjm
@@ -42,5 +44,5 @@
          ENDDO
       ENDDO
-      call dump2d(jjp1,llm,um,'Vent-u geostrophique')
+      call dump2d(jjm,llm,um,'Vent-u geostrophique')
 
 c