Changeset 452
- Timestamp:
- Dec 5, 2011, 2:44:51 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/create_readmeteo.F90
r11 r452 156 156 ELSE IF (n < 100) THEN 157 157 write(6,fmt='(I2)') n 158 ELSE IF (n < 1000) THEN 159 write(6,fmt='(I3)') n 158 160 ELSE 159 write(6,fmt='(I 3)') n161 write(6,fmt='(I4)') n 160 162 END IF 161 163 ! subscript in GCM data file … … 166 168 ELSE IF (subs < 100) THEN 167 169 write(6,fmt='(I2)') subs 170 ELSE IF (subs < 1000) THEN 171 write(6,fmt='(I3)') subs 168 172 ELSE 169 write(6,fmt='(I 3)') subs173 write(6,fmt='(I4)') subs 170 174 END IF 171 175 END DO
Note: See TracChangeset
for help on using the changeset viewer.