Index: LMDZ5/branches/testing/libf/dyn3d/dynetat0.f90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d/dynetat0.f90	(revision 2787)
+++ LMDZ5/branches/testing/libf/dyn3d/dynetat0.f90	(revision 2870)
@@ -153,9 +153,9 @@
   INTEGER,          INTENT(IN) :: n1, n2
   CHARACTER(LEN=*), INTENT(IN) :: str1, str2
-  CHARACTER(LEN=256) :: s1, s2
+  CHARACTER(LEN=100) :: s1, s2
   IF(n1/=n2) THEN
     s1='value of '//TRIM(str1)//' ='
     s2=' read in starting file differs from parametrized '//TRIM(str2)//' ='
-    WRITE(msg,'(10x,a,i4,2x,a,i4)'),s1,n1,s2,n2
+    WRITE(msg,'(10x,a,i4,2x,a,i4)'),TRIM(ADJUSTL(s1)),n1,TRIM(ADJUSTL(s2)),n2
     CALL ABORT_gcm(TRIM(modname),TRIM(msg),1)
   END IF