New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5003 for trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 – NEMO

Ignore:
Timestamp:
2015-01-02T17:19:55+01:00 (9 years ago)
Author:
smasson
Message:

automatic filename definition for up to 999 files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r4990 r5003  
    12401240      CHARACTER(len=256)             ::   clsuff                   ! suffix name 
    12411241      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 
    12431244      INTEGER                        ::   ji, jg                   ! loop counters 
    12441245      INTEGER                        ::   ix, iy                   ! i-,j- index 
     
    12661267         WRITE(cl2,'(i2.2)') ji  
    12671268         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) 
    12681273      END DO 
    12691274 
Note: See TracChangeset for help on using the changeset viewer.