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

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

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

revision 1.4 by jmc, Thu Jul 14 00:11:13 2005 UTC revision 1.5 by edhill, Thu Jul 21 06:17:09 2005 UTC
# Line 102  C---+----1----+----2----+----3----+----4 Line 102  C---+----1----+----2----+----3----+----4
102          IF (mId .EQ. 1) THEN          IF (mId .EQ. 1) THEN
103  C         Update the record dimension by writing the iteration number  C         Update the record dimension by writing the iteration number
104            CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid)            CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid)
105            CALL MNC_CW_RL_W_S('D',diag_mnc_bn,0,0,'T',myTime,myThid)            CALL MNC_CW_RL_W_S('D',diag_mnc_bn,1,1,'T',myTime,myThid)
106            CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid)            CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid)
107            CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',myIter,myThid)            CALL MNC_CW_I_W_S('I',diag_mnc_bn,1,1,'iter',myIter,myThid)
108          ENDIF          ENDIF
109    
110  #ifdef DIAGST_MNC_NEEDSWORK  #ifdef DIAGST_MNC_NEEDSWORK
# Line 130  C       no specified vertical location. Line 130  C       no specified vertical location.
130       &       'Idicies of vertical levels within the source arrays',       &       'Idicies of vertical levels within the source arrays',
131       &       myThid)       &       myThid)
132    
133          CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0,          CALL MNC_CW_RL_W('D',diag_mnc_bn,1,1,
134       &       'diag_levels', levs(1,listId), myThid)       &       'diag_levels', levs(1,listId), myThid)
135    
136          CALL MNC_CW_DEL_VNAME('diag_levels', myThid)          CALL MNC_CW_DEL_VNAME('diag_levels', myThid)
# Line 174  C         for averaged levels. Line 174  C         for averaged levels.
174       &           'Dimensional coordinate value at the lower point',       &           'Dimensional coordinate value at the lower point',
175       &           myThid)       &           myThid)
176            ENDIF            ENDIF
177            CALL MNC_CW_RS_W('D',diag_mnc_bn,0,0, dn(1), ztmp, myThid)            CALL MNC_CW_RS_W('D',diag_mnc_bn,1,1, dn(1), ztmp, myThid)
178            CALL MNC_CW_DEL_VNAME(dn(1), myThid)            CALL MNC_CW_DEL_VNAME(dn(1), myThid)
179            CALL MNC_CW_DEL_GNAME(dn(1), myThid)            CALL MNC_CW_DEL_GNAME(dn(1), myThid)
180          ENDDO          ENDDO
# Line 260  C           Copy the data into a tempora Line 260  C           Copy the data into a tempora
260              IF ((fflags(listId)(1:1) .EQ. ' ')              IF ((fflags(listId)(1:1) .EQ. ' ')
261       &           .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN       &           .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN
262                                
263                CALL MNC_CW_RL_W('R',diag_mnc_bn,0,0,                CALL MNC_CW_RL_W('R',diag_mnc_bn,1,1,
264       &             tnam, stmp, myThid)       &             tnam, stmp, myThid)
265                                
266              ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN              ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN
267                                
268                CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0,                CALL MNC_CW_RL_W('D',diag_mnc_bn,1,1,
269       &             tnam, stmp, myThid)       &             tnam, stmp, myThid)
270                            
271              ENDIF              ENDIF
# Line 297  C           Copy the data into a tempora Line 297  C           Copy the data into a tempora
297              IF ((fflags(listId)(1:1) .EQ. ' ')              IF ((fflags(listId)(1:1) .EQ. ' ')
298       &           .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN       &           .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN
299                            
300                CALL MNC_CW_RL_W('R',diag_mnc_bn,0,0,                CALL MNC_CW_RL_W('R',diag_mnc_bn,1,1,
301       &             tnam, stmp, myThid)       &             tnam, stmp, myThid)
302                            
303              ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN              ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN
304                            
305                CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0,                CALL MNC_CW_RL_W('D',diag_mnc_bn,1,1,
306       &             tnam, stmp, myThid)       &             tnam, stmp, myThid)
307                            
308              ENDIF              ENDIF
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22