/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_readwrite.template
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_readwrite.template

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.30 by edhill, Fri Jun 24 19:43:52 2005 UTC revision 1.31 by edhill, Mon Jun 27 20:19:52 2005 UTC
# Line 192  C         Create the file name Line 192  C         Create the file name
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
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22