Changeset 1212 for trunk/NEMO/OPA_SRC/SBC/fldread.F90

Timestamp:

2008-10-08T14:38:14+02:00 (16 years ago)

Author:

smasson

Message:

bugfix on format for monthly filename in fldread, see ticket:266

File:

• trunk/NEMO/OPA_SRC/SBC/fldread.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/fldread.F90

@@ -383 +383 @@
       IF( sdjf%num /= 0 )   CALL iom_close( sdjf%num )   ! close file if already open
       ! build the new filename if not climatological data
-      IF( .NOT. sdjf%ln_clim ) THEN   ;   WRITE(sdjf%clname, '(a,"_y",i4)' ) TRIM( sdjf%clrootname ), kyear    ! add year
-         IF( sdjf%cltype == 'monthly' )   WRITE(sdjf%clname, '(a,"m",i2)'  ) TRIM( sdjf%clname     ), kmonth   ! add month
+      IF( .NOT. sdjf%ln_clim ) THEN   ;   WRITE(sdjf%clname, '(a,"_y",i4.4)' ) TRIM( sdjf%clrootname ), kyear    ! add year
+         IF( sdjf%cltype == 'monthly' )   WRITE(sdjf%clname, '(a,"m",i2.2)'  ) TRIM( sdjf%clname     ), kmonth   ! add month
       ENDIF
       CALL iom_open( sdjf%clname, sdjf%num, ldstop = ldstop )