/[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.21 by jmc, Mon Oct 11 18:25:50 2004 UTC revision 1.22 by edhill, Wed Oct 20 21:26:14 2004 UTC
# Line 106  CEOP Line 106  CEOP
106    
107  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
108        integer i,j,k, indv,nvf,nvl, n1,n2, igrid, ntot, indu        integer i,j,k, indv,nvf,nvl, n1,n2, igrid, ntot, indu
109        integer bis,bie, bjs,bje, uniq_tnum, nfname        integer bis,bie, bjs,bje, uniq_tnum, nfname, iseq
110        integer fid, idv, indvids, ndim, indf, err        integer fid, idv, indvids, ndim, indf, err
111        integer lbi,lbj, bidim,bjdim, unlim_sz, kr        integer lbi,lbj, bidim,bjdim, unlim_sz, kr
112        integer p(9),s(9),e(9), dimnc(9)        integer p(9),s(9),e(9), dimnc(9)
# Line 139  C     group (or base) name Line 139  C     group (or base) name
139          STOP 'ABNORMAL END: S/R MNC_CW_RX_W'          STOP 'ABNORMAL END: S/R MNC_CW_RX_W'
140        ENDIF        ENDIF
141        indu = mnc_cw_fgud(indfg)        indu = mnc_cw_fgud(indfg)
142          iseq = mnc_cw_fgis(indfg)
143    
144  C     Check that the Variable Type exists  C     Check that the Variable Type exists
145        nvf = IFNBLNK(vtype)        nvf = IFNBLNK(vtype)
# Line 178  C         Create the file name Line 179  C         Create the file name
179            fname(1:ntot) = fbname(n1:n2)            fname(1:ntot) = fbname(n1:n2)
180            ntot = ntot + 1            ntot = ntot + 1
181            fname(ntot:ntot) = '.'            fname(ntot:ntot) = '.'
182            write(fname((ntot+1):(ntot+9)),'(i6.6,a3)') uniq_tnum, '.nc'            write(fname((ntot+1):(ntot+14)),'(i4.4,a1,i6.6,a3)')
183            nfname = ntot+9       &         iseq,'.',uniq_tnum, '.nc'
184              nfname = ntot + 14
185    
186  C         Add the path to the file name  C         Add the path to the file name
187            IF (mnc_use_outdir) THEN            IF (mnc_use_outdir) THEN
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22