Changeset 452 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Dec 5, 2011, 2:44:51 AM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: a small bug fix which appeared as I tried a longer than usual mesoscale simulation.

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/create_readmeteo.F90 (modified) (2 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/create_readmeteo.F90

@@ -156 +156 @@
 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 +168 @@
         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