Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/create_readmeteo.F90
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/create_readmeteo.F90	(revision 426)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/create_readmeteo.F90	(revision 452)
@@ -156,6 +156,8 @@
 ELSE IF (n < 100) THEN
         write(6,fmt='(I2)') n
+ELSE IF (n < 1000) THEN
+        write(6,fmt='(I3)') n
 ELSE
-        write(6,fmt='(I3)') n        
+        write(6,fmt='(I4)') n        
 END IF
 ! subscript in GCM data file
@@ -166,6 +168,8 @@
         ELSE IF (subs < 100) THEN 
                 write(6,fmt='(I2)') subs
+        ELSE IF (subs < 1000) THEN
+                write(6,fmt='(I3)') subs
         ELSE 
-                write(6,fmt='(I3)') subs   
+                write(6,fmt='(I4)') subs   
         END IF        
 END DO