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 – NEMO

Changeset 5003 for trunk


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

automatic filename definition for up to 999 files

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/DOC/TexFiles/Chapters/Chap_DIA.tex

    r4153 r5003  
    466466\end{verbatim} 
    467467}}\end{alltt}  
    468 However it is often very convienent to define the file name with the name of the experiment, the output file frequency and the date of the beginning and the end of the simulation (which are informations stored either in the namelist or in the XML file). To do so, we added the following rule: if the id of the tag file is ''fileN''(where N = 1 to 99) or one of the predefined sections or moorings (see next subsection), the following part of the name and the name\_suffix (that can be inherited) will be automatically replaced by:\\ 
     468However it is often very convienent to define the file name with the name of the experiment, the output file frequency and the date of the beginning and the end of the simulation (which are informations stored either in the namelist or in the XML file). To do so, we added the following rule: if the id of the tag file is ''fileN''(where N = 1 to 999 on 1 to 3 digits) or one of the predefined sections or moorings (see next subsection), the following part of the name and the name\_suffix (that can be inherited) will be automatically replaced by:\\ 
    469469\\ 
    470470\begin{tabular}{|p{4cm}|p{8cm}|} 
  • 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.