192 |
fname(1:ntot) = fbname(n1:n2) |
fname(1:ntot) = fbname(n1:n2) |
193 |
ntot = ntot + 1 |
ntot = ntot + 1 |
194 |
fname(ntot:ntot) = '.' |
fname(ntot:ntot) = '.' |
195 |
write(fname((ntot+1):(ntot+14)),'(i4.4,a1,i6.6,a3)') |
IF ( mnc_use_name_ni0 ) THEN |
196 |
& iseq,'.',uniq_tnum, '.nc' |
write(fname((ntot+1):(ntot+17)),'(i10.10,a1,i6.6)') |
197 |
nfname = ntot + 14 |
& nIter0,'.',uniq_tnum |
198 |
|
write(fname((ntot+18):(ntot+25)),'(a1,i4.4,a3)') |
199 |
|
& '.', iseq, '.nc' |
200 |
|
nfname = ntot + 25 |
201 |
|
ELSE |
202 |
|
write(fname((ntot+1):(ntot+14)),'(i4.4,a1,i6.6,a3)') |
203 |
|
& iseq,'.',uniq_tnum, '.nc' |
204 |
|
nfname = ntot + 14 |
205 |
|
ENDIF |
206 |
|
|
207 |
C Add the path to the file name |
C Add the path to the file name |
208 |
IF (mnc_use_outdir) THEN |
IF (mnc_use_outdir) THEN |