Changeset 1212 for trunk/NEMO/OPA_SRC/SBC/fldread.F90
- Timestamp:
- 2008-10-08T14:38:14+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/fldread.F90
r1200 r1212 383 383 IF( sdjf%num /= 0 ) CALL iom_close( sdjf%num ) ! close file if already open 384 384 ! 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 year386 IF( sdjf%cltype == 'monthly' ) WRITE(sdjf%clname, '(a,"m",i2 )' ) TRIM( sdjf%clname ), kmonth ! add month385 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 387 387 ENDIF 388 388 CALL iom_open( sdjf%clname, sdjf%num, ldstop = ldstop )
Note: See TracChangeset
for help on using the changeset viewer.