Changeset 5003 for trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
- Timestamp:
- 2015-01-02T17:19:55+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r4990 r5003 1240 1240 CHARACTER(len=256) :: clsuff ! suffix name 1241 1241 CHARACTER(len=1) :: cl1 ! 1 character 1242 CHARACTER(len=2) :: cl2 ! 1 character 1242 CHARACTER(len=2) :: cl2 ! 2 characters 1243 CHARACTER(len=3) :: cl3 ! 3 characters 1243 1244 INTEGER :: ji, jg ! loop counters 1244 1245 INTEGER :: ix, iy ! i-,j- index … … 1266 1267 WRITE(cl2,'(i2.2)') ji 1267 1268 CALL iom_update_file_name('file'//cl2) 1269 END DO 1270 DO ji = 1, 999 1271 WRITE(cl3,'(i3.3)') ji 1272 CALL iom_update_file_name('file'//cl3) 1268 1273 END DO 1269 1274
Note: See TracChangeset
for help on using the changeset viewer.