/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_write_pickup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by edhill, Sun Feb 20 04:31:54 2005 UTC revision 1.2 by edhill, Sun Feb 20 05:11:30 2005 UTC
# Line 50  c     INTEGER prec, iChar, lChar, k Line 50  c     INTEGER prec, iChar, lChar, k
50        INTEGER  ILNBLNK        INTEGER  ILNBLNK
51        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
52    
53    #ifdef ALLOW_MNC
54          INTEGER ii
55          CHARACTER*(MAX_LEN_FNAM) diag_mnc_bn
56          CHARACTER*(5) ctmp
57          INTEGER CW_DIMS, NLEN
58          PARAMETER ( CW_DIMS = 10 )
59          PARAMETER ( NLEN    = 80 )
60          INTEGER dim(CW_DIMS), ib(CW_DIMS), ie(CW_DIMS)
61          CHARACTER*(NLEN) dn(CW_DIMS)
62          CHARACTER*(NLEN) d_cw_name
63          CHARACTER*(NLEN) dn_blnk
64    #endif /*  ALLOW_MNC  */
65    
66  CEOP  CEOP
67    
68  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
69    
70        IF (diag_pickup_write) THEN        IF (diag_pickup_write) THEN
71    
72    #ifdef ALLOW_MNC
73            IF (diag_pickup_write_mnc) THEN
74              DO i = 1,NLEN
75                dn_blnk(i:i) = ' '
76              ENDDO
77              DO i = 1,MAX_LEN_FNAM
78                diag_mnc_bn(i:i) = ' '
79              ENDDO
80              WRITE(diag_mnc_bn,'(A)') 'pickup_diagnostics'
81    
82    C         Update the record dimension by writing the iteration number
83              CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid)
84              CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'T',myIter,myThid)
85              CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid)
86              
87              d_cw_name(1:NLEN) = dn_blnk(1:NLEN)
88              DO ii = 1,CW_DIMS
89                dn(ii)(1:NLEN) = dn_blnk(1:NLEN)
90              ENDDO
91              d_cw_name(1:10) = 'diag_state'
92              dn(1)(1:3) = 'Xp1'
93              dim(1)     = sNx + 2*OLx
94              ib(1)      = OLx + 1
95              ie(1)      = OLx + sNx + 1
96              dn(2)(1:3) = 'Yp1'
97              dim(2)     = sNy + 2*OLy
98              ib(2)      = OLy + 1
99              ie(2)      = OLy + sNy + 1
100              dn(3)(1:2) = 'Zd'
101              dim(3)     = numdiags
102              ib(3)      = 1
103              ie(3)      = numdiags
104              dn(4)(1:1) = 'T'
105              dim(4)     = -1
106              ib(4)      = 1
107              ie(4)      = 1
108              
109              CALL MNC_CW_ADD_GNAME(d_cw_name, 4,
110         &         dim, dn, ib, ie, myThid)
111              CALL MNC_CW_ADD_VNAME(d_cw_name, d_cw_name,
112         &         4,5, myThid)
113              CALL MNC_CW_ADD_VATTR_TEXT(d_cw_name,'description',
114         &         'diagnostics state',myThid)
115              
116              CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0,
117         &         d_cw_name, qdiag, myThid)
118              
119              CALL MNC_CW_DEL_VNAME(d_cw_name, myThid)
120              CALL MNC_CW_DEL_GNAME(d_cw_name, myThid)
121              
122            ENDIF
123    #endif
124            
125          DO i = 1,MAX_LEN_FNAM          DO i = 1,MAX_LEN_FNAM
126            fn(i:i) = ' '            fn(i:i) = ' '
127          ENDDO          ENDDO
# Line 64  C---+----1----+----2----+----3----+----4 Line 130  C---+----1----+----2----+----3----+----4
130          prec = precFloat64          prec = precFloat64
131          lgf = globalFiles          lgf = globalFiles
132                    
 #ifdef ALLOW_MNC  
 C       IF (useMNC .AND. diag_pickup_write_mnc) THEN  
 C       ENDIF  
 #endif  
           
133          IF (diag_pickup_write_mdsio) THEN          IF (diag_pickup_write_mdsio) THEN
134            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',numdiags,qdiag,            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',numdiags,qdiag,
135       &         1,myIter,myThid)       &         1,myIter,myThid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22