Changeset 912 for trunk/NEMO
- Timestamp:
- 2008-04-28T12:04:54+02:00 (16 years ago)
- Location:
- trunk/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90
r895 r912 62 62 INTEGER :: inum ! temporary logical unit 63 63 INTEGER :: ikty, iyear ! 64 LOGICAL :: llbon65 64 CHARACTER (len=32) :: clname 66 65 REAL(wp) :: z_emp ! temporary scalars -
trunk/NEMO/OPA_SRC/SBC/sbcrnf.F90
r909 r912 223 223 WRITE(cl_rnfile, '(a,a,"_",i4,".nc")' ) TRIM( cn_dir ), TRIM( sn_cnf%clname ), nyear 224 224 CASE( 1 ) 225 WRITE(cl_rnfile, '(a,a, " _0000.nc")' ) TRIM( cn_dir ), TRIM( sn_cnf%clname )225 WRITE(cl_rnfile, '(a,a, ".nc")' ) TRIM( cn_dir ), TRIM( sn_cnf%clname ) 226 226 END SELECT 227 227
Note: See TracChangeset
for help on using the changeset viewer.