/[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.9 by edhill, Fri Mar 19 03:28:36 2004 UTC revision 1.10 by edhill, Sun Mar 21 03:44:23 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,
11       I     indu,  C     I     indu,
12       I     var,       I     var,
13       I     myThid )       I     myThid )
14    
# Line 35  C     Local Variables Line 35  C     Local Variables
35        integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr        integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr
36        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)
37        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
38          integer indfg, fg1,fg2
39        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
40        character*(MNC_MAX_CHAR) fname        character*(MNC_MAX_CHAR) fname
41    
# Line 53  C     re-shaping before passing to NetCD Line 54  C     re-shaping before passing to NetCD
54  C     Only do I/O if I am the master thread  C     Only do I/O if I am the master thread
55        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
56    
57    C     Get the current index for the unlimited dimension from the file
58    C     group (or base) name
59          fg1 = IFNBLNK(fbname)
60          fg2 = ILNBLNK(fbname)
61          CALL MNC_GET_IND(MNC_MAX_ID, fbname, mnc_cw_fgnm, indfg, myThid)
62          IF (indfg .LT. 1) THEN
63            write(msgbuf,'(3a)')
64         &       'MNC_CW_RX_W_YY ERROR: file group name ''',
65         &       fbname(fg1:fg2), ''' is not defined'
66            CALL print_error(msgbuf, mythid)
67            STOP 'ABNORMAL END: S/R MNC_CW_RX_W_YY'
68          ENDIF
69          indu = mnc_cw_fgud(indfg)
70    
71  C     Check that the Variable Type exists  C     Check that the Variable Type exists
72        nvf = IFNBLNK(vtype)        nvf = IFNBLNK(vtype)
73        nvl = ILNBLNK(vtype)        nvl = ILNBLNK(vtype)
# Line 307  C---+----1----+----2----+----3----+----4 Line 322  C---+----1----+----2----+----3----+----4
322        SUBROUTINE MNC_CW_RX_R_YY(        SUBROUTINE MNC_CW_RX_R_YY(
323       I     fbname, bi,bj,       I     fbname, bi,bj,
324       I     vtype,       I     vtype,
325       I     indu,  C     I     indu,
326       I     var,       I     var,
327       I     myThid )       I     myThid )
328    
# Line 333  C     Local Variables Line 348  C     Local Variables
348        integer bis,bie, bjs,bje, uniq_tnum, nfname, fid, idv        integer bis,bie, bjs,bje, uniq_tnum, nfname, fid, idv
349        integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr        integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr
350        integer ind_fv_ids, ind_vt, ierr, atype, alen        integer ind_fv_ids, ind_vt, ierr, atype, alen
351        integer f_sNx,f_sNy, ires        integer f_sNx,f_sNy
352        integer p(9),s(9),e(9), vstart(9),vcount(9), udo(9)        integer p(9),s(9),e(9), vstart(9),vcount(9), udo(9)
353        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
354        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
355        character*(MNC_MAX_CHAR) fname        character*(MNC_MAX_CHAR) fname
356          integer indfg, fg1,fg2
357    
358  C     Temporary storage for the simultaneous type conversion and  C     Temporary storage for the simultaneous type conversion and
359  C     re-shaping before passing to NetCDF  C     re-shaping before passing to NetCDF
# Line 354  C     re-shaping before passing to NetCD Line 370  C     re-shaping before passing to NetCD
370  C     Only do I/O if I am the master thread  C     Only do I/O if I am the master thread
371        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
372    
373    C     Get the current index for the unlimited dimension from the file
374    C     group (or base) name
375          fg1 = IFNBLNK(fbname)
376          fg2 = ILNBLNK(fbname)
377          CALL MNC_GET_IND(MNC_MAX_ID, fbname, mnc_cw_fgnm, indfg, myThid)
378          IF (indfg .LT. 1) THEN
379            write(msgbuf,'(3a)')
380         &       'MNC_CW_RX_W_YY ERROR: file group name ''',
381         &       fbname(fg1:fg2), ''' is not defined'
382            CALL print_error(msgbuf, mythid)
383            STOP 'ABNORMAL END: S/R MNC_CW_RX_W_YY'
384          ENDIF
385          indu = mnc_cw_fgud(indfg)
386    
387  C     Check that the Variable Type exists  C     Check that the Variable Type exists
388        nvf = IFNBLNK(vtype)        nvf = IFNBLNK(vtype)
389        nvl = ILNBLNK(vtype)        nvl = ILNBLNK(vtype)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22