Changeset 741

Timestamp:

2007-12-06T11:16:47+01:00 (16 years ago)

Author:

smasson

Message:

bugfix in dimg restart name, see ticket:23

File:

• trunk/NEMO/OPA_SRC/IOM/iom_rstdimg.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/IOM/iom_rstdimg.F90

@@ -106 +106 @@
             irecl8= MAX( kdompar(1,1) * kdompar(2,1) * wp, ( 8*jpnij + 15 ) * 4 )
             IF( jpnij > 1 ) THEN
-               WRITE(cltmp,'(a,a,i4.4,a)') cdname(1:iln-1), '_', narea-1, '.dimg'
+               WRITE(cltmp,'(a,a,i4.4,a)') cdname(1:iln-1), '_', narea, '.dimg'
                cdname = TRIM(cltmp)
             ENDIF