Changeset 892 for trunk/NEMO/OPA_SRC/SBC/fldread.F90
- Timestamp:
- 2008-04-21T14:14:58+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/fldread.F90
r888 r892 96 96 sd(jf)%nyear = nyear 97 97 CASE( 1 ) 98 WRITE(sd(jf)%clname, '(a, " _0000.nc")' ) TRIM( sd(jf)%clrootname )98 WRITE(sd(jf)%clname, '(a, ".nc")' ) TRIM( sd(jf)%clrootname ) 99 99 sd(jf)%nyear = 0000 100 100 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.