Changeset 741


Ignore:
Timestamp:
2007-12-06T11:16:47+01:00 (14 years ago)
Author:
smasson
Message:

bugfix in dimg restart name, see ticket:23

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/IOM/iom_rstdimg.F90

    r719 r741  
    106106            irecl8= MAX( kdompar(1,1) * kdompar(2,1) * wp, ( 8*jpnij + 15 ) * 4 ) 
    107107            IF( jpnij > 1 ) THEN 
    108                WRITE(cltmp,'(a,a,i4.4,a)') cdname(1:iln-1), '_', narea-1, '.dimg' 
     108               WRITE(cltmp,'(a,a,i4.4,a)') cdname(1:iln-1), '_', narea, '.dimg' 
    109109               cdname = TRIM(cltmp) 
    110110            ENDIF 
Note: See TracChangeset for help on using the changeset viewer.