/[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.10 by edhill, Sun Mar 21 03:44:23 2004 UTC revision 1.11 by edhill, Mon Mar 22 05:10:10 2004 UTC
# Line 8  C---+----1----+----2----+----3----+----4 Line 8  C---+----1----+----2----+----3----+----4
8        SUBROUTINE MNC_CW_RX_W_YY(        SUBROUTINE MNC_CW_RX_W_YY(
9       I     fbname, bi,bj,       I     fbname, bi,bj,
10       I     vtype,       I     vtype,
 C     I     indu,  
11       I     var,       I     var,
12       I     myThid )       I     myThid )
13    
# Line 35  C     Local Variables Line 34  C     Local Variables
34        integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr        integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr
35        integer p(9),s(9),e(9), dimnc(9), vstart(9),vcount(9), udo(9)        integer p(9),s(9),e(9), dimnc(9), vstart(9),vcount(9), udo(9)
36        integer j1,j2,j3,j4,j5,j6,j7, k1,k2,k3,k4,k5,k6,k7        integer j1,j2,j3,j4,j5,j6,j7, k1,k2,k3,k4,k5,k6,k7
37        integer indfg, fg1,fg2        integer indfg, fg1,fg2, npath
38        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
39        character*(MNC_MAX_CHAR) fname        character*(MNC_MAX_CHAR) fname
40          character*(MNC_MAX_CHAR) path_fname
41    
42  C     Temporary storage for the simultaneous type conversion and  C     Temporary storage for the simultaneous type conversion and
43  C     re-shaping before passing to NetCDF  C     re-shaping before passing to NetCDF
# Line 109  C         Create the file name Line 109  C         Create the file name
109            write(fname((ntot+1):(ntot+9)),'(i6.6,a3)') uniq_tnum, '.nc'            write(fname((ntot+1):(ntot+9)),'(i6.6,a3)') uniq_tnum, '.nc'
110            nfname = ntot+9            nfname = ntot+9
111    
112    C         Add the path to the file name
113    c          path_fname(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
114    c          npath = ILNBLNK(mnc_out_path)
115    c          path_fname(1:npath) = mnc_out_path(1:npath)
116    c          path_fname((npath+1):(npath+1+nfname)) = fname(1:nfname)
117    c          fname(1:MNC_MAX_CHAR) = path_fname(1:MNC_MAX_CHAR)
118    
119  C         Append to an existing or create a new file  C         Append to an existing or create a new file
120            CALL MNC_CW_FILE_AORC(fname, indf, myThid)            CALL MNC_CW_FILE_AORC(fname, indf, myThid)
121            fid = mnc_f_info(indf,2)            fid = mnc_f_info(indf,2)
# Line 322  C---+----1----+----2----+----3----+----4 Line 329  C---+----1----+----2----+----3----+----4
329        SUBROUTINE MNC_CW_RX_R_YY(        SUBROUTINE MNC_CW_RX_R_YY(
330       I     fbname, bi,bj,       I     fbname, bi,bj,
331       I     vtype,       I     vtype,
 C     I     indu,  
332       I     var,       I     var,
333       I     myThid )       I     myThid )
334    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22