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) |
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) |
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 |