/[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.20 by edhill, Fri Oct 8 17:03:21 2004 UTC revision 1.22 by edhill, Wed Oct 20 21:26:14 2004 UTC
# Line 57  C     !USES: Line 57  C     !USES:
57  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
58        integer myThid, bi,bj        integer myThid, bi,bj
59        character*(*) stype, fbname, vtype        character*(*) stype, fbname, vtype
60        __V var        __V var(*)
       __V var_arr(1)  
61        INTEGER offsets(9)        INTEGER offsets(9)
62  CEOP  CEOP
63        INTEGER i        INTEGER i
# Line 66  CEOP Line 65  CEOP
65        DO i = 1,9        DO i = 1,9
66          offsets(i) = 0          offsets(i) = 0
67        ENDDO        ENDDO
68        var_arr(1) = var        CALL MNC_CW_RX_W_OFFSET(stype,fbname,bi,bj,vtype, var,
       CALL MNC_CW_RX_W_OFFSET(stype,fbname,bi,bj,vtype, var_arr,  
69       &     offsets, myThid)       &     offsets, myThid)
70    
71        RETURN        RETURN
# Line 108  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 141  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 180  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.20  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22