Changeset 1212


Ignore:
Timestamp:
2008-10-08T14:38:14+02:00 (12 years ago)
Author:
smasson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/fldread.F90

    r1200 r1212  
    383383      IF( sdjf%num /= 0 )   CALL iom_close( sdjf%num )   ! close file if already open 
    384384      ! build the new filename if not climatological data 
    385       IF( .NOT. sdjf%ln_clim ) THEN   ;   WRITE(sdjf%clname, '(a,"_y",i4)' ) TRIM( sdjf%clrootname ), kyear    ! add year 
    386          IF( sdjf%cltype == 'monthly' )   WRITE(sdjf%clname, '(a,"m",i2)'  ) TRIM( sdjf%clname     ), kmonth   ! add month 
     385      IF( .NOT. sdjf%ln_clim ) THEN   ;   WRITE(sdjf%clname, '(a,"_y",i4.4)' ) TRIM( sdjf%clrootname ), kyear    ! add year 
     386         IF( sdjf%cltype == 'monthly' )   WRITE(sdjf%clname, '(a,"m",i2.2)'  ) TRIM( sdjf%clname     ), kmonth   ! add month 
    387387      ENDIF 
    388388      CALL iom_open( sdjf%clname, sdjf%num, ldstop = ldstop ) 
Note: See TracChangeset for help on using the changeset viewer.