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

Changeset 15448


Ignore:
Timestamp:
2021-10-27T13:27:31+02:00 (7 months ago)
Author:
smueller
Message:

Alteration of the nonlinear-model-trajectory filename format

Location:
NEMO/branches/NERC/dev_release-3.4_NEMOTAM_consolidated/NEMOGCM/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/NERC/dev_release-3.4_NEMOTAM_consolidated/NEMOGCM/NEMO/OPATAM_SRC/TAM/trj_tam.F90

    r13422 r15448  
    211211 
    212212            ! Define the input file 
    213             WRITE(cl_dirtrj, FMT='(I5.5,A,A,".nc")' ) it, '_', TRIM( cn_dirtrj ) 
     213            WRITE(cl_dirtrj, FMT='(A,"_",I0.6,".nc")') TRIM( cn_dirtrj ), it 
    214214 
    215215            !         WRITE(cl_dirtrj, FMT='(A,".nc")' ) TRIM( c_dirtrj ) 
     
    375375         IF ( ( kstp - nit000 + 1 /= 0 ) .AND. ( kdir == -1 ) ) THEN 
    376376            ! We update the input filename 
    377             WRITE(cl_dirtrj, FMT='(I5.5,A,A,".nc")' ) (it-nn_ittrjfrq), '_', TRIM(cn_dirtrj ) 
     377            WRITE(cl_dirtrj, FMT='(A,"_",I0.6,".nc")') TRIM( cn_dirtrj ), it - nn_ittrjfrq 
    378378            cl_dirtrj = TRIM( cl_dirtrj ) 
    379379            IF(lwp) THEN 
     
    399399            IF ( ( kstp - nit000 + 1 == 0 ) .AND. ( kdir == 1 ) ) THEN 
    400400               ! Define the input file 
    401                WRITE(cl_dirtrj, FMT='(I5.5, A,A,".nc")' ) it, '_', TRIM( cn_dirtrj ) 
     401               WRITE(cl_dirtrj, FMT='(A,"_",I0.6,".nc")') TRIM( cn_dirtrj ), it 
    402402 
    403403               cl_dirtrj = TRIM( cl_dirtrj ) 
     
    519519               ! Define the input file 
    520520               IF  (  kdir == -1   ) THEN 
    521                    WRITE(cl_dirtrj, FMT='(I5.5,A,A,".nc")' ) it, '_', TRIM( cn_dirtrj ) 
     521                  WRITE(cl_dirtrj, FMT='(A,"_",I0.6,".nc")') TRIM( cn_dirtrj ), it 
    522522               ELSE 
    523                   WRITE(cl_dirtrj, FMT='(I5.5,A,A,".nc")' ) (it+nn_ittrjfrq), '_', TRIM( cn_dirtrj ) 
     523                  WRITE(cl_dirtrj, FMT='(A,"_",I0.6,".nc")') TRIM( cn_dirtrj ), it + nn_ittrjfrq 
    524524               ENDIF 
    525525               cl_dirtrj = TRIM( cl_dirtrj ) 
  • NEMO/branches/NERC/dev_release-3.4_NEMOTAM_consolidated/NEMOGCM/NEMO/OPA_SRC/TAM/tamtrj.F90

    r11809 r15448  
    178178         ! 
    179179         ! Define the output file 
    180          WRITE(cl_dirtrj, FMT='(I5.5,A,A)' ) it, '_', TRIM( cn_dirtrj ) 
     180         WRITE(cl_dirtrj, FMT='(A,"_",I0.6,".nc")') TRIM( cn_dirtrj ), it 
    181181         cl_dirtrj = TRIM( cl_dirtrj ) 
    182182         CALL iom_open( cl_dirtrj, inum, ldwrt = .TRUE., kiolib = jprstlib) 
Note: See TracChangeset for help on using the changeset viewer.